亚洲国产精品一区二区久久hs,国产精品久久久久久久久久直播,亚洲人成色7777在线观看不卡,国产亚洲精品久久19p,免费无码又爽又刺激高潮视频

beiye1234
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 255 個(gè)
工控威望: 282 點(diǎn)
下載積分: 914 分
在線時(shí)間: 250(小時(shí))
注冊(cè)時(shí)間: 2010-02-05
最后登錄: 2017-07-31
查看beiye1234的 主題 / 回貼
樓主  發(fā)表于: 2011-04-15 20:36
請(qǐng)教各位關(guān)于VB6.0與S7-200以太網(wǎng)通訊(Winsock),本人剛接觸VB6.0。
要求:對(duì)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 '目標(biāo)地址
sendstr(4) = &HFF
sendstr(5) = &H0 '線圈置1
sendstr(6) = &H0 '校驗(yàn)碼
sendstr(7) = &H0 '校驗(yàn)碼
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

用以太網(wǎng)鏈接測(cè)試,沒(méi)效果。

這個(gè)程序那個(gè)地方有問(wèn)題?應(yīng)該怎么改。
[ 此帖被beiye1234在2011-04-16 11:21重新編輯 ]

主站蜘蛛池模板: 新婚少妇无套内谢国语播放| 精品久久久久久无码中文字幕一区| 天堂资源官网在线资源| 白天躁晚上躁麻豆视频| 少妇人妻互换不带套| 欧美精品亚洲精品日韩专区| 亚洲av成人片无码网站网| 久久精品午夜一区二区福利| 亚洲第一区欧美国产综合| 囯产精品一品二区三区| 久久66热人妻偷产精品9| 无码国产精品一区二区免费i6| 精品国产一区二区三区av 性色| 性满足bbwbbwbbw| 国产精品久久久久jk制服| 久久久久99精品成人片试看| 色欲老女人人妻综合网| 小13箩利洗澡无码视频免费网站| 一区二区精品视频日本| 亚洲精品无码人妻无码| 欲妇荡岳丰满少妇岳| 麻豆精品一区二区综合av| 7777精品伊人久久久大香线蕉| 久久99国产乱子伦精品免费| 狂野欧美性猛交xxxx| 99久久精品费精品国产一区二区| 国产精品亚洲а∨天堂2021| 国产强伦姧在线观看| 人妻中出受孕 中文字幕在线| 国产亚洲精品无码成人| 久久婷婷五月综合97色一本一本| 嫖妓丰满肥熟妇在线精品| 俺去俺来也在线www色官网| 亚洲va无码手机在线电影| 亚洲av无码一区东京热久久| 顶级欧美色妇xxxxx| 国产精品成人午夜久久| 国产成人8x视频网站入口| 精品免费人成视频app| 制服 丝袜 人妻 专区一本| 日产精品久久久久久久蜜臀 |