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

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

oIE = Createobject("internetexplorer.application")

oIE.Visible = .F.

oIE.Navigate("http://baidu.lecai.com/lottery/draw/view/200?phase=20130930113&agentId=5555")

tStartSecond = Seconds()

Do While oIE.Busy = .T. Or oIE.ReadyState#4

    If Seconds() - tStartSecond > 10

        Exit

    Endif

    =Inkey(0.5)

Enddo



Create Cursor 时时彩 (期号 C(11), 时间 C(19), 号码 C(9))



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



For Each objRow In objTable.Rows

    If objRow.cells(0).innertext <> "期号"

        Insert Into 时时彩 (期号, 时间, 号码);

            Values (objRow.cells(0).innertext, ;

            objRow.cells(1).innertext, objRow.cells(2).innertext)

    Endif

Next



Wait Window "完成." Timeout 3



oIE.Quit()



Go Top

Browse Last Title "时时彩"