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

主站蜘蛛池模板: 一夜新娘第三季高清免费观看 | 超碰狠狠干 | 午夜时刻免费实验区观看 | 国产欧美日韩卡一 | av中文精品无码在线不卡 | poronovideos日本 | 狠狠躁夜夜躁人人爽天天不 | 玖玖玖在线观看 | 激情欧美日韩 | 双腿张开被9个黑人调教影片 | 免费萌白酱国产一区二区三区 | 最近2019免费中文字幕视频三 | 国产学生系列一区二区三区 | 极品美女高潮呻吟国产剧情91 | 亚洲日本va一区二区三区 | a级黄色片免费观看 | 免费黄色在线观看 | 精品国产乱码久久久久久口爆 | 欧美男女爱爱视频 | 国产精品自拍av | 日本在线视频中文有码 | 日韩精品视频一二三 | 大地资源网在线观看免费高清 | 国产在线一区二区三区 | 小明免费看看 | 免费国产在线精品一区 | 亚洲免费成人影院 | 亚洲精品国产精品乱码不98 | 亚洲免费成人在线视频 | 日本一区二区三区网站 | 日韩免费视频观看 | 男女裸体下面进入的免费视频 | 亚洲欧美波霸巨爆乳A片 | 青娱乐综合 | 超碰97精品 | search—xvideos com| 污视频在线免费观看网站 | 色网站在线免费观看 | 国产亚洲精品日本亚洲网站 | 熟女人妇交换俱乐部 | 精品免费国产一区二区三区四区 |