IPs aus einer HTML-Seite auslesen

[autoit]

$proxypage1 = _IECreate("http://www.samair.ru/proxy/type-07.htm")
$proxys1 = _IEBodyReadText($proxypage1)

[/autoit] [autoit][/autoit] [autoit]

$IPs = StringRegExp($proxys1, "(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9])\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[0-9])([ ]*:[ ]*[0-9]{2,5})?", 3)
$alle = ''

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To UBound($IPs) - 1 Step 5
$alle &= $IPs[$i] & '.' & $IPs[$i + 1] & '.' & $IPs[$i + 2] & '.' & $IPs[$i + 3] & StringStripWS($IPs[$i + 4], & @CRLF
Next

[/autoit] [autoit][/autoit] [autoit]

MsgBox(0, "", $alle)

[/autoit] [autoit][/autoit] [autoit]

; Proxyliste schliessen, da Job erledigt
_IEQuit($proxypage1)

[/autoit]