求助：模拟网页点击“搜索”操作出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

http://search.jcrb.com/was5/web/gzwengan.html打开得到下图

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

点击搜索后会新弹窗打开【问题1：是否可以不弹窗呢？而是直接获取源代码】

http://search.jcrb.com/was5/web/search?searchword=&channelid=263328&imageField.x=23&imageField.y=19

显示当前文章全部列表

模拟网页点击操作代码如下：【问题2：模拟点搜索，结果出错，不能操作得到搜索结果，搜索字可以为空搜索】

Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").Basecontrol

web.Navigate("http://search.jcrb.com/was5/web/gzwengan.html")

Do Until web.ReadyState = 4

Application.DoEvents

Loop

web.Document.GetElementById(" ").InvokeMember("click") 红色部分该怎么写呢？因为该页面没有ID标签，

运行后弹框

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

下面是网页源代码：

<tr>

</td>

</td>

</tr>

</form>

</Table>

</body>

1、web.ScriptErrorsSuppressed = True

2、

Dim inputs = web.Document.GetElementsByTagName("input")
For Each Input As object In Inputs
    If Input.GetAttribute("name") = "imageField"
        Input.InvokeMember("click")
    End If
Next

[此贴子已经被作者于2016/11/2 18:47:26编辑过]

3、

Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").Basecontrol
web.ScriptErrorsSuppressed = True
web.Navigate("http://search.jcrb.com/was5/web/gzwengan.html")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
For Each archor As object In web.Document.Forms
    archor.SetAttribute("target", "_self")
Next
Dim inputs = web.Document.GetElementsByTagName("input")
For Each Input As object In Inputs
    If Input.GetAttribute("name") = "imageField"
        Input.InvokeMember("click")
    End If
Next

主题：求助：模拟网页点击“搜索”操作出错