Hi,
Mit der Funktion lassen sich auslesen:
- Öffentliche Ip-Adresse
- Öffentlicher Rechnername
- Internetbrowsername
- DSL-Provider/Anbieter
- Proxy (Ja/Nein)
- Netzkontendaten: Stadt
- Netzkontendaten: Region
- Netzkontendaten: Land
_GetINetInfo():
Spoiler anzeigen
#include <INet.au3>
#include <String.au3>
;===============================================================================
; Function Name:_GetINetInfo()
; Description:: Internetdaten auslesen
; Parameter(s): keine
; Requirement(s):
; #include <INet.au3>
; #include <Array.au3>
; #include <String.au3>
;
; Return Value(s): Erfolg:Array mit den Internetdaten
;
; Fehler: @error 0: Source konnte nicht eingelesen werden / keine Internetverbindung
; @error 1: Öffentliche Ip-Adresse nicht gefunden
; @error 2: Netz-Rechnername nicht gefunden
; @error 3: Browsername nicht gefunden
; @error 4: DSL-Provider Anbieter nicht gefunden
; @error 5: Proxy nicht gefunden
; @error 6: Netzkontendaten: Stadt nicht gefunden
; @error 7: Netzkontendaten: Region nicht gefunden
; @error 8: Netzkontendaten: Land nicht gefunden
;
; Author(s): Jautois ([email='autoit.report@web.de'][/email])
;===============================================================================
Func _GetINetInfo()
Local $data[8]
Local $url = "http://www.meineip.de/"
$source = _INetGetSource($url)
If @error Then SetError(0)
$Names = StringSplit("Das ist Deine IP-Adresse,Rechnername ist,mit diesem Browser,Dein DSL Anschluss kommt von,Proxy eingeschaltet?", ",")
$Names2 = StringSplit("Stadt: ,Region: ,Land: ", ",")
For $i = 1 To UBound($Names) - 1
$btwn = _StringBetween($source, $Names[$i] & "</th>" & @CRLF & " <td>", "<")
$data[$i - 1] = $btwn[0]
If @error Then SetError($i)
Next
For $i = 1 To UBound($Names2) - 1
$btwn = _StringBetween($source, $Names2[$i], "<")
$data[UBound($Names) + $i - 2] = $btwn[0]
If @error Then SetError(UBound($Names) + $i - 1)
Next
Return $data
EndFunc ;==>_GetINetInfo
Konstruktive Kritik ist immer Willkommen!
Vielen Dank an anno2008 der mir u.a. Tipps gegeben hat
Mfg
Jautois