VB6 Winsock的Bind的4种绑定法，不给具体例子了，直接给部分代码
发表于 今天 15:20
返回列表With Winsock1
If .State ＜＞ sckClosed Then .Close
'绑定
If lngLocalPort = 0 And strLocalIP = "" Then .Bind
If lngLocalPort = 0 And strLocalIP ＜＞ "" Then .Bind 0, strLocalIP '效果同不定义--＞ .Bind , strLocalIP
If lngLocalPort ＜＞ 0 And strLocalIP = "" Then .Bind lngLocalPort
If lngLocalPort ＜＞ 0 And strLocalIP ＜＞ "" Then .Bind lngLocalPort, strLocalIP
End With测试下来
.Bind 0, strLocalIP
就是
.Bind , strLocalIP端口0会让Winsock1自动找空闲端口，如果strLocalIP给的IP，比如"192.168.1.8"不是当前计算机可用IP会报错。
