以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]别打我，我又来找关于网页的问题了  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132577)
--  作者：zto001
--  发布时间：2019/3/25 12:24:00
--  [求助]别打我，我又来找关于网页的问题了

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文件夹.zip

为什么这个网页我模拟点击跟输入文字输不了？

我需要输入  单号 ，  点击  获取单号信息  。这两个元素都有好几个一样的。
--  作者：有点甜
--  发布时间：2019/3/25 14:31:00
--  

Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").Basecontrol
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim areas As object = web.Document.GetElementsByTagName("textarea")
For Each area As object In areas
    If area.Innerhtml.contains("输入运单号查询") Then
        area.SetAttribute("Value", "123abc")
    End If
Next

Dim btns As object = web.Document.GetElementsByTagName("button")
For Each btn As object In btns
    \'msgbox(btn.InnerHtml)
    If btn.Innerhtml.contains("获取单号信息") Then
        btn.InvokeMember("click")
    End If
Next