vba winsock
来源:互联网 发布:类似魔镜的软件 编辑:程序博客网 时间:2024/06/05 07:20
以服务端为例,一般的步骤是:
先设置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
- vba winsock
- Winsock
- Winsock
- winsock
- WinSock
- WINSOCK
- Winsock
- WinSock
- WInsock
- winsock
- winsock
- winsock
- winsock
- winsock
- winsock
- WinSock
- winsock
- winsock
- Android试题
- 最简单的 spring MVC
- Android layout xml总结
- u-boot-2011.06在基于s3c2440开发板的移植之支持YAFFS2
- PHP中的$this关键字
- vba winsock
- S3C2410A.S
- C#设计模式
- Ubuntu10.04 安装 水星MW150U无线网卡驱动 8176 realtek
- 浅析Java抽象类和接口的比较
- tomcat部署web项目的几种方法
- Linux-网桥原理分析(二)
- 教你隐藏 iOS Cydia 的更新提示
- 【PHP】图片验证码 - micool-safecode