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

波多野吉衣高清一区二区| 欧美日韩一级一区二区三区| 国产成人综合亚洲欧在线| 男人操美女阴部AV网站| 色婷婷公开视频在线观看| 亚洲欧洲精品优质a v| 日韩欧美精品一区日日骚| 国产精品乱子伦一区二区| 国产精品无码三级片视频| 操女人B爽爽爽| 国产精品晓可耐在线观看| 老女人和小男孩操逼视频| 成人性视频网站免费播放| 欧美日韩一区二区三区四区| 在秘 无码一区二区在线| 啊啊啊大鸡巴操骚逼视频| 午夜影院在线免费观看三区| 亚洲精品偷拍区偷拍无码| 亚洲成人精品| 日本精品伦一区二区三区| 欧美性受XXXX喷奶水| 亚洲天堂中文字幕婷婷婷| 在全网站搜索少妇玩逼逼| 91宅男的天堂在线观看| 黄色网站大鸡巴草小逼逼| 日本少妇被黑人嗷嗷叫换| 真人试看120秒动态图| 荡女养成系统h| 大鸡巴操无毛女视频观看| 操死你帅哥美女自慰网站| 女人荫蒂添的好舒服A片| 日本精品九九久久精品一本| 18免费AV片在线观看| 色综合综合在线| 美女被男人干的流水视频| 国产亚洲精品日韩综合网| 最大尺度一对一视频聊天| 色呦色呦色精品| 免费看黄色亚洲一区久久| 精品久久久久久久亚洲偷拍| 国产伦日日日日夜夜夜夜|