LB-T3ch(Paar Programme)

    Hey Leute,
    ich habe mal ein Script gemacht, welches aber noch lange nicht fertig ist. Bisher ist ein Programm in diesem Programm vorhanden (+Register) Man kann die Programme nur nutzen wenn man sich registriert und eingeloggt hat(Wenn Ordner namens Datenbank nicht vorhanden ist wirds schwer, weil ich nicht weiß, ob dieser Code stimmt)
    Stimmt der Code?(Erstellt er den Ordner Datenbank?)

    [autoit]

    If Not FileExists(@ScriptDir & "\Datenbank") Then
    DirCreate(@ScriptDir &"\Datenbank")
    EndIf

    [/autoit]


    So und jetzt zum ganzem Code :

    [autoit]

    #RequireAdmin

    [/autoit][autoit][/autoit][autoit]

    If Not FileExists(@ScriptDir & "\Datenbank") Then
    DirCreate(@ScriptDir &"\Datenbank")
    EndIf

    [/autoit][autoit][/autoit][autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("LB-Tech Auswahl", 244, 139, 235, 139)
    $Button1 = GUICtrlCreateButton("LogIn", 16, 64, 97, 57)
    $Label1 = GUICtrlCreateLabel("Ich möchte zum :", 72, 16, 101, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Button2 = GUICtrlCreateButton("Registrieren", 128, 64, 97, 57)
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Anmelden", 242, 170, 235, 139)
    $Label1 = GUICtrlCreateLabel("Username", 16, 24, 52, 17)
    $Label2 = GUICtrlCreateLabel("Passwort", 16, 64, 47, 17)
    $Input1 = GUICtrlCreateInput("Input1", 80, 24, 145, 21)
    $Input2 = GUICtrlCreateInput("Input2", 80, 64, 145, 21)
    $Button1 = GUICtrlCreateButton("Anmelden", 16, 104, 211, 41)
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $user = GUICtrlRead($Input1)
    $pw = GUICtrlRead($Input2)
    If Not FileReadLine(@ScriptDir & "\Datenbank\" & $user & ".txt") = $pw Then
    MsgBox(16, "", "Inkorrekte Logindaten")
    ShellExecute(@ScriptFullPath)
    Exit
    Else
    MsgBox(0, "Anmelden erfolgreich", "Sie haben sich erfolgreich angemeldet und können nun die Programme von LB-Tech nutzen...")
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("LB-Tech Vorführung", 259, 178, 235, 139)
    $Button1 = GUICtrlCreateButton("PC-Info-Tool", 16, 16, 107, 65)
    $Button2 = GUICtrlCreateButton("System-Verbesserung", 136, 16, 105, 65)
    $Button3 = GUICtrlCreateButton("Tutorials", 16, 96, 107, 65)
    $Button4 = GUICtrlCreateButton("Anderes", 136, 96, 107, 65)
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    Run(@ComSpec & " /c " & 'systeminfo > ' & @TempDir & '\Systeminfos.txt', "", @SW_HIDE)

    [/autoit][autoit][/autoit][autoit]

    $volume = DriveGetLabel("C:\")
    $serial = DriveGetSerial("C:\")
    $total = DriveSpaceTotal("C:\")
    $free = DriveSpaceFree("C:\")

    [/autoit][autoit][/autoit][autoit]

    $Form1 = GUICreate("System-Information v2.0", 591, 325)
    $Label1 = GUICtrlCreateLabel("Computername", 24, 24, 75, 17)
    $Label2 = GUICtrlCreateLabel("Benutzername", 24, 56, 72, 17)
    $Label3 = GUICtrlCreateLabel("Betriebssystem", 24, 88, 74, 17)
    $Label4 = GUICtrlCreateLabel("Service Pack", 24, 120, 68, 17)
    $Label5 = GUICtrlCreateLabel("C: Datenträgerkennsatz", 24, 152, 116, 17)
    $Label6 = GUICtrlCreateLabel("C: Seriennummer", 24, 184, 84, 17)
    $Label7 = GUICtrlCreateLabel("C: Gesamtspeicher", 24, 216, 93, 17)
    $Label8 = GUICtrlCreateLabel("C: freier Speicher", 24, 248, 85, 17)
    $Label9 = GUICtrlCreateLabel("IP-Adresse", 312, 24, 55, 17)
    $Label10 = GUICtrlCreateLabel("Startverzeichnis", 312, 56, 79, 17)
    $Label11 = GUICtrlCreateLabel("Windowsverzeichnis", 312, 88, 101, 17)
    $Button1 = GUICtrlCreateButton("Passwörter der Benutzer verwalten", 16, 272, 187, 41)
    $Button2 = GUICtrlCreateButton("Check System", 208, 272, 187, 41)
    $Label12 = GUICtrlCreateLabel("Desktop-Verzeichis", 312, 120, 95, 17)
    $Label13 = GUICtrlCreateLabel("Desktop-Breite", 312, 152, 74, 17)
    $Label14 = GUICtrlCreateLabel("Desktop-Höhe", 312, 184, 73, 17)
    $Label15 = GUICtrlCreateLabel("Datum", 312, 216, 35, 17)
    $Label16 = GUICtrlCreateLabel("Uhrzeit", 312, 248, 37, 17)
    $Input1 = GUICtrlCreateInput("", 176, 16, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY))
    $Input2 = GUICtrlCreateInput("", 176, 48, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY))
    $Input3 = GUICtrlCreateInput("", 176, 80, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY))
    $Input4 = GUICtrlCreateInput("", 176, 112, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY))
    $Input5 = GUICtrlCreateInput("", 176, 144, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY))
    $Input6 = GUICtrlCreateInput("", 176, 176, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY))
    $Input7 = GUICtrlCreateInput("", 176, 208, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY))
    $Input8 = GUICtrlCreateInput("", 176, 240, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY))
    $Input9 = GUICtrlCreateInput("", 448, 16, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY))
    $Input10 = GUICtrlCreateInput("", 448, 48, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY))
    $Input11 = GUICtrlCreateInput("", 448, 80, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY))
    $Input12 = GUICtrlCreateInput("", 448, 112, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY))
    $Input13 = GUICtrlCreateInput("", 448, 144, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY))
    $Input14 = GUICtrlCreateInput("", 448, 176, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY))
    $Input15 = GUICtrlCreateInput("", 448, 208, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY))
    $Input16 = GUICtrlCreateInput("", 448, 240, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY))
    $Button3 = GUICtrlCreateButton("Erweitert", 400, 272, 185, 41)
    GUISetState(@SW_SHOW)

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    MsgBox(0, "Made by LB-T3ch", "Verbesserungen, Anregungen, oder Fehler an AutoIT.DE : lukasboy, Cheater Dieter")
    Exit
    Case $Button3
    SplashTextOn("Bitte warten...", "Erweiterte Infos werden gesammelt. Dies kann einige Zeit (bis zu einer halben Minute) dauern.")
    While 1
    If FileGetSize(@TempDir & "\Systeminfos.txt") <> 0 Then
    ExitLoop
    EndIf
    WEnd
    SplashOff()

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    GUICreate("Erweiterte Infos", 615, 438)
    GUICtrlCreateEdit(FileRead(@TempDir & "\Systeminfos.txt"), 8, 8, 601, 361, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY))
    $testram = GUICtrlCreateButton("Arbeitsspeicher auf Fehler überprüfen", 8, 384, 203, 49)
    $derfag = GUICtrlCreateButton("Festplatte defragmentieren", 408, 384, 203, 49)
    GUISetState(@SW_SHOW)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    ShellExecute(@ScriptFullPath)
    Exit
    Case $testram
    If @OSVersion = "WIN_7" Or @OSVersion = "WIN_VISTA" Then
    ShellExecute("MdSched.exe")
    Else
    MsgBox(16, "Error", "Du hast ein nicht geeignetes Betriebssystem für diesen Befehl...")
    EndIf
    Case $derfag
    If @OSVersion = "WIN_7" Or @OSVersion = "WIN_VISTA" Then
    ShellExecute("dfrgui.exe")
    Else
    ShellExecute("dfrg.msc")
    EndIf
    EndSwitch
    WEnd
    Case $Button1
    GUICreate("Passwort ändern", 370, 171)
    GUICtrlCreateLabel("Hier können Sie die Passwörter der einzelnen Benutzer ändern:", 8, 8, 302, 17)
    GUICtrlCreateLabel("Name des zu bearbeitenten Benutzerkontos (z.B. Heike):", 8, 32, 272, 17)
    $user = GUICtrlCreateInput(@UserName, 16, 48, 121, 21)
    GUICtrlCreateLabel("Neues Passwort (um das Passwort zu entfernen, bitte das Feld leer lassen):", 8, 88, 357, 17)
    $pw = GUICtrlCreateInput("", 16, 104, 121, 21)
    $ok = GUICtrlCreateButton("OK", 147, 136, 75, 25)
    GUISetState(@SW_SHOW)

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    ShellExecute(@ScriptFullPath)
    Exit
    Case $ok
    $user = GUICtrlRead($user)
    $passwort = GUICtrlRead($pw)
    If $passwort = "" Then
    If MsgBox(1, "Änderrungen bestätigen", "Das Passwort des Benutzers '" & $user & "' wird nun entfernt.") = 1 Then Run(@ComSpec & " /c " & 'net user ' & $user & ' ' & $passwort, "", @SW_HIDE)
    Else
    If MsgBox(1, "Änderrungen bestätigen", "Das Passwort des Benutzers '" & $user & "' wird nun in '" & $passwort & "' geändert.") = 1 Then Run(@ComSpec & " /c " & 'net user ' & $user & ' ' & $passwort, "", @SW_HIDE)
    EndIf
    ShellExecute(@ScriptFullPath)
    Exit
    EndSwitch
    WEnd

    [/autoit][autoit][/autoit][autoit]

    Case $Button2
    GUICtrlSetData($Input1, "" & @ComputerName)
    GUICtrlSetData($Input2, "" & @UserName)
    GUICtrlSetData($Input3, "" & @OSType)
    GUICtrlSetData($Input4, "" & @OSServicePack)
    GUICtrlSetData($Input5, "" & $volume)
    GUICtrlSetData($Input6, "" & $serial)
    GUICtrlSetData($Input7, "" & $total)
    GUICtrlSetData($Input8, "" & $free)
    GUICtrlSetData($Input9, "" & @IPAddress1)
    GUICtrlSetData($Input10, "" & @StartupDir)
    GUICtrlSetData($Input11, "" & @WindowsDir)
    GUICtrlSetData($Input12, "" & @DesktopDir)
    GUICtrlSetData($Input13, "" & @DesktopWidth)
    GUICtrlSetData($Input14, "" & @DesktopHeight)
    GUICtrlSetData($Input15, "" & @MDAY & "." & @MON & "." & @YEAR)
    GUICtrlSetData($Input16, "" & @HOUR & ":" & @MIN & ":" & @SEC)
    EndSwitch
    WEnd
    Case $Button2

    [/autoit][autoit][/autoit][autoit]

    Case $Button3

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    EndSwitch
    WEnd
    EndIf
    EndSwitch
    WEnd

    [/autoit][autoit][/autoit][autoit]

    Case $Button2
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Registrieren", 244, 170, 235, 139)
    $Label1 = GUICtrlCreateLabel("Username", 16, 24, 52, 17)
    $Label2 = GUICtrlCreateLabel("Passwort", 16, 64, 47, 17)
    $Input1 = GUICtrlCreateInput("", 80, 24, 145, 21)
    $Input2 = GUICtrlCreateInput("", 80, 64, 145, 21)
    $Button1 = GUICtrlCreateButton("Registrieren", 16, 104, 211, 41)
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $usernew = GUICtrlRead($Input1)
    $pwnew = GUICtrlRead($Input2)
    If $pwnew = "" Or $usernew = "" Then
    MsgBox(16, "", "Fehlende Daten")
    ShellExecute(@ScriptFullPath)
    Exit
    EndIf

    [/autoit][autoit][/autoit][autoit]

    FileWrite(@ScriptDir & "\Datenbank\" & $usernew & ".txt", $pwnew & @CRLF & "Das ist nur für dich " & $usernew) ; Erstellt einen neuen Eintrag in der 'Datenbank' mit einer persönlichen Nachricht.
    MsgBox(0, "", "Sie haben sich erfolgreich registriert und können sich jetzt einloggen.")
    EndSwitch
    WEnd

    [/autoit][autoit][/autoit][autoit]

    EndSwitch
    WEnd

    [/autoit]


    Freue mich sowohl auf Kritik als auch auf Lob :)
    Bin auch neu, scripte seit 2 Wochen oder so, dafür aber immer wenn ich am PC bin :)

    xD
    Bei diesem Script kann man sich registrieren und einloggen. Hat man das gemacht, so kann man meine Programme sehen, und ich werde Tutorials zu diesen Preis geben....
    Bald wird es etwas wie ein Forum ohne Internet^^

    Dann ist's aber mehr ein Projekt als ein Skript.

    AUf den ersten Blick fällt auf, das du Ratschläge scheinbar konsequent misachtest. Das fällt jetzt ganz spontan bei den includes auf.

    Ich schau mir das Skript jetzt nicht mehr an, ist schon spät aber auf Dauer würde sich meiner Meinung nach der OnEvent Modus mehr anbieten.

    [autoit]


    Case $Button2
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

    [/autoit]

    wtf?! :huh:

    Simon nörgelt, Simon nervt - aber Simon verbessert die Welt. Glaubt er.

    @lukasboy 
    Das ist ja alles sehr schön und gut, doch wo ich dich enttäuschen muss, ist bei den Includes... Fange doch bitte bei den Grundlagen an..