只有本站会员才能查看附件，请 登录
主要是从500彩票网站采集的开奖结果.希望有帮助.
新建一个窗体,一个按钮,Command1 ,三个文本框 text1,text2,text3
text3 可填写1,10,30,100,(最近期数)
text2填类别
点击Command1后,text1显示结果
不过只有2015年的数据
Private Sub Command1_Click()
'text3 可填写1,10,30,100,
'类别
'sfc 胜负彩
'jq4
'zc6
'pls 排列三
'plw 排列五
'qxc 七星彩
'dlt 大乐透
'ssq 双色球
'3d1 3d
'qlc 七乐彩
Dim xmlhttp
Dim res As String
Set xmlhttp = CreateObject("msxml2.xmlhttp")
With xmlhttp
.open "POST", "http://favweb.vicp.cc:41866/lottery/s30.asp", False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send "lotqi=" & Me.Text3 & "&lotclass=" & Me.Text2
res = .responseText
End With
Set xmlhttp = Nothing
res = Replace(res, ";", vbCrLf)
Me.Text1 = res
End Sub
[ 本帖最后由 kellyer001 于 2015-3-19 13:46 编辑 ]