如何显示网页中的信息(已解决)

lxz

如何显示这个网页中下面的信息   http://bbs.nod32sj.cn/thread-3227-1-1.html

[ 本帖最后由 lxz 于 2008-10-16 09:33 编辑 ]

bob

你是要获取ID和密码吗
可以看看这篇文章，用正则获取
http://www.autoitx.com/forum.php ... amp;highlight=nod32

lxz

原帖由 bob 于 2008-10-16 08:31 发表
你是要获取ID和密码吗
可以看看这篇文章，用正则获取
http://www.autoitx.com/forum.php ... amp;highlight=nod32

还是不会用,你的网址和我的不一样.

liongodmien

那文章中已经说的很清楚了，要按自己的情况修改一下！

#include <ie.au3>

Opt('TrayAutoPause', 0)

$oIE = _IECreate('http://bbs.nod32sj.cn/thread-3227-1-1.html', 0, 0, 1, 0)
$oIE = _IEDocReadHTML($oIE)

Local $offset = 1, $GET = ''
While 1
        $String = StringRegExp($oIE, 'EAV-\d{8} - \w{10}', 1, $offset)
        If @error = 0 Then
                $offset = @extended
        Else
                ExitLoop
        EndIf
        $GET &= $String[0] & '        ' & @CRLF
WEnd
If MsgBox(36, '消息', '提取出的用户名和密码是：' & @CRLF & @CRLF & $GET & @CRLF & '是否记录到文件USER&PASS.LOG？') = 6 Then        FileWrite('USER&PASS.LOG', $GET)

lxz

原帖由 liongodmien 于 2008-10-16 09:14 发表
那文章中已经说的很清楚了，要按自己的情况修改一下！
[au3]
#include

Opt('TrayAutoPause', 0)

$oIE = _IECreate('http://bbs.nod32sj.cn/thread-3227-1-1.html', 0, 0, 1, 0)
$oIE = _IEDocReadHTML($oI ...

哈哈,大好人出现就是不一样.

liongodmien

修改为可以自动获得当天帐号和密码：

#include <ie.au3>

Opt('TrayAutoPause', 0)

$oIE = _IECreate('http://bbs.nod32sj.cn/forum-11-1.html', 0, 0, 1, 0)
$GET = _IELinkClickByText($oIE, '['&@YEAR&'年'&@MON&'月'&@MDAY&'日]NOD32最新升级ID', '', 1)
If $GET <> -1 Then
        MsgBox(64, '错误', '今天的帐号和密码还没更新出来！稍后再试...')
        Exit
EndIf
Sleep(1000)
$oIE = _IEDocReadHTML($oIE)

Local $offset = 1, $GET = ''
While 1
        $String = StringRegExp($oIE, 'EAV-\d{8} - \w{10}', 1, $offset)
        If @error = 0 Then
                $offset = @extended
        Else
                ExitLoop
        EndIf
        $GET &= $String[0] & '        ' & @CRLF
WEnd
If MsgBox(36, '消息', '提取出的帐号和密码是：' & @CRLF & @CRLF & $GET & @CRLF & '是否记录到文件USER&PASS.LOG？') = 6 Then        FileWrite('USER&PASS.LOG', $GET)

[ 本帖最后由 liongodmien 于 2008-10-17 10:22 编辑 ]

linmark

学习了！果然很经典啊！新手学习了！

UID

正则挺好用的