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

beiye1234
級別: 略有小成
精華主題: 0
發(fā)帖數量: 255 個
工控威望: 282 點
下載積分: 914 分
在線時間: 250(小時)
注冊時間: 2010-02-05
最后登錄: 2017-07-31
查看beiye1234的 主題 / 回貼
樓主  發(fā)表于: 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综合网| 美女搞黄色网站| 亚洲综合精品香蕉久久网| 无码福利日韩神码福利片| 3d美女被草喷水的视频| 又粗又黄又爽视频免费看| 亚洲欧美日韩国产综合一区| 亚洲国产精品色婷婷久久| 操黑丝淫妇在线免费视频| 国产精品一区二区男人吃奶| 粗大狠狠的进出她的体内| 精品久久久久久中文无码| 美女的穴被插到高潮国产| 国产亚洲欧美黄色剧情影院| 加勒比五月丁香一区二区| 19色佬免费在线播放视频| 2021全国产精品网站| 高中生美女自慰黄色免费| 日本久久久久久久久久婷| 国产精品亚洲av三区ai| 国产熟女高潮一区二区三区| 男女毛片视频免费看电影| 女生十八禁不遮不挡网站| 亚洲熟妇无码久久久精品| 2021最新国产在线人| 青娱乐成人免费在线视频| 性无码国产一区在线观看| 中文弹幕日产无线码一区| 国产精品麻豆三级三级视频 | 舔屄肏屄影视直播免费看| 青娱乐极品人妻| 黄色视频免费观看小骚逼| 免费看男生艹女生的视频| 秋霞理论理论福利院久久| 国产精品亚洲综合在线观看| 人人爽人妻少妇女夜夜狠| 乱子伦一级在线观看高清| 亚洲av一夜七次郎婷婷|