vb inet 访问 35756

引用：

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