Beiträge von Burnett


    Villeicht so ?

    Habe mir das RGR mal angeschaut gehabt, also das Script.


    Ein paar Includes raus, die Codezeilen entfernen (welche die Include benötigt haben) und es läuft.
    Ich denke auch das die Leute die es fixxen es auch schaffen.

    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.

    So wie versprochen hier ein Mini Account Creator.


    #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



    Der Creator legt eine "User-"Datei im Ordner /scriptfiles/Accounts/ mit den Angegebenen Daten ab.
    Du kannst es individuell erweitern.


    Habe dir den Creator noch als Datei angehangen.


    Viel Spaß damit.