久久精品人成免费_国产精品久久久久久久白皙女_一级片播放_日韩欧美在线免费_亚洲AV无码精品色午夜果冻不卡_成人高潮免费视频

beiye1234
級別: 略有小成
精華主題: 0
發帖數量: 255 個
工控威望: 282 點
下載積分: 914 分
在線時間: 250(小時)
注冊時間: 2010-02-05
最后登錄: 2017-07-31
查看beiye1234的 主題 / 回貼
樓主  發表于: 2011-04-15 20:36
請教各位關于VB6.0與S7-200以太網通訊(Winsock),本人剛接觸VB6.0。
要求:對Q0.3置1
VB6.0程序如下
Private Sub Command1_Click()

Dim sendstr(7) As Byte
sendstr(0) = &H1 '站地址
sendstr(1) = &H5 '功能碼
sendstr(2) = &H0
sendstr(3) = &H3 '目標地址
sendstr(4) = &HFF
sendstr(5) = &H0 '線圈置1
sendstr(6) = &H0 '校驗碼
sendstr(7) = &H0 '校驗碼
Dim astr As String
Dim i   As Integer
For i = 0 To 7
astr = astr & Chr(sendstr(i))
Next
SockServer.SendData astr

End Sub

Private Sub Form_Load()
SockServer.LocalPort = 2000    
SockServer.RemoteHost = "192.168.1.60" ‘PLC地址
SockServer.RemotePort = 1 ’PLC站地址
End Sub

用以太網鏈接測試,沒效果。

這個程序那個地方有問題?應該怎么改。
[ 此帖被beiye1234在2011-04-16 11:21重新編輯 ]

主站蜘蛛池模板: 蜜臀av999无码精品国产专区 | 青草青草久热国产精品 | 国产操逼网站亚洲一级黄色 | 国产明星xxxx色视频 | 中文字幕日韩国产 | 一级黄色影片在线观看 | 丰满人妻翻云覆雨呻吟视频 | 国产超碰久久av青草 | 国产爆乳美女娇喘呻吟 | 国产激情大臿免费视频 | 丧尸启示录免费观看高清完整在线 | 中文字幕日韩国产 | 狠狠综合久久久久综合网址 | 91成人一区二区三区 | japanesexxxx日本妞 | 中国多毛妞体内射精 | 色噜噜狠狠一区 | 国产乱老熟视频网 | a级黄色毛片免费观看 | 尤物丰满少妇大尺度喷血写真 | 国产精品黄色裸体片 | 国产女人精品视频国产灰线 | 四十如虎的丰满熟妇啪啪 | 色哟哟网站在线观看 | 风流少妇A片一区二区蜜桃 老女人高潮视频 | 久久成人国产精品 | 久久精品无码免费不卡 | 日韩欧美成人一区二区三区 | 国产性猛交xx乱视频 | 国产一区一一区高清不卡 | 777奇米888色狠狠俺也去 | 皇色在线视频 | 六月丁香综合在线视频 | 久久日韩精品一区鲁大师 | 蜜桃视频在线网站 | 好硬好湿好大再深一点动态图 | 国产精品高潮呻吟久久 | 91网页| 欧美不卡在线观看一区 | 中文字幕一区二区三区乱码图片 | 亚洲tv久久爽久久爽 |