97视频免费观看2区_无码A级毛片免费视频内谢_JAPANESEXXXX日本熟妇伦视频_国产精品主播在线_黄色大片视频观看性感_久久精品国际

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重新編輯 ]

主站蜘蛛池模板: 国产精品久久久久久久曹县翰林府 | 成人全黄A片免费看香港 | 欧美成人精品一区二区男人小说 | 成人天堂入口网站 | 麻豆一区二区在线观看 | 国产艳妇高清色视频在线观看 | 初毛初精小男生GV网站 | 91精品久久久久久蜜桃 | 一区二区三区高清不卡 | 扒开双腿猛进入jk校花的小说 | 亚洲操比 | 国产三级全黄A级视频 | 999毛片 | 国产精品天码无卡在线观看 | 久久综合综合久久 | 偷拍做爰吃奶视频免费看 | 揉捏少妇饱满的双乳日产视频 | 亚洲中文波霸中文字幕 | 欧美性猛交xxxx乱大交be | 丰满在线| 日产日韩在线亚洲欧美 | 久久久久狠狠高潮亚洲精品 | 久久久久久久久久久久久9999 | 一级黄色片一级黄色片 | 天天干狠狠爱 | 亚洲一区视频在线 | 亚洲午夜无码毛片AV久久京东热 | 九色丨porny丨自拍娇妻 | 成年人污视频 | 日韩人妻系列无码专区 | 国产XXXX做受视频 | 69免费视频 | 欧洲成人一区二区 | 国产女做a爱免费视频 | 丰满xnxx.com | 国产ts人妖在线观看 | 欧美XXXX欧美精品 | 国产不卡视频在线 | 大地资源三在线观看 | 超碰免费97 | 亚瑟在线精品视频 |