亚洲国产精品一区二区久久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重新編輯 ]

主站蜘蛛池模板: 国产亚洲美女精品久久久2020| 国产乱人对白| 国产成人亚洲精品无码av大片| 久久天堂av综合合色蜜桃网| 扒开双腿猛进入喷水高潮叫声| 免费无码av片在线观看播放| 潮喷大喷水系列无码久久精品| 日日躁夜夜躁狠狠躁超碰97| 日韩丰满少妇无吗视频激情内射| 中文字幕无码人妻aaa片| 人妻美妇疯狂迎合| 欧美第一黄网免费网站| 亚洲av无码成人黄网站在线观看 | 久久亚洲色www成人欧美| 婷婷开心色四房播播| 黑人教练与人妻小茹阅读| 亚洲av午夜精品无码专区| 免费又黄又爽又猛的毛片| 蜜桃网站入口可看18禁| 无码少妇一区二区三区| 性色av一二三天美传媒| 欧美换爱交换乱理伦片| 污18禁污色黄网站| 狠狠综合亚洲综合亚洲色| 亚洲精品午夜久久久伊人| 国产精品免费av片在线观看| 日韩欧美中文字幕公布| 亚洲av无码乱码在线观看牲色| 中文字幕一区二区三区精华液| 久久国产精品-国产精品| 亚洲伊人成综合网| 国产精品久久久久久av| 国产一起色一起爱| 精品无码一区二区三区亚洲桃色| 国产精品久久久久影院嫩草| 国产成人精品aa毛片| 亚洲真人无码永久在线观看| 国产午夜伦鲁鲁| 99精品无人区乱码在线观看| 美女脱了内裤张开腿让男人桶网站 | 999久久久无码国产精品|