引用:
On Error Resume Next '有错误就接重新开始 Inet1.AccessType = 2 Inet1.RequestTimeout = 60 Inet1.Proxy = "HTTP=" & "59.74.42.152" & ":" & "8080" Inet1.OpenURL (" http://www.baidu.com/") MsgBox Val(Mid(Trim(Inet1.GetHeader), 10, 3)) If Err Then If Err.Number = 35756 Then MsgBox "代理不可用" MsgBox Err.Number & ":" & Err.Description '出错信息输出 End If End Sub