福彩网的开奖数据，如何获取？

Question

http://www.cwl.gov.cn/kjxx/ssq/kjgg/以下是需要的数据：
VB如何获取数据啊？
XMLHTPP，取不到数据。

Answer 1

可以分析javascript,也可以通过internetexplorer.application/webbrowser的documentcomplete事件来分析网页元素.
这里给你一个vbs脚本,通过处理internetexplorer.application的documentcomplete事件来取得网页的内容:Set ie = wscript.createobject("internetexplorer.application","ie_")
ie.navigate "http://www.cwl.gov.cn/kjxx/ssq/kjgg/"bQuit = False
While Not bquit
wscript.sleep 1000
WendSub ie_DocumentComplete(ByVal pdisp,ByRef url)
If url = "http://www.cwl.gov.cn/kjxx/ssq/kjgg/" Then
Set colElems = pdisp.document.getelementsbytagname("span")
For Each elem In colelems
If elem.classname = "rq1" Then
result = result & elem.innertext & ","
End If
Next
msgbox result
bquit = True
End If
End Sub运行示例:下载地址:
链接：https://pan.baidu.com/s/1Mp-3mbhG4ju2yXLMaTmFMA 
提取码：vuom