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

主站蜘蛛池模板: 国产成人精品免费久久久久| 老少配老妇老熟女中文普通话| 国产vivodeshd精品| 亚洲最大中文字幕无码网站| 色窝窝无码一区二区三区色欲| 亚洲最大的成人网| 无码人妻丰满熟妇区五十路| 亚洲国产精品毛片av不卡在线| 久久这里只有精品首页| 无码a∨高潮抽搐流白浆| 国产v亚洲v天堂无码网站| 国产成人无码精品一区在线观看| 精品人妻少妇一区二区三区在线| 国产亚洲av片在线观看18女人| 国产精品久久福利网站| 国产精品9999久久久久| 中文有码人妻字幕在线| 中文字幕无码人妻aaa片| 三级做a全过程在线观看| 国语自产偷拍精品视频偷拍| 久久黄色视频| 人妻少妇精品视频三区二区一区| 性一交一乱一伦在线播放| 久久久久国产一区二区| 久久久久久午夜成人影院| 精品久久久无码人妻中文字幕豆芽| 情人伊人久久综合亚洲| 久久超碰97人人做人人爱| 宝宝好涨水快流出来免费视频| 女人喷潮完整视频| 又黄又爽又色的视频| 日本伊人色综合网| 亚洲成av大片大片在线播放| 消息称老熟妇乱视频一区二区| 人妻中出受孕 中文字幕在线| 丰满人妻一区二区三区视频| 最近中文av字幕在线中文| 国产a国产片国产| 国语free性xxxxxhd| 久久精品国产亚洲av久| 国产强被迫伦姧在线观看无码|