Ihr habt ein Programm was ihr nur Bestimmten Personen geben wollt
Die Accountdaten haben, oder z.B. einen Chat Habt dem noch eine Login
Funktion fehlt? Tja, Hier Kommt die Lösung: ExecuteLogin
Unterstützte Sprachen:
- Autoit
Mehr folgen, Ganz sicher ;)
Wie gehts?
Komm mir doch nicht mit so Tricky fragen :awesome:
Nein Quatsch^^ Man kann ihn Kinderleicht handhaben
Also Ihr fügt diesen Code:
Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <INet.au3>
#include <FTP.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Login", 209, 109, 360, 167)
GUISetBkColor(0x000000)
$Button1 = GUICtrlCreateButton("Login", 16, 72, 81, 33)
$Label1 = GUICtrlCreateLabel("Username: ", 8, 8, 50, 17)
GUICtrlSetColor(-1, 0x008000)
$Label2 = GUICtrlCreateLabel("Passwort: ", 8, 36, 53, 17)
GUICtrlSetColor(-1, 0x008000)
$Input1 = GUICtrlCreateInput("", 64, 8, 137, 21)
$Input2 = GUICtrlCreateInput("", 64, 32, 137, 21)
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsge = GUIGetMsg()
Switch $nMsge
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$Username = GUICtrlRead($Input1)
$Passwort = GUICtrlRead($Input2)
$Logindata = InetRead("[COLOR="Lime"]ftp://MEINUSERNAME:[Only registered and activated users can see links. Click Here To Register...]-server.de/" & $Username & ".txt[/COLOR]"); Der Absolute Pfad auf dem FTP Server, Ich hab das so geregelt
; Das Jeder User seine eigene Textdatei Mit seinen Accountdaten
; Hat nach diesem Prinzip:
;---------
; Username
; Passwort
;---------
; Das Programm macht einen Stringsplit mit @CRLF sowerden die
; Beiden Logindaten in $SplitLogindata[1] und $SplitLogindata[2]
; Umgewandelt!
$BinaryLogindata = BinaryToString($Logindata)
$SplitLogindata = StringSplit($BinaryLogindata, @CRLF)
If $Username = $SplitLogindata[1] Then
If $Passwort = $SplitLogindata[2] Then
MsgBox(0,"Logged In!","Erfolgreich eingeloggt!" & @CRLF & "Viel Spaß!")
GUIDelete($Form1)
_Main()
ExitLoop
GUISetState(@SW_HIDE)
EndIf
EndIf
$Label3 = GUICtrlCreateLabel("Accountdaten sind falsch!", 80, 56, 127, 17)
GUICtrlSetColor(-1, 0x800000)
Sleep(5000)
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _Main()
;Dein Programmcode
MsgBox(0,"","")
EndFunc
Mit euren Daten.
Falls Ihr jemanden Registrieren Wollt müsstet ihr jetzt eine neue Textdatei
In diesem Format auf den Server packen:
Username
Passwort
Oder Ihr automatisiert diesen Vorgang einfach mit einem Tool.
Im Laufe der Tage werde ich auch ein RegistrierungsTool machen
Wahrscheinlich 1 für Admins und 1 für User
Mfg Death
bei Fragen -> Direkt in den Thread :)
~ greetz