?? 當綁定時,所有的網卡都出故障怎么處理.txt
字號:
程 序 修 改 如 下 :
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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -