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

主站蜘蛛池模板: 久久91| 亚洲三级av在线 | 国产乱人伦偷精品视频 | av网址在线免费观看 | 免费人成无码视频在线观看 | 国产亚洲综合日韩一区 | 久久久久久福利视频 | 国产高清色高清在线观看 | 美国一区二区 | 国产精品美女爽爽爽视频 | 网球王子日语版免费观看 | 精品国产不卡一区二区三区 | 在线成人免费av | 老外黑人欧美一级毛片 | 柠檬导航-柠檬福利导航 | 亚洲VA中文字幕无码久久 | 奇米777四色成人影视 | 包青天1一236集在线高清天寒 | 成人免费看av | 亚州精品av久久久久久久影院 | 亚洲第一欧美 | 亚洲成人第一页 | ru继nv娇小h 久久免费精品一区二区三区 | 亚洲日韩欧美乱伦中文字 | 四虎影视在线永久免费观看 | 国产熟妇的荡欲午夜视频 | 最近中文高清字幕 | 在线观看免费AV无码不卡 | 国产成人无码区免费内射一片色欲 | 黄色毛片视频 | 少妇人禽zoz0伦视频 | 97超碰人 | 韩国xxx hd videos h人成在线看免费视频 | 国产黄A三级三级三级 | 日本黄色录像视频 | 丝袜美女被出水一区 | 亚洲最新无码中文字幕久久 | 无码人妻丰满熟妇片毛片 | 欧美三圾片在线观看 | 绯色蜜臀av一区二区不卡 | 斗破苍穹在线观看免费完整观看 |