Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("http://pv.sohu.com/cityjson#%20设置编码http://pv.sohu.com/cityjson?ie=utf-8")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim tb As object = web.Document.GetElementsByTagName("table")(2)
Dim trs = tb.GetElementsByTagName("tr")
For i As Integer = 0 To trs.count-1
Dim tds As object = trs(i).GetElementsByTagName("td")
For j As Integer = 0 To tds.count-1
output.show(i & "行" & j & "列:" & tds(j).innerText)
Next
Next
这个代码有错误
加好友 
发短信
Post By：2022/6/9 8:58:00 [显示全部帖子]
