主题：怎么获取网页内容并操作网页

我这样写报错

 

Do Until web.Document.Body.InnerHtml.Contains("自定义模式")
    Application.DoEvents
Loop

If web.Document.Body.InnerHtml.Contains("自定义模式")
    MessageBox.Show("包含")
End If

 

 

 

此主题相关图片如下：aa.png

第一次点击按钮出现上面的错误，再次点击好像运行成功

 

 

 

此主题相关图片如下：bb.png

我测试没问题

 

Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").basecontrol
web.Navigate("http://wap.pceggs.com/play/pc28.aspx")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
Dim lis As System.Windows.Forms.HtmlElementCollection = web.Document.GetElementsByTagName("li") '获得当前页面的A标签HTML元素集合
Dim count As Integer = 0
For Each li As object In lis
    If li.GetAttribute("ClassName") = "kj_white_line" Then
        count += 1
        If count = 4 Then
            li.GetElementsByTagName("a")(0).InvokeMember("Click") '执行该标签的点击方法,实现
            Do Until web.Document.Body.InnerHtml.Contains("自定义模式")
                Application.DoEvents
            Loop
           
            If web.Document.Body.InnerHtml.Contains("自定义模式")
                MessageBox.Show("包含")
            End If
           
            Exit For
        End If
    End If
Next

我试了还是报错，不知道什么原因，bin文件夹也删了

那你就判断一下，不然就判断一下哪里出问题

 

Do Until  web.Document.Body IsNot Nothing AndAlso web.Document.Body.InnerHtml.Contains("自定义模式")

好的，非常感谢你的热心帮助

红袍大师，好消息，不报错了

请教老师，当使用InvokeMember("Click") 模拟点击网页超链接，当碰到这种<a href='javascript:personmode(1)'>50</a>链接的时候，是不是要经过其他处理才能正常打开链接后的页面

如图提示报错

 

此主题相关图片如下：dd.png

问题解决了，估计是页面没有加载完整

加一句

 

web.ScriptErrorsSuppressed = True

 

如果还有问题，上传具体例子。