IP Checker v0.2

Der ein oder andere kennt es vielleicht noch, mein kleines Tool "IP Checker". Wer es nicht kennt sollte hier weiter lesen, alle anderen können den Text überspringen und direkt zum Download gehen.

Für was ist das Tool gut?
Das Tool soll Ihre tägliche IP speichern um zu einem späteren Zeitpunkt nachvollziehen zu können welche IP man an welchem Tag hatte.

Was soll das nützen?
Immer wieder bekommt man E-Mail von angeblichen Anwaltskanzleien in denen wild mit Beschuldigen um sich geworfen wird und angeblich Ihre IP als Beweis vorliegt. Indem man seine IP kennt die man an dem Tag hatte mit dem man beschuldigt wird kann man schon einmal 98% der "Abzockmails" erkennen.

Was kann das Tool?
Zur Zeit noch nicht viel. Es speichert ganz einfach Ihre IP Adresse. Dazu müssen Sie lediglich das Programm starten und auf den Button "Speichern" klicken. Danach sehen Sie alle Einträge in dem Textfeld darunter.

Wann gibt es eine v1.0?
Ich arbeite zur Zeit schon an einer 1.0 die dann auch mehr Funktionen haben soll. Das Grundgerüst diesbezüglich steht schon nun muss nur noch an einigen Funktionen gebastelt werden. Ich hoffe das die Version 1.0 noch dieses Jahr fertig werden wird.

Welche Funktionen wird die 1.0 haben?
- Änderung der IP automatisch feststellen
- Autostart mit Windows
- Daten aus dem Programm heraus bearbeiten
- Übersichtlichere Darstellung der Daten
- Suchfunktion für IP's und Datum

Wie sollte ich das Tool benutzen?
Da man das Tool nicht installieren muss und eine Funktion Fehlt um ein Link zum Desktop zu erstellen muss dies von Hand geschehen. Am besten verschieben Sie das Programm in einen eigenen Ordner z.B. "IPs_Log" da das Programm die Log Datei in dem Ordner erstellt in dem es liegt. Danach sollten Sie eine Verknüpfung auf dem Desktop erstellen um das Programm einfacher starten zu können.
Das Programm erkennt einen Änderung der IP noch NICHT automatisch, somit muss das Programm bei jedes IP Änderung manuell gestartet werden.
Weitere und verbesserte Funktionen folgen wie angekündigt in der 1.0.

Download
IP Checker v0.2

Screenshot

Erfolgreich getestet unter:
Windows 7 x86
Windows 7 x64

Quellcode

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.8.1
 Author:         R60

 Script Function:
	IP Speichern

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <Inet.au3>
#include <file.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("IP Checker v0.2", 267, 234, 192, 124)
$Group2 = GUICtrlCreateGroup("Aktuelle Daten", 8, 8, 249, 73)
$Input2 = GUICtrlCreateInput("Input2", 16, 24, 233, 21)
$Button1 = GUICtrlCreateButton("Speichern", 16, 48, 75, 25)
$Button2 = GUICtrlCreateButton("Beenden", 176, 48, 75, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Gespeicherte Einträge", 8, 88, 249, 137)
$Edit1 = GUICtrlCreateEdit("", 16, 104, 233, 113, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$WS_VSCROLL))
GUICtrlSetData(-1, "Edit1")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;; Datei erstellen bzw. öffnen
$datei = "ip.log"
$file = FileOpen($datei, 1)

If $file = -1 Then
   MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
   Exit
EndIf

;; Anzeige Erstellen
$ip = _GetIP()
$datum = @mday&"."&@mon&"."&@year&" "&@hour&":"&@min
$anzahl = _FileCountLines($datei)

GUICtrlSetData($Input2, $datum&" >> "&$ip)
GUICtrlSetData($Edit1, FileRead("ip.log"))

FileClose($datei)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		 Case $Button2
			Exit

		 Case $Button1

			;; Datei
			$file = FileOpen($datei, 1)

			If $file = -1 Then
			   MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
			   Exit
			EndIf

			$ip = _GetIP()
			$datum = @mday&"."&@mon&"."&@year&" "&@hour&":"&@min

			;; Datei schreiben
			_FileWritetoline("ip.log", 1, $datum&" >> "&$ip)

			;;Anzeige
			$anzahl = _FileCountLines($datei)
			GUICtrlSetData($Edit1, FileRead("ip.log"))
			FileClose($file)

			;;Anzeige
			MsgBox(0, "Gespeichert", "Die aktuellen Daten wurden hinzugefügt!")

	EndSwitch
WEnd