#include <INet.au3>
#include <Array.au3>
$s = _source("http://www.game6677.com/game/mumugames.html")
_ArrayDisplay($s)
Func _source($url)
$source = _INetGetSource($url)
Local $info[10]
$sr1 = StringRegExp($source, "<li>([^<]*)", 3)
$sr2 = StringRegExp(StringRegExpReplace(StringRegExpReplace($source, " ", ""), "<br />", ""), 'auto">([^<]*)', 3)
$info[0] = $sr1[0] & $sr2[0]
For $i = 1 To 6
$info[$i] = $sr1[$i]
Next
$info[7] = $sr2[1] & @CRLF & $sr2[2]
$info[8] = $sr2[4]
$info[9] = $sr2[6]
Return $info
EndFunc ;==>_source
|