Spoiler anzeigen
[autoit]
$proxypage1 = _IECreate ("http://www.proxy-list.net/transparent-proxy-lists.shtml")
$proxys1 = _IEBodyReadText ($proxypage1)
$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})?",4)
$IP2 = ""
For $i=0 To Ubound($IPs)-1
$tmp = _ArrayToString($IPs[$i]," ")
$IP2 &= StringLeft($tmp, StringInstr($tmp," ") ) & @crlf
Next
MsgBox(0, "IPs", $IP2)
[/autoit]Grüße
Stilgar