欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

vfp怎么截取彩票网站的实时开奖数据

更新时间: 2014-01-05 02:27:18 责任编辑: Author_N1

 

vfp如何截取彩票网站的实时开奖数据

--参考方法--
SET SAFETY OFF 
IF NOT FILE([OLDSSC.DBF])
   Create TABLE OLDSSC (期号 C(11), 开奖号码 C(5))
ENDIF
oIE = Createobject("internetexplorer.application")
oIE.Visible = .F.
oIE.Navigate("http://cp.360.cn/ssccq?a=wyss")
tStartSecond = Seconds()
Do While oIE.Busy = .T. Or oIE.ReadyState#4
   If Seconds() - tStartSecond > 10
      Exit
   Endif
   =Inkey(0.5)
Enddo
cHtml=STREXTRACT(oIE.Document.Body.InnerHtml,[<TBODY id=kjcodelist],[</EM></TD>])+[</EM></TD>]
SELECT * FROM OLDSSC WHERE 期号==TRANSFORM(YEAR(DATE()))+STREXTRACT(cHtml,[<TD>],[</TD>]) INTO CURSOR T
IF RECCOUNT([T])=0
   INSERT INTO OLDSSC VALUES (TRANSFORM(YEAR(DATE()))+STREXTRACT(cHtml,[<TD>],[</TD>]),CHRTRAN(STREXTRACT(cHtml,[<EM class=red>],[</EM></TD>]),[ ],[]))
ENDIF
oIE.Quit()
Go Top
Browse Last

将上面的代码放在计时器控件的TIMER事件中,然后再设置间隔时间,白天600秒,晚上300秒获取一次数据。自己设计吧。
--参考方法--



Clear
Wait Window "请稍等片刻......" Nowait
oIE = Createobject("internetexplorer.application")
oIE.Visible = .T.
oIE.Navigate("http://cp.360.cn/ssccq?a=wyss")
tStartSecond = Seconds()
Do While oIE.Busy = .T. Or oIE.ReadyState#4
    If Seconds() - tStartSecond > 10  && Or 10+
        Exit
    Endif
    Inkey(0.5)
Enddo

Create Cursor 老时时彩 (期号 C(8), 开奖号码 C(10), 十位 C(4), 个位 C(4), 后三 C(4))

objTable = oIE.Document.getElementsByTagName("table").[6]

For Each objRow In objTable.Rows
    If objRow.cells(1).innertext <> "期号"
        Insert Into 老时时彩 (期号, 开奖号码, 十位, 个位, 后三);
            Values (objRow.cells(0).innertext, ;
            objRow.cells(1).innertext, objRow.cells(2).innertext, ;
            objRow.cells(3).innertext, objRow.cells(4).innertext)
    Endif
Next

Wait Window "完成." Timeout 3

oIE.Quit()

Browse Last Title "老时时彩"
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:27:18
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/9983/
本文WWW.DOC100.NET DOC100.NET版权所有。