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

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 "老时时彩"