本帖最后由 haijie1223 于 2012-6-4 09:30 编辑
用户名:
(?m)(?<=Username:)\w+\-\d+
密码:
(?m)(?<=Password:)\w+
有效期:
(?m)(?<=Expiration:)\d{4}\/\d{2}\/\d{2}
#include <INet.au3>
#include <array.au3>
Local $S, $usename, $password, $Expiration, $a
$S = _INetGetSource("http://lss53.blog.163.com/blog/static/204922502201253115027705/")
$usename = StringRegExp($S, "(?m)(?<=Username:)\w+\-\d+", 3)
$password = StringRegExp($S, "(?m)(?<=Password:)\w+", 3)
$Expiration = StringRegExp($S, "(?m)(?<=Expiration:)\d{4}\/\d{2}\/\d{2}", 3)
If UBound($usename) > 0 Then
Dim $a[UBound($usename)][3]
For $i = 0 To UBound($usename) - 1
$a[$i][0] = $usename[$i]
$a[$i][1] = $password[$i]
$a[$i][2] = $Expiration[$i]
Next
EndIf
_ArrayDisplay($a)
|