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?)
If Not FileExists(@ScriptDir & "\Datenbank") Then
DirCreate(@ScriptDir &"\Datenbank")
EndIf
So und jetzt zum ganzem Code :
#RequireAdmin
[/autoit][autoit][/autoit][autoit]If Not FileExists(@ScriptDir & "\Datenbank") Then
DirCreate(@ScriptDir &"\Datenbank")
EndIf
#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 ###
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 ###
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 ###
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)
$volume = DriveGetLabel("C:\")
$serial = DriveGetSerial("C:\")
$total = DriveSpaceTotal("C:\")
$free = DriveSpaceFree("C:\")
$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)
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()
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)
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
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
Case $Button3
[/autoit][autoit][/autoit][autoit][/autoit][autoit]EndSwitch
WEnd
EndIf
EndSwitch
WEnd
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 ###
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
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
EndSwitch
WEnd
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