奖励QQ会员1个月。就差这1步了，获取IE数据的问题，求帮助

jienis

#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开奖数据·别的网站也行·求大神帮忙···

jienis

我用这个来获取PK10的数据，但自己要先打开着这个网页。。一关就没了。而且数据要我手动去刷新网页·程序才能正常获取··怎么办·帮忙下··

ajian55

我是冲着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[0])-1
$kaijiang = StringRegExp($htmltxt, $lastqihao&"(.{29})", 3)
MsgBox(0,"元素html",$kaijiang[0], 3, $hWin)

$kaijiang0 = $kaijiang[0]

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[0])-1
        $kaijiang = StringRegExp($htmltxt, $lastqihao&"(.{29})", 3)
        If $kaijiang[0] <> $kaijiang0 Then
                MsgBox(0,"元素html",$kaijiang[0], 3, $hWin)
                $kaijiang0 = $kaijiang[0]
        EndIf
EndFunc

jienis

回复 3# ajian55


    运行了没反应··联系我QQ吧···非常感谢··QB不是问题的··必须的····

lsvarc

我是冲着Q币来的~

ppzpph

每过1分钟就重新运行IE一次，将各种变量清空，然后再次读取，试试吧

fanxiang_1984

运行报错了。。。

骗子

回复 1# jienis
搞定没有,没搞定可以联系我,QQ 375703342