zhenglei 发表于 2009-7-27 19:11:29

AU3网页特定代码读取。。。。。

本帖最后由 zhenglei 于 2009-7-28 14:40 编辑

AU3网页特定代码读取。。。。。
正确读取的话可以读取到 登陆 二个字符。。 但我这个代码却什么也读取不到。 直接退出了。
不知道问题出现在哪里。。
Opt("GUICloseOnESC", 0)
Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 0)
Opt("TrayIconHide", 0)
#include <IE.au3>

$Url = "http://www.baidu.com"
$oIE = _IECreate($Url, 0, 0)
$sHTML = _IEBodyReadHTML($oIE)

$nOffset = 1
While 1

$array = StringRegExp($sHTML, '<p id=km><a href=http://hi.baidu.com>(.*?)</a>', 1, $nOffset)       

If @error = 0 Then
                $nOffset = @extended
        Else
                ExitLoop
        EndIf
        for $i = 0 to UBound($array) - 1
                msgbox(0, "读取到的字符 " & $i, $array[$i])
        Next
WEnd

lynfr8 发表于 2009-7-27 19:37:23

#include <IE.au3>
$Url = "http://www.baidu.com"
$oIE = _IECreate($Url, 0, 0)
$sHTML = _IEBodyReadHTML($oIE)
;msgbox(0, "读取到的字符 ",$sHTML)
$array = StringRegExp($sHTML, 'login&amp;tpl=mn">(.*)</A></DIV>', 3)      
for $i = 0 to UBound($array) - 1
msgbox(0, "读取到的字符 " & $i, $array[$i])
Next

zhenglei 发表于 2009-7-27 22:51:33

我 试验下。总之还谢谢老大 啊。。哈哈哈

zhenglei 发表于 2009-7-27 22:57:54

超级感谢。。 还真能拥。老大还是猛

ueiayz 发表于 2009-7-31 07:55:16

最近我也要写个类似的程序，先研究一下

qwea888 发表于 2009-8-10 21:32:14

咯噢可咯噢可:face (29):

omegabomb 发表于 2009-8-11 00:02:46

这是正则写错了，/前要加\
页: [1]
查看完整版本: AU3网页特定代码读取。。。。。