再提一个问题，在下面的网页（服务器的，不是本地的），提取查询结果，可以不？
e.Form.Controls("WebBrowser1").address="M:\临床医生工作平台 ( GD-CWP )333.htm"
Dim drr01 As String = e.Form.Controls("textbox2").text '用于输入住院号
Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("M:\临床医生工作平台 ( GD-CWP )333.htm")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
web.Document.GetElementById("searchFilter.clinicHospitalno").SetAttribute("Value","") '输入住院号查询
web.Document.GetElementById("searchFilter.clinicHospitalno").SetAttribute("Value","14522") '输入住院号查询
web.Document.GetElementById("searchFilter.timeFilterType").SetAttribute("Value","不过滤") '输入住院号查询
Dim hec As System.Windows.Forms.HtmlElementCollection = web.Document.GetElementsByTagName("input")
For i As Integer = 0 To hec.Count-1
If hec(i).OuterHtml.Contains("查 询") Then
hec(i).InvokeMember("click")
web.Navigate("M:\临床医生工作平台 ( GD-CWP )333.htm")
' Exit For
End If
Next
[此贴子已经被作者于2015/2/12 23:36:57编辑过]
加好友 
发短信
Post By：2014/5/25 17:45:00 [显示全部帖子]
