三a级做爰片免费观看玉蒲团,伊人久久亚洲综合av影院,午夜永久免费爽爽爽影院,西川唯久久久久久久综合

beiye1234
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 255 個(gè)
工控威望: 282 點(diǎn)
下載積分: 914 分
在線時(shí)間: 250(小時(shí))
注冊時(shí)間: 2010-02-05
最后登錄: 2017-07-31
查看beiye1234的 主題 / 回貼
樓主  發(fā)表于: 2011-04-15 20:36
請(qǐng)教各位關(guān)于VB6.0與S7-200以太網(wǎng)通訊(Winsock),本人剛接觸VB6.0。
要求:對(duì)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 '校驗(yàn)碼
sendstr(7) = &H0 '校驗(yàn)碼
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)鏈接測試,沒效果。

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

国产精品成人啪精品视频| 国产欧美日韩中文字幕在线| 欧美日韩亚洲精品亚洲欧洲| 日日摸夜夜添夜夜添人妻| 污美女自慰操逼| 欧美成人影院手机在线看| 性A∨精品高清在线观看| 乱子激情网AV| 小受被内射操哭| 免费靠妣色网站| 亚洲色大成网站www九| 一道本免费在线免费视频| 国产欧美日韩电影链接播放| 九九re视频在线免费观看| 极品少妇喷白浆在线视频| 亚洲久久久久久中文字幕| 在线毛片片免费观看鲁鲁| 高清中文字幕男人的天堂| 成年人黄色一区二区三区| 老熟妇grαnnyhd| 日韩av毛片福利国产福利| 精品一区二区三区女同免费| 黄色网在线观看| 97色论网综合图片专区| 看全色黄大色黄女片爽直播| 美女被男人疯狂的操骚逼| 曰逼视频免费看| 国产精品网站在线免费观看| 国产中文字幕1区2区3区| 久久免费精品视频小黄片| 国内精品久久久久久婷婷| 国产精品美女黄| 五十路六十路二十四小时| 国精品少妇人人爽人人爽| 国产精品麻豆电影在线观看| 中文乱码字幕在线中文乱码 | 国产我和子的与子乱视频| 日本二区三区不卡在线视频| 日本高清电影一区二区三区| 我想看老外几八操逼片子| 日韩色爽爽爽爽爽爽爽爽|