WebBrowser打不开网页，系统浏览器可以，求解。
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 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
Next

End Sub

--------------------------------------------------------------------------

现在求取这个网页的验证码方法：http://www.eaysun.com/incs/loginverify.asp

[解决办法]

VB code

Private Sub Form_Load()WebBrowser1.Navigate "about:blank"DoEventsWebBrowser1.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
[解决办法]
这个页面直接返回的是一个图片,你要以图片方式加载它.

使用WINSOCK或INET应该能直接得到它的二进制流.

而使用WEBBROWSER的话,需要用段代码:

VB code
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
[解决办法]
这样就OK了，就是加一行DOEVENTS


VB code
Private Sub Form_Load()DoEventsWeb1.Navigate "http://www.eaysun.com/incs/loginverify.asp"End Sub
[解决办法]
VB code
Private Sub Form_Load()DoEventsWeb1.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