ip rausfinden?

Opt("TrayIconHide", 1)
Opt("MustDeclareVars", 1)
Dim $INI, $POS, $IP, $URLS, $URL, $I, $IPTMP, $FS, $FILE, $LINE, $LINE1
$INI = @ScriptDir & "\myip.ini"


If FileExists($INI) = 0 Then
IniWrite($INI, "URL", "1", "dynupdate.no-ip.com")
IniWrite($INI, "URL", "2", "www.bpftpserver.com")
IniWrite($INI, "URL", "3", "www.minasithil.org")
IniWrite($INI, "URL", "4", "ressourcen.snooweatinganima.de")
IniWrite($INI, "URL", "5", "dasdeck.de/staff/valentin/tools")
IniWrite($INI, "URL", "6", "julien.games-fed.com")
IniWrite($INI, "URL", "7", "www.dorm.org/~dorm")
IniWrite($INI, "URL", "8", "www.ois.uic.edu/pubtools")
IniWrite($INI, "URL", "9", "www.espresso.iki.fi/pub/php")
IniWrite($INI, "URL", "10", "www.vtcz.ch")
IniWrite($INI, "URL", "11", "pmh.compunet.hu/tenzor")
IniWrite($INI, "URL", "12", "www.spunge.org/~oblivion")
IniWrite($INI, "URL", "13", "Dev.trag.nl")
IniWrite($INI, "URL", "14", "naholyr.free.fr")
IniWrite($INI, "URL", "15", "mgt.heinrich.free.fr")
IniWrite($INI, "URL", "16", "www.liero-masters.host.sk")
IniWrite($INI, "URL", "17", "www.zoo-gate.fi")
IniWrite($INI, "URL", "18", "filezilla.sourceforge.net/misc/")
IniWrite($INI, "URL", "19", "cipres.cec.uchile.cl/~hvergara")
IniWrite($INI, "URL", "20", "www.nicoland.de/scripts")
IniWrite($INI, "URL", "URLS", "20")
IniWrite($INI, "URL", "Warning1", "Don't add addresses in another format!(No leading: [URL]http://[/URL] etc.)")
IniWrite($INI, "URL", "Warning2", "The program searches for a script called: ip.php")
IniWrite($INI, "URL", "Warning3", "The output from ip.php is the pure IP address!(No leading: Your IP is:)")
EndIF


$POS = 0
$IP = 0
$URLS = IniRead($INI, "URL", "URLS", "")


;delete forgotten tempfiles
For $I = 1 To $URLS
  FileDelete(@ScriptDir & "" & $POS + 1 & ".htm")
Next


While $POS < $URLS


  FileDelete(@ScriptDir & "" & $POS - 1 & ".htm")
  $POS = $POS + 1
  $IPTMP = @ScriptDir & "" & $POS & ".htm"
  $URL = IniRead($INI, "URL", $POS, "")
  $IP = URLDownloadToFile("http://" & $URL & "/ip.php", $IPTMP)
  $FS = FileGetSize($IPTMP)


;Who can made it easier ?!
  If FileExists ($IPTMP) = 0 Then ContinueLoop
    If $FS > 16 Then
    ContinueLoop
  Else
    If $FS < 8 then ContinueLoop
  EndIf
If $FS <= 16 then ExitLoop


Wend


If $POS >= $URLS then Error("NO URL AVAILABLE." & @CR & "ARE YOU OFFLINE!?" & @CR & "EXIT!")
$FILE = FileOpen($IPTMP, 0)
If $FILE = -1 Then Error("Unable to open " & $URL)
$LINE = FileReadLine($FILE)


;check the result
$LINE1 = StringReplace($LINE, ".", "")
If StringIsDigit($LINE1) Then


;do something with the output, $line is your IP
 ;ClipPut($LINE)
 ;WinSetTitle ( "FRITZ!web DSL", "", $line )
  MsgBox(0, "Current IP Address:", $LINE)
Else


;show the error in default browser instead of IE
  RunWait(@ComSpec & " /c start " & $IPTMP, "", @SW_HIDE)


;pause script to load the file
  Sleep(1000)
EndIf


FileClose($FILE)
FileDelete($IPTMP)


Exit


Func Error($TXT)
  MsgBox(48, "Error", $TXT)
  Exit
EndFunc