Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").Basecontrol
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim inputs = web.Document.GetElementsByTagName("textarea")
For Each Input As object In Inputs
If Input.GetAttribute("classname") = "z_value z_handleResult"
Input.SetAttribute("Value", "处理结果")
End If
Next
Dim inputs1 = web.Document.GetElementsByTagName("input")
For Each Input1 As object In Inputs1
If Input1.GetAttribute("classname") = "z_value z_website"
Input1.SetAttribute("Value", "对方网点")
End If
If Input1.GetAttribute("classname") = "z_value z_tell"
Input1.SetAttribute("Value", "对方电话")
End If
If Input1.GetAttribute("classname") = "z_value z_accepter"
Input1.SetAttribute("Value", "对方受理人")
End If
Next