Hi!
zu 3:
_GetIP()
zu 4:
Windows-Befehl "nslookup 125.34.35.233" kannst du damit füllen. Gibt Ausgabe wie dslb-022-044-055-066.pools.arcor-ip.net.
peethebee
Hi,
mal es gerade mal so probiert:
#include<Array.au3>
#include<Inet.au3>
Global $my_WAN_IP = _GetIP()
If @error Then ConsoleWrite(@error & @CRLF)
Global $my_Provider_A = _getProvider($my_WAN_IP)
_ArrayDisplay($my_Provider_A)
Func _getProvider($ip)
Local $provInfo[3], $fcontent, $re
If Not StringRegExp($ip, '\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}', 0) Then
SetError(1)
Return -1
EndIf
If InetGet('http://www.gulli.com/tools/whois/' & $ip, @TempDir & '\~provider.tmp') Then
$fcontent = FileRead(@TempDir & "\~provider.tmp", FileGetSize(@TempDir & "\~provider.tmp"))
FileDelete(@TempDir & "\~provider.tmp")
$re = StringRegExp($fcontent, '(?<=descr:).*(?=<br />)', 3)
If @error = 0 Then $provInfo[0] = StringStripWS($re[0], 1)
$re = StringRegExp($fcontent, '(?<=inetnum:)[\d .-]*(?=<br />)', 3)
If @error = 0 Then $provInfo[1] = StringStripWS($re[0], 1)
$re = StringRegExp($fcontent, '(?<=country:).*(?=<br />)', 3)
If @error = 0 Then $provInfo[2] = StringStripWS($re[0], 1)
Return $provInfo
EndIf
SetError(2)
Return -1
EndFunc ;==>_getProvider
Mega
Schön, wenn es funktioniert.
Bei wem gibt es denn sinnvolle Ergenisse? und vor allem bei wem nicht?
Mega
Mein Ergebnis ist nicht sinnvol ???
WAN_IP: 78.52.32.242
----------
RIPE NCC
77.0.0.0 - 95.255.255.255
EU
Bin aber AOL / Alice / HanseNET 
Bei mir gehts so:
#include<Array.au3>
#include<Inet.au3>
#include<String.au3>
Global $my_WAN_IP = _GetIP()
ConsoleWrite("WAN_IP: " & $my_WAN_IP & @CRLF & "----------" & @CRLF)
If @error Then ConsoleWrite(@error & @CRLF)
Global $my_Provider_A = _getProvider($my_WAN_IP)
_ArrayDisplay($my_Provider_A)
ConsoleWrite(_ArrayToString($my_Provider_A,@CRLF))
Func _getProvider($ip)
Local $provInfo[3], $fcontent, $re
If Not StringRegExp($ip, '\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}', 0) Then
SetError(1)
Return -1
EndIf
$fcontent = _INetGetSource('http://www.ip-adress.com/whois/' & $ip)
If Not @error Then
$re = StringRegExp($fcontent, '(?<=descr:).*(?=\n)', 3)
If @error = 0 Then
$provInfo[0] = StringStripWS($re[0], 1)
ReDim $provInfo[3+UBound($re)-1]
For $i = 1 To UBound($re)-1
$provInfo[$i+2] &= StringStripWS($re[$i], 1)
Next
EndIf
$re = StringRegExp($fcontent, '(?<=inetnum:)[\d .-]*(?=\n)', 3)
If @error = 0 Then $provInfo[1] = StringStripWS($re[0], 1)
$re = StringRegExp($fcontent, '(?<=country:).*(?=\n)', 3)
If @error = 0 Then $provInfo[2] = StringStripWS($re[0], 1)
Return $provInfo
EndIf
SetError(2)
Return -1
EndFunc ;==>_getProvider
WAN_IP: 78.52.32.242
----------
HanseNet Telekommunikation GmbH
78.50.192.0 - 78.53.159.255
DE
ALICE DSL
HANSENETHi,
danke fürs Testen. Ich wusste nicht, welche Seite man da am besten nimmt. Mal sehen, was da international rauskommt, wenn ich es im Eng poste. 
Mega