| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 677 人关注过本帖, 1 人收藏
标题:[分享]VB彩票数据接口 彩票开奖数据同步
只看楼主 加入收藏
kellyer001
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2015-3-19
收藏(1)
 问题点数:0 回复次数:0 
[分享]VB彩票数据接口 彩票开奖数据同步
VB彩票开奖数据同步.zip (2.75 KB)

主要是从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 编辑 ]
搜索更多相关主题的帖子: 双色球 彩票开奖 七星彩 开奖结果 七乐彩 
2015-03-19 13:04
快速回复:[分享]VB彩票数据接口 彩票开奖数据同步
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016779 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved