本大菜鸟正根据网上的教程，学着设计一简单的vb浏览器（用WebBrowser控件），谁知道这才一开始就问题不断了...'这一步很顺利，让我信心徒增，差点就要向老比叫板了...
Private Sub Form_Load()
WebBrowser1.Navigate "url1"
End Sub'可是，紧接下来的就开始出问题了，如下：
Private Sub WebBrowser1_DownloadComplete()
Dim webtxt As String
webtxt = WebBrowser1.Document.documentElement.InnerHtml
If InStr(webtxt, "不能链接到您请求的网页") > 0 Then
WebBrowser1.Navigate "url2"
End If
End Sub当运行上面这段代码时，出现“实时错误‘91’的提示框”，提示内容：对象变量或with块变量未设置。按调试钮后，高亮显示这一错误代码行：webtxt = WebBrowser1.Document.documentElement.InnerHtml我试了很多网上介绍的方法，都不行！补充说明：测试时我是断开网线的。我的本意是这样的：如果因为网络原因不能打开url1，就转为打开url2。（url1如果打不开，上面有“不能链接到您请求的网页”字符串 ）我就是想通过这样的判断来达到目的...真的是冰火两重天啊，自信心又一次受到严重的打击！也庆幸刚刚没有向老比发难...恳请高手帮忙分析下，这代码到底错在哪？或者说，有什么其他的方法能够达到我上面说的目的？本菜鸟在此先谢了......
Private Sub Form_Load()
WebBrowser1.Navigate "url1"
End Sub'可是，紧接下来的就开始出问题了，如下：
Private Sub WebBrowser1_DownloadComplete()
Dim webtxt As String
webtxt = WebBrowser1.Document.documentElement.InnerHtml
If InStr(webtxt, "不能链接到您请求的网页") > 0 Then
WebBrowser1.Navigate "url2"
End If
End Sub当运行上面这段代码时，出现“实时错误‘91’的提示框”，提示内容：对象变量或with块变量未设置。按调试钮后，高亮显示这一错误代码行：webtxt = WebBrowser1.Document.documentElement.InnerHtml我试了很多网上介绍的方法，都不行！补充说明：测试时我是断开网线的。我的本意是这样的：如果因为网络原因不能打开url1，就转为打开url2。（url1如果打不开，上面有“不能链接到您请求的网页”字符串 ）我就是想通过这样的判断来达到目的...真的是冰火两重天啊，自信心又一次受到严重的打击！也庆幸刚刚没有向老比发难...恳请高手帮忙分析下，这代码到底错在哪？或者说，有什么其他的方法能够达到我上面说的目的？本菜鸟在此先谢了......
Internet Explorer 不能链接到您请求的网页。此页可能暂时不可用。 --------------------------------------------------------------------------------请尝试以下操作:单击刷新按钮，或以后再试。如果您以前查看过该页，现在要查看计算机上存储的内容，请单击文件，然后单击脱机工作。要获得有关使用 Internet Explorer 脱机浏览的信息，请单击帮助菜单，然后单击目录和索引。
Internet Explorer
可是，现在连这错误页都没办法读取了...
webtxt = WebBrowser1.Document.documentElement.InnerHtml
end if
这样看看
我是企业版的,不知道其他版本有没有
试试吧