主题：[求助]别打我，我又来找关于网页的问题了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文件夹.zip

我需要输入  单号 ，  点击  获取单号信息  。这两个元素都有好几个一样的。

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