当绑定时，所有的网卡都出故障怎么处理.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 22 行

程 序 修 改 如 下 ： 
     Err.Clear 
     On Error Resume Next 
     For i = 0 To UBound(IPAddress) 
     Winsock_bc.Protocol = sckUDPProtocol 
     Winsock_bc.RemotePort = 4000 
     Winsock_bc.LocalPort = 4000 
     Winsock_bc.RemoteHost = RemoteHost(i) 
     Winsock_bc.Bind nLocalPortIPAddress(i) 
     If Err.Number = 0 Then 
     IsOneWorking = True 
     Exit For 
     Else 
     Winsock_bc.Close 
     Err.Clear 
     End If 
     Next 
     
     If NOT IsOneWorking Then 
     MsgBox "当 前 网 络 中 没 有 一 块 网 卡 可 用 !", vbOKOnly, "网 络 连 接 错 误 " 
     End If 
<END>