在VBA中调用winsock控件

在VBA中调⽤winsock控件
如果系统没有Winsock控件的话，可以下载下⾯的控件MSWINSCK.OCX，然后将该⽂件复制到C:\Windows\System32⽬录下。

在VBE窗⼝中，从菜单“⼯具”->“引⽤”中，点击“浏览”按钮，选择MSWinSCK.ocx⽂件，再从“⼯具箱”的“附加控件”中选择Microsoft Winsock Control。

此时使⽤Winsock控件的话，将会出现提⽰不安全的ActiveX控件的提⽰。

可以点击同时下载的REG⽂件注册该控件即可。

(48.41 KB, 下载次数: 495)
⼀般在Excel的窗体中添加Winsock控件。

使⽤Winsock控件的应⽤程序⼀般是Client/Server结构，也就是客户端/服务器端。

以服务端为例，⼀般的步骤是：
先设置LocalPort本地端⼝，然后使⽤Listen⽅法侦听数据请求。

然后处理ConnectionRequest和DataArrival事件。

使⽤完后使⽤Close⽅法关闭连接。

Private Sub UserForm_Initialize()
Winsock1.LocalPort = 1999
Winsock1.Listen
End Sub
Private Sub UserForm_Terminate()
Winsock1.Close
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Buffer() As Byte
TransferedBytes = TransferedBytes + bytesTotal
ReDim Buffer(bytesTotal - 1)
Winsock1.GetData Buffer, vbArray + vbByte
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Debug.Print "Sock Err:" & Description
End Sub
⽽客户端的⼀般步骤如下：
设置远程服务器端⼝RemotePort属性，然后使⽤Connect⽅法连接。

处理ConnectionRequest和DataArrival事件。

发送数据就直接使⽤Send⽅法就可以了，可以发送字符串或者Byte数组。

Private Sub UserForm_Initialize()
Winsock1.RemoteHost = "127.0.0.1"
Winsock1.RemotePort = 2999
Winsock1.Connect
End Sub
Private Sub UserForm_Terminate()
Winsock1.Close
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData, vbString
If strData = "OK" Then
Winsock1.Close
Winsock1.RemotePort = 1999
Winsock1.Connect
MsgBox "You can send file now"
End If
End Sub。