日本特级淫片免费看-日本特级黄色-日本特级黄录像片-日本视频中文字幕-成年偏黄网站站免费-成年人福利

beiye1234
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 255 個
工控威望: 282 點
下載積分: 914 分
在線時間: 250(小時)
注冊時間: 2010-02-05
最后登錄: 2017-07-31
查看beiye1234的 主題 / 回貼
樓主  發(fā)表于: 2011-04-15 20:36
請教各位關(guān)于VB6.0與S7-200以太網(wǎng)通訊(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 '目標(biāo)地址
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

用以太網(wǎng)鏈接測試,沒效果。

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

主站蜘蛛池模板: 成人欧美日韩 | 色久阁| 一级做性色a爰片久久毛片免费 | 伊人手机在线视频 | 亚洲免费视频网址 | www.天堂.com | 国产精品永久免费10000 | 成年免费大片黄在线观看岛国 | 中文字幕美日韩在线高清 | 草久在线播放 | 色综合久久夜色精品国产 | 曰韩美女一级视频 | 国产精品网址你懂的 | se色综合视频 | 老子影院午夜伦不卡手机 | 亚洲激情综合 | 久久97精品久久久久久清纯 | 一级一级毛片 | 国产成人综合精品一区 | 四虎免费在线视频 | 亚洲一区二区三区在线视频 | 国产成人h福利小视频在线观看 | 日本美女一级片 | 中文字幕一区二区三区在线不卡 | 在线不卡福利 | 日本高清视频在线 | 永久福利盒子日韩日韩免费看 | 欧美亚洲国产激情一区二区 | 四虎在线精品免费高清在线 | 黄 色 大 片 网站 | 成人网18免费视频 | 国产欧美日韩图片一区二区 | 综合爱| 91福利国产在线观看香蕉 | 国产精品久久久久久久人人看 | 在线观看免费亚洲 | 国内国内在线精品视频 | 一级特黄毛片 | 美女视频网站黄色 | 日皮视频在线免费观看 | 香蕉免费一区二区三区 |