|
一、winsock.ocx 控件 1、控件下載 我的共享地址https://pan.baidu.com/s/1jItc4mi 2、控件注冊(cè) 將MSWINSCK.OCX拷貝到C盤自建的目錄下（以后需要注冊(cè)的如dll都放在這里）如：c:\userdll 運(yùn)行cmd，通過cd命令到達(dá)c:\userdll目錄，輸入： regsvr32 MSWINSCK.OCX 3、調(diào)用控件 3.1打開wincc，新建一個(gè)頁面，在控件中選擇 Micsoft WinSock Control,version6.0(SP6)  控件欄變?yōu)?/div>
 在頁面中添加控件，控件屬性頁如圖
 二、添加通訊代碼（最簡(jiǎn)代碼）
1、添加一個(gè)按鈕控件，按鈕單擊VBS動(dòng)作代碼如下 ?Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y) Dim Obj_SockClient
Dim cnvt Set Obj_SockClient = ScreenItems("控件1") '控件1為winsock控件
Set cnvt = CreateObject("ADS.ArrayConvert") Obj_SockClient.Protocol = "sckTCPProtocol" ?Obj_SockClient.RemoteHost = "192.168.128.128" '上面的IP是本機(jī)的IP地址 ?Obj_SockClient.RemotePort = 1020 ?If (Obj_SockClient.State = 0) Or (Obj_SockClient.State = 9) Or (Obj_SockClient.State = 8) Then Obj_SockClient.Close Obj_SockClient.Connect End If Obj_SockClient.SendData cnvt.CvHexStr2vOctetStr("01000000000000000000")
End Sub 2、需要下載ADS.ArrayConvert文件我的共享地址：?http://pan.baidu.com/s/1slz9J4L 三、使用TCP調(diào)試助手功能驗(yàn)證 我的共享地址：http://pan.baidu.com/s/1nvzbRWd 1、用TCP調(diào)試助手建立一個(gè)虛擬服務(wù)器，本地端口是1020對(duì)應(yīng)語句 ?（?Obj_SockClient.RemotePort = 1020 ）  點(diǎn)擊發(fā)送的到結(jié)果說明發(fā)送操作正確了。
 ? |
|
|
