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

主站蜘蛛池模板: 国外黄色毛片 | 成年美女黄网站色大免费全看 | 嫩草影院入口污在线 | 中文字幕在线亚洲 | 免费精品国偷自产在线青年 | 美女大黄免费 | 午夜男女无遮掩免费视频 | 女仆乖乖脱内衣内裤打屁股 | 大青草久久久蜜臀av久久 | 少妇高潮抽搐在线视频 | 老师含紧一点h边做边走视频动 | 浴室边摸边吃奶边做边爱 | 国产乱码久久久久久一区二区 | 少妇一级毛片免费看 | 国产精品久人妻精品老妇 | 国产AV无码专区亚洲AV人妖 | 日本在线视频中文字幕 | 亚洲影视中文字幕 | 我心灿烂40集免费观看视频播放 | 仙踪林少妇高潮在线观看 | 98精品在线| 狠狠摸狠狠澡 | 狠狠干2023| www奇米| 国产真实乱偷精品视频免 | 在线资源播放 | 99热久久久无码国产精品性麻豆 | 国产精品国语自产拍在线观看 | 动漫少妇 | 天天色天天射综合网 | 欧美h版在线观看 | 经典一区二区三区 | 国产精品美女视频免费观看软件 | 亚洲国产av一区二区三区 | 成人国产精品一级毛片视频毛片 | 免费一级国产 | 国产精品毛片a√一区 | 肉色超薄丝袜脚交一区二区 | 亚洲精华国产 | 亚洲日韩国产一区二区三区在线 | 成人3D动漫一区二区三区 |