奖励QQ会员1个月。就差这1步了，获取IE数据的问题，求帮助
本帖最后由 jienis 于 2012-9-4 12:08 编辑#include <IE.au3>
$oIE = _IEAttach("http://www.okooo.com/fastlottery/PK10/shahao/n2","url")
$Ele = _IETagNameGetCollection($oIE,"SPAN",224)
MsgBox(0,"元素html",$Ele.outerhtml)
这个程序是用来获取最新的福利彩票PK10的数据，因为是每5分钟就开奖1次的，所以这个最新的数据也会更新。但是每次获取的都是老数据，要我自己手动去刷新这个网页才可以获取到最新的。
需要怎么改进？例如获取前先刷新一下。如何刷新啊···
求帮助啊·给金钱奖励啊···反正目的就只有1个，就是要获取最新的PK10开奖数据·别的网站也行·求大神帮忙··· 我用这个来获取PK10的数据，但自己要先打开着这个网页。。一关就没了。而且数据要我手动去刷新网页·程序才能正常获取··怎么办·帮忙下·· 本帖最后由 ajian55 于 2012-9-4 14:38 编辑
我是冲着Q币来的~#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$oIE = _IECreateEmbedded ()
$hWin = GUICreate("Embedded Web control Test", 640, 580)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 640, 580)
;GUISetState() ;显示窗口
_IENavigate ($oIE, "http://www.okooo.com/fastlottery/PK10/shahao/n2")
_IELoadWait($oIE)
$htmltxt = _IEBodyReadText ( $oIE )
$qihao = StringRegExp($htmltxt, "(.*?)当前期杀号", 3)
$lastqihao = Number($qihao)-1
$kaijiang = StringRegExp($htmltxt, $lastqihao&"(.{29})", 3)
MsgBox(0,"元素html",$kaijiang, 3, $hWin)
$kaijiang0 = $kaijiang
AdlibRegister("MyAdlib", 30000) ;每30秒刷新一次
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd
GUIDelete()
Exit
Func MyAdlib()
_IENavigate ($oIE, "http://www.okooo.com/fastlottery/PK10/shahao/n2")
$htmltxt = _IEBodyReadText ( $oIE )
$qihao = StringRegExp($htmltxt, "(.*?)当前期杀号", 3)
$lastqihao = Number($qihao)-1
$kaijiang = StringRegExp($htmltxt, $lastqihao&"(.{29})", 3)
If $kaijiang <> $kaijiang0 Then
MsgBox(0,"元素html",$kaijiang, 3, $hWin)
$kaijiang0 = $kaijiang
EndIf
EndFunc
回复 3# ajian55
运行了没反应··联系我QQ吧···非常感谢··QB不是问题的··必须的···· 我是冲着Q币来的~ 每过1分钟就重新运行IE一次，将各种变量清空，然后再次读取，试试吧 运行报错了。。。 回复 1# jienis
搞定没有,没搞定可以联系我,QQ 375703342
页:
[1]