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

主站蜘蛛池模板: 一级黄色毛毛片 | 性猛交xxxx乱大交中国 | 成A人影片免费观看日本 | 国产精品久久久久一区二 | 国产三级全黄A级视频 | 无码专区3D动漫精品 | 亚洲欧洲日本综合aⅴ在线 CHINA丰满人妻VIDEOSHD | 庆余年二免费观看 | 狠狠色丁香婷婷综合 | 一区二区三区精品在线 | 欧美一区二区三区婷婷月色 | 污网站在线免费 | 日日摸夜夜添夜夜添高潮视频 | 99欧美视频一区二区国产 | 男女啪啪做爰高潮无遮挡 | 免费国产在线精品一区 | 亚洲欧美日韩另类一区二区 | 久久九九日本韩国精品 | 秋霞一级国产毛片视频 | 中文字幕日韩高清在线 | 你的约定免费观看 | 唯美xart系列在线播放 | 青青草午夜色影院 | 国产欧美人体大胆一区亚洲性爱一级片 | 大陆精大陆国产国语精品 | 精品一卡2卡三卡4卡乱码仙踪林 | 亚洲精久久| 久久久久国产精品人 | 萧峥小月的小说执掌风云章节更新940 | 美女视频大黄 | 精品久久久久久久久久久久久久久久 | 国产成人精品亚洲日本在线 | 任你躁国产自任一区二区三区 | 人交video另类hd | 99精品无人区乱码1区2区3区 | 日韩性欧美 | 狠狠操人人干 | 男女精品久久 | 在线观看五码 | 欧美色视频在线播放 | 中文字幕小视频 |