Dim web As new System.Windows.Forms.WebBrowser
web.ScriptErrorsSuppressed = True
web.Navigate("http://data.10jqka.com.cn/market/longhu/")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim t = web.Document.GetElementById("ggmx")
t.SetAttribute("Value","2017-03-28")
For Each input As object In web.Document.GetElementById("ggmx").GetElementsByTagName("input")
If input.GetAttribute("ClassName") = "m_text_date startday" Then
input.InvokeMember("click")
Exit For
End If
Next
Do Until web.Document.GetElementById("ggmx").GetElementsByTagName("span")(0).InnerText = "2017-03-28"
Application.DoEvents
Loop
'去掉上面红色代码运行可以抓取到,最后一次更新的数据,设想用红色代码模拟点击日期选择框,实现日期选择功能,
'但始终没能修改成功,不知是否可以?也不知代码错在哪里?请老师指正.
For Each div As object In web.Document.GetElementsByTagName("div")
If div.GetAttribute("ClassName") = "stockcont" Then
For Each tr As object In div.GetElementsByTagName("tr")
Dim str As String = ""
Dim tds = tr.GetElementsByTagName("td")
For i As Integer = 0 To tds.count - 1
str &= tds(i).InnerText & " "
Next
output.show(str)
Next
End If
Next
加好友 
发短信
Post By：2017/4/6 11:39:00 [只看该作者]
