97视频免费观看2区_无码A级毛片免费视频内谢_JAPANESEXXXX日本熟妇伦视频_国产精品主播在线_黄色大片视频观看性感_久久精品国际

beiye1234
級別: 略有小成
精華主題: 0
發帖數量: 255 個
工控威望: 282 點
下載積分: 914 分
在線時間: 250(小時)
注冊時間: 2010-02-05
最后登錄: 2017-07-31
查看beiye1234的 主題 / 回貼
樓主  發表于: 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重新編輯 ]

主站蜘蛛池模板: 国产女人免费看a级丨片 | 美女叼嘿视频 | 国产精品精品 | 欧洲亚洲国产图片综合 | 国产91一区二区在线观看 | 国产毛片久久久久久蜜臂媒 | 在线观看免费黄色 | 欧美日韩激情一区二区 | 久艹精品 | 免费情侣作爱视频 | 日韩a免费| 国产999精品久久久影片官网 | 亚洲熟妇色XXXXX欧美老妇Y | 老头猛吸女大学奶头A片 | 最好看的最新高清中文视频 | 91在线播放观看 | 午夜三级黄色 | 在线观看私人黄 | 色欲综合久久躁天天躁蜜桃 | 1234区中文字幕在线观看 | www.红桃视频.com | 欧美一区二区三区白人 | 日韩av第一页 | 桃花色综合影院 | 最新亚洲人成网站在线观看 | 殴美中文字幕在线看 | 色欲日韩中文无码字幕影院 | 丰满妇女伦大片免费看 | 99国产欧美另类久久久精品 | 免费一级特黄做受大片 | 亚洲桃色AV无码 | 精品无码中文字幕不卡 | 中国新疆XXXXXL19学生申中国 | 真人作爱视频免费 | 亚洲精品一区二区三区不 | 中文字幕av一区二区三区佐山爱 | 日本a级片免费看 | 国产精品久久久久久久岛一牛影视 | 银魂thefinal| 文豪野犬4简体中文 | 精品播放一区二区 |