上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
bobwu
註冊時間: 2010-03-15 文章: 2
第 1 樓
|
發表於: 星期一 三月 15, 2010 8:52 am 文章主題: 臺灣bingo bingo彩券取數據問題 |
|
|
我能通過IE,輸入條件查詢開獎號,可是這個網頁和一般的不一樣,HTML源碼中并沒有開獎號碼的數據,請各位大大支招!
以下是代碼,內有網址:
LOCAL ox AS "InternetExplorer.Application"
ox = CREATEOBJECT("InternetExplorer.Application")
ox.Navigate(" http://www.taiwanlottery.com.tw/lotto/BingoBingo/drawing.aspx")
ox.Visible = .T.
DO WHILE ox.ReadyState != 4
*等完成
ENDDO
*提交查询条件
ox.Document.form1.__EVENTTARGET.value='Calendar2'
ox.Document.form1.__EVENTARGUMENT.value='3710'
ox.Document.form1.submit()
DO WHILE ox.ReadyState != 4
*等完成
ENDDO
?ox.Document.form1.innerhtml
RETURN
如果能得提取網頁中的開獎號,就可以通過VFP轉換成DBF,還有更好的辦法嗎? |
|
回頂端 |
|
|
nelsonchuang
註冊時間: 2003-09-04 文章: 563 來自: 臺灣
第 2 樓
|
發表於: 星期一 三月 15, 2010 2:49 pm 文章主題: |
|
|
呵,這個方式挺不錯,完成的話,教一下吧~
我也想弄一個來猜開獎號碼 _________________ 大家好,請多指教 |
|
回頂端 |
|
|
LiuRambo
註冊時間: 2007-11-27 文章: 481
第 3 樓
|
發表於: 星期二 三月 16, 2010 11:33 am 文章主題: |
|
|
查了一下
網頁中唯一共通點是開獎號碼屬性中有個CLASS=ball01是一樣的
其他的大家集思廣益唄 |
|
回頂端 |
|
|
andywilliams
註冊時間: 2004-10-23 文章: 111
第 4 樓
|
發表於: 星期三 三月 17, 2010 11:42 am 文章主題: |
|
|
太早取回數據,delay一下吧 |
|
回頂端 |
|
|
bobwu
註冊時間: 2010-03-15 文章: 2
第 5 樓
|
發表於: 星期六 三月 20, 2010 3:59 pm 文章主題: |
|
|
谢谢楼上,解决问题了。 |
|
回頂端 |
|
|
|