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

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