Inhalt einer Textdatei überprüfen

nwmbd

Hallo zusammen,

ich möchte das bei einer Veränderung des letzten Eintrages in einer Text eine MSGBOX geöffnet wird.

Das Speichern der Externen IP in der TXT erfolgt ohne Probleme, ich möchte nun aber eine Information wenn sich diese IP ändert mit einer MSGBOX der neue.

Falls es einen anderen viel elegantern Weg gibt bitte ich auch um Information.

Wenn diese dann "neu" ist wieder das ganze von vorn.

Vielen Dank wie immer an alle vorab.

Code

#include <Inet.au3>


While 1
$PublicIP = _GetIP()
FileWrite("C:/Test/ip.txt", $PublicIP & @CRLF)
Sleep(600)
WEnd

**alpines**

Speicher doch die alte IP einfach in einer Variable $sOldIP ab und hol dir in regelmäßigen Abständen eine neue.
Wenn die neue IP nicht leer sein sollte (weil die Funktion z.B. fehlgeschlagen ist) und zur alten unterschiedlich sein sollte, dann überschreibst du $sOldIP, zeigst die MsgBox an und lässt die Schleife von vorn durchlaufen.

xSunLighTx3

Zitat von alpines

Speicher doch die alte IP einfach in einer Variable $sOldIP ab und hol dir in regelmäßigen Abständen eine neue.
Wenn die neue IP nicht leer sein sollte (weil die Funktion z.B. fehlgeschlagen ist) und zur alten unterschiedlich sein sollte, dann überschreibst du $sOldIP, zeigst die MsgBox an und lässt die Schleife von vorn durchlaufen.

Das geht aber nur, wenn das Skript dauerhaft läuft. Aber so ist das natürlich am besten dann.

@TE
Sollte das Skript nicht durchgehend laufen, würde ich dir empfehlen, IniRead()/IniWrite() anzuschauen.

Btw. war es nicht mal so, dass _GetIP() öfters mal mit einem Fehler returned?

**alpines**

Zitat von xSunLighTx3

Das geht aber nur, wenn das Skript dauerhaft läuft. Aber so ist das natürlich am besten dann.

Dann speicherst du halt die alte IP in eine Datei ab, ist doch kein Beinbruch?

xSunLighTx3

Zitat von alpines

Dann speicherst du halt die alte IP in eine Datei ab, ist doch kein Beinbruch?

Hab ich doch geschrieben.

nwmbd

Hallo Alpines,

da hast du natürlich voll Recht

irgendwie funzt es nicht, er wenn ich mein WLAN zum test deaktiviere schreibt er dann permanent Ihr IP lautet: Leeresfeld

Wo ist der Fehler?!

Code

#include <Inet.au3>


$OldIP = "aktuelleip"


While 1
$NewIPCheck = _GetIP()
if Not $NewIPCheck = $OldIP Then
MsgBox(0,"ACHTUNG NEUE IP", "IP lautet:" & $NewIPCheck)
$NewIPCheck = $OldIP
	EndIf
Sleep(10000)
WEnd

Alles anzeigen

**alpines**

Deine Abfrage ist logisch falsch. Du negierst $NewIPCheck (den String was schon mal keinen Sinn ergibt) und vergleichst das Ergebnis dann mit $OldIP.
Du könntest stattdessen auch lieber ein Ungleich <> formulieren. Außerdem ist die _GetIP-Funktion für die Tonne, nimm lieber die hier (im Script).
Und deine Zuweisung für $NewIPCheck ist auch falsch, die wird sowieso überschrieben, du musst $NewIPCheck in $OldIP speichern und nicht andersherum.

Jetzt musst du nur noch den Fehlerfall ergänzen, wenn du keine IP zurückbekommst. Und formatier beim nächsten mal deinen Code besser!

AutoIt

$OldIP = ""


While Sleep(10000)
	$NewIPCheck = _GetIP()


	If $NewIPCheck <> $OldIP Then
		MsgBox(0,"ACHTUNG NEUE IP", "IP lautet:" & $NewIPCheck)
		$OldIP = $NewIPCheck
	EndIf
WEnd


Func _GetIP()
	Return BinaryToString(InetRead("http://myexternalip.com/raw", 1))
EndFunc

Alles anzeigen

nwmbd

Hallo Alpines,

da sah es doch, bis auf ein Fehler, gar nicht so schlecht aus.

_GetIP kann man nicht nutzen, da es diese Funktion schon gibt.

Die Webseite von dir gibt mir immer die IPV6 IP wieder.

EDIT:

Ausserdem ist die Seite bei meinem Virenscanner auf der Blacklist, warum auch immer.

**alpines**

Zitat von nwmbd

_GetIP kann man nicht nutzen, da es diese Funktion schon gibt.

Du hast vergessen die Inet.au3 rauszunehmen.

nwmbd

man kann es auch einfach _GetIP2 nennen

Wenn ich die IP über _GetIP hole zeigt er Sie richtig an, schalte ich nun WLAN aus kommt das keine IP da ist, aktiviere ich nun wieder das WLAN passiert gar nichts mehr

**chesstiger**

Zum Thema Blacklist: Es gibt noch zig alternativen zu der von alpines genannten Website. Ich nutze gerne icanhazip.com, alternativ tut es auch ein PHP-Einzeiler auf dem eigenen Webspace:

Code

<?=$_SERVER['REMOTE_ADDR']?>