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

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

本帖最后由 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&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

咯噢可咯噢可

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

这是正则写错了，/前要加\

		自动登录	找回密码
密码			加入