Dim web As new System.Windows.Forms.WebBrowser
web.ScriptErrorsSuppressed = True
web.Navigate("http://www.sooxue.com/college/score/23")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
For Each tr As object In web.Document.GetElementById("scoreTable").GetElementsByTagName("tr")
Dim tds = tr.GetElementsByTagName("td")
For j As Integer = 0 To tds.count - 1
output.show(tds(j).innerText)
Next
Next
默认：北京市、本科提前批、文理综合
如选择：重庆市、本科第一批、理科
如何处理？谢谢！
加好友 
发短信
Post By：2017/6/6 21:49:00 [只看该作者]
