WebBrowser打不开网页，系统浏览器可以，求解。

Question

WebBrowser1.Navigate "http://www.eaysun.com/incs/loginverify.asp"用这个控件打开后面的网页，提示“无法加载”，但是系统浏览器访问正常，求解决方法。我是想获取这个网页里面的验证码输入到Image控件，但是现在都不能打开这个页面。下面是取得验证码的代码，下面的代码提取其他网页的验证码测试通过，例如这个：http://www.monternet.com/authcode--------------------------------------------------------------------------------------------------------------Private Sub Form_Load()
WebBrowser1.Navigate "http://www.eaysun.com/incs/loginverify.asp"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim X, CtrlRange
    Dim ii As Long
    ii = 0
    For Each X In WebBrowser1.Document.All
        If X.tagname = "IMG" Then
               If LCase(X.src) = "http://www.eaysun.com/incs/loginverify.asp" Then
               Set CtrlRange = WebBrowser1.Document.body.createControlRange()
                CtrlRange.Add (X)
                CtrlRange.execCommand ("Copy") '获取验证码
                Image1.Picture = Clipboard.GetData '在Image1控件上显示
                Exit Sub
                End If
                ii = ii + 1
        End If
    NextEnd Sub--------------------------------------------------------------------------------------------------------------现在求取这个网页的验证码方法：http://www.eaysun.com/incs/loginverify.asp

Answer 1

测试通过了
WebBrowser1.Navigate "about:blank"
DoEvents
WebBrowser1.Navigate "http://www.eaysun.com/incs/loginverify.asp" ', , , , "Referer:http://www.eaysun.com/" & vbCrLf
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  Dim X, CtrlRange
  Dim ii As Long
  ii = 0
  For Each X In WebBrowser1.Document.All
  If X.tagname = "IMG" Then
  If LCase(X.src) = "http://www.eaysun.com/incs/loginverify.asp" Then
  Set CtrlRange = WebBrowser1.Document.body.createControlRange()
  CtrlRange.Add (X)
  CtrlRange.execCommand ("Copy") '获取验证码
  Image1.Picture = Clipboard.GetData '在Image1控件上显示
  Exit Sub
  End If
  ii = ii + 1
  End If
  NextEnd Sub

Answer 2

Private Sub Form_Load()
WebBrowser1.Navigate "about:blank"
DoEvents
WebBrowser1.Navigate "http://www.eaysun.com/incs/loginverify.asp"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  Dim X, CtrlRange
  Dim ii As Long
  ii = 0
  For Each X In WebBrowser1.Document.All
  If X.tagname = "IMG" Then
  If LCase(X.src) = "http://www.eaysun.com/incs/loginverify.asp" Then
  Set CtrlRange = WebBrowser1.Document.body.createControlRange()
  CtrlRange.Add (X)
  CtrlRange.execCommand ("Copy") '获取验证码
  Image1.Picture = Clipboard.GetData '在Image1控件上显示
  Exit Sub
  End If
  ii = ii + 1
  End If
  NextEnd Sub

Answer 3

这个页面直接返回的是一个图片,你要以图片方式加载它.使用WINSOCK或INET应该能直接得到它的二进制流.而使用WEBBROWSER的话,需要用段代码:Option ExplicitPrivate Sub Form_Load()
    WebBrowser1.Navigate "about:blank"
End SubPrivate Sub Command1_Click()
    WebBrowser1.Document.body.innerHTML = "<IMG height=28 src=""http://www.eaysun.com/incs/loginverify.asp"" width=""100"">"
End Sub

Answer 4

这样就OK了，就是加一行DOEVENTS
Private Sub Form_Load()
DoEvents
Web1.Navigate "http://www.eaysun.com/incs/loginverify.asp"
End Sub

Answer 5

Private Sub Form_Load()
DoEvents
Web1.Navigate "http://www.eaysun.com/incs/loginverify.asp"
End SubPrivate Sub Web1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
  Dim X, CtrlRange
  Dim ii As Long
  ii = 0
  For Each X In Web1.Document.All
  If X.tagname = "IMG" Then
  If LCase(X.src) = "http://www.eaysun.com/incs/loginverify.asp" Then
  Set CtrlRange = Web1.Document.body.createControlRange()
  CtrlRange.Add (X)
  CtrlRange.execCommand ("Copy") '获取验证码
  Image1.Picture = Clipboard.GetData '在Image1控件上显示
  Exit Sub
  End If
  ii = ii + 1
  End If
  NextEnd Sub