vb读取网页内容(做彩票工具)

来源:百度知道 编辑:UC知道 时间:2024/05/05 20:05:46
本人是VB新手,看了好多相关方面的内容也还是没有解决这个问题.所以不得不老问题再问一次.谢谢大家了,
两个问题:
1,我想自己做一个时时彩的分析工具,但是开奖数据呢能够时时更新,
2.如果我有一天没有更新,在下一次更新时能够自动补上中间没有更新的数据.

数据来源推荐网站:1,http://www.shishicai.cn/Assist/BonusVideo.aspx
2,http://www.500wan.com/pages/info/ssc/

如果能帮我解决这两个问题,必定重谢.
不一定需要有源代码,能指导我完成也可以,如果有执行的源代码当然更好.
完成一个问题给10分,一共20分.
如果我看了好用,再加10分.非常感谢.
smh1982 : 你好,
我给你发在线消息了,你有收到吗?

用winsock将下面这个带回车符的字符串发送过去就行了,再分析返回。
strADD = "GET /Assist/BonusVideo.aspx HTTP/1.1"
strADD = strADD & vbCrLf & "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, application/x-silverlight, application/QVOD, Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, application/x-silverlight, application/QVOD, */*"
strADD = strADD & vbCrLf & "Referer: " & strREF
strADD = strADD & vbCrLf & "Accept-Language: zh-cn"
strADD = strADD & vbCrLf & "UA-CPU: x86"