Guten Abend.
Aus aktuellem Anlass veröffentliche ich einen "Mini" Account Creator.
Nichts besonderes, kann man ja weiter aufbauen verbessern etc.
Dieses Script dient als GRUNDLAGE. Man soll/kann es also erweitern.
Beschreibung:
Dieser Creator erlaubt es dem Admin ganz einfach User Accounts per Knopfdruck anzulegen.
Funktionalität:
Der Creator legt eine .ini Datei mit den Eingegeben Werten ab.
Wenn die Datei (Benutzer) schon existiert, wird eine Meldung ausgegeben.
Desweiteren wird eine Meldung ausgegeben, wenn nicht alle Felder ausgefült wurden.
Der Quellcode (mit GUI):
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Account Creator", 299, 249, 192, 124)
$InGameName = GUICtrlCreateLabel("IngameName", 24, 64, 67, 25)
$InGameNameInput = GUICtrlCreateInput("a", 96, 64, 177, 21)
$InGamePasswort = GUICtrlCreateLabel("Passwort", 24, 112, 47, 17)
$InGamePasswortInput = GUICtrlCreateInput("c", 96, 152, 177, 21)
$InGameStartgeld = GUICtrlCreateLabel("Startgeld", 24, 152, 46, 17)
$InGameStartgeldInput = GUICtrlCreateInput("b", 96, 104, 177, 21)
$Erstellen = GUICtrlCreateButton("Erstellen", 96, 200, 177, 33)
$Creator = GUICtrlCreateLabel("Creator", 24, 8, 118, 33)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Erstellen
$InGameNameValue = GUICtrlRead($InGameNameInput)
$InGamePasswortValue = GUICtrlRead($InGamePasswortInput)
$InGameStartgeldValue = GUICtrlRead($InGameStartgeldInput)
if FileExists(@ScriptDir & "\scriptfiles\Accounts\" & $InGameNameValue & ".ini") Then
MsgBox(16, "Fehler beim Anlegen", "Der Account von " & $InGameNameValue & " existiert bereits.")
Else
if $InGameNameValue <> "" AND $InGamePasswortValue <> "" AND $InGameStartgeldValue <> "" Then
IniWrite(@ScriptDir & "\scriptfiles\Accounts\" & $InGameNameValue & ".ini", $InGameNameValue, "key", $InGamePasswortValue)
IniWrite(@ScriptDir & "\scriptfiles\Accounts\" & $InGameNameValue & ".ini", $InGameNameValue, "Money", $InGameStartgeldValue)
MsgBox(32, "Erfolgreich erstellt", "Der Account von " & $InGameNameValue & " wurde erfolgreich angelegt.")
Else
MsgBox(16, "Fehler beim Anlegen", "Es wurden nicht alle Felder ausgefüllt!")
EndIf
EndIf
EndSwitch
WEnd
Koda GUI Code, zum nachträglichen Bearbeiten der GUI
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Account Creator", 299, 249, 192, 124)
$InGameName = GUICtrlCreateLabel("IngameName", 24, 64, 67, 25)
$InGameNameInput = GUICtrlCreateInput("a", 96, 64, 177, 21)
$InGamePasswort = GUICtrlCreateLabel("Passwort", 24, 112, 47, 17)
$InGamePasswortInput = GUICtrlCreateInput("c", 96, 152, 177, 21)
$InGameStartgeld = GUICtrlCreateLabel("Startgeld", 24, 152, 46, 17)
$InGameStartgeldInput = GUICtrlCreateInput("b", 96, 104, 177, 21)
$Erstellen = GUICtrlCreateButton("Erstellen", 96, 200, 177, 33)
$Creator = GUICtrlCreateLabel("Creator", 24, 8, 118, 33)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Wer sich nicht auskennt:
Den Inhalt der *ZIP-Datei entpacken.
Danach einfach das AutoIt Script öffnen und ausführen.
Die *Ini-Dateien liegen in dem Ordner /scriptfiles/Accounts/.
+ Creator als Dateianhang angehangen.
+ KODA (AutoIt´s GUI Designer Code rein gepackt.)
Für die Coder Freaks: Viel Spaß damit.
Weiter so!