引用：
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
