三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无码麻豆| 亚洲av成人av在线观看| 久久久精品国产亚洲一区| 青草娱在线盛宴| 骚逼被内射视频| 久久久久久久久8久久久| 人妻午夜精品久久久久久久| 欧美综合在线一区二区在线| 小黄片大全欧美一区二区| 性爱BBWww| 99e这里只有精品视频| 国产精品无码AV五月天| 穿丝袜制服被插视频网站| 老肥婆稞体图片| 曹B视频在线看| 免费桃色成人性视频观看| 亚洲色视频手机在线观看| 黑鬼大鸡巴狂操美女图片| 欧美日韩在线亚洲二区综二| 靠逼插入短视频| 国产美女全裸的骚穴视频| 男男腐啪GV肉真人视频| 欧美日韩高清性色生活片| 娇妻被美国黑人3p视频| 欧美黄色精品一区二区三区| 欧美日韩不卡一区二区三区| 美女被吞精在线一区二区| 下一页20p| 亚洲风情无码五月天无码| 亚洲国产精品自拍小视频| 肏屄真舒服视频| 大吊后入小BB| 国产午夜福利精品久婷婷|