#include <FTPEx.au3>
#include <Array.au3>
Global $sServerName = "", $sServerUser = "", $sServerPass = "", $sLocalPfad = @TempDir & "\programmupdate.ini"

ToolTip("Servererreichbarkeit prüfen...", 1, 1)
If Ping($sServerName, 5000) = 0 Then
	MsgBox(262144 + 16, "Fehler", "Server ist nicht erreichbar. Bitte prüfen Sie ihre Internetverbindung und/oder wenden sie sich an den Verantwortlichen")
	Exit
Else
	ToolTip("")
EndIf

If FileExists($sLocalPfad) Then FileDelete($sLocalPfad)
; Alles wird auf funpic.de gemacht bzw. getestet (bei diesem Skript), wenn es zu Fehlern bei bplaced.net kommt - empfehle ich dir funpic.de - ich benutze den FTP seit einem Jahr nicht und der FTP wurde immernoch nicht gelöscht
If RegRead("HKEY_LOCAL_MACHINE\Software\Programm", "Erster Start") = "" Then ;Die Registry müsste andweitig gesichert werden, weil man den Eintrag einfach enfernen könnte
	$liNetSession = _FTP_Open("Update")
	$lConnSession = _FTP_Connect($liNetSession, $sServerName, $sServerUser, $sServerPass)
	$lGet = _FTP_FileGet($lConnSession, "update.ini", $sLocalPfad)
	If $lGet = 0 Then
		MsgBox(0, "Fehler", "Die erforderliche Datei konnte nicht geladen werden!")
		Exit
	EndIf
	IniWrite($sLocalPfad, @IPAddress1, "zeit", @MDAY & "." & @MON & "." & @YEAR & ", " & @HOUR & ":" & @MIN)
	IniWrite($sLocalPfad, @IPAddress1, "zugriff", "True")
	_FTP_FilePut($lConnSession, $sLocalPfad, "update.ini")
	_FTP_Close($liNetSession)
	RegWrite("HKEY_LOCAL_MACHINE\Software\Programm", "Erster Start", "REG_SZ", "Nein")
	FileDelete($sLocalPfad)
EndIf

InetGet("http://" & $sServerName & "/update.ini", $sLocalPfad, 1)
$aRead = IniReadSection($sLocalPfad, @IPAddress1)
FileDelete($sLocalPfad)
If _ArraySearch($aRead, "True") = -1 Then
	MsgBox(262144 + 16, "Status", "Das Script wurde gesperrt bitte wenden Sie sich an den Verantwortlichen!")
	Exit
Else
	MsgBox(262144 + 64, "Status", "SIE DÜRFEN DAS PROGRAMM NOCH NUTZEN!! FREUEN SIE SICH DOCH!!!")
	MsgBox(0, "PROGRAMM", "Hier kommt das Programm. Eventuell schon vorher GUICreate (Gui erstellen) und jetzt einfach GUISetState() machen :) Bitteschööön") ;Hier komm GUISetState() oder du erstellst das GUI erst jetzt^^
EndIf