Hallo, hab mit autoIt nu angefangen und mein erstes Programm geschrieben..
eure meinung ist gefragt...! mache ich etwas zu kompliziert? hätte man etwas besser machen können? wenn ja: was...!
Das hilft mir sehr, damit ich künftige Programme eventuell strukturierter und UnKomplizierter programmieren kann!
hier mein Programm:
(besonders die sache mit dem IF else If und EndIF: hätte man da was besser machen können??)
Vielen dank für eure antworten!
[autoit]#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$aktiv1 = RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoClose")
$aktiv2 = RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoRun")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Config-Tool by HeavyDrum", 226, 193, 300, 133)
$Label1 = GUICtrlCreateLabel("Config-Tool", 40, 8, 155, 36)
GUICtrlSetFont(-1, 20, 800, 4, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("Actions", 32, 40, 169, 105)
$Checkbox1 = GUICtrlCreateCheckbox("Beenden-Button entfernen", 40, 56, 153, 25)
If $aktiv1 = "1" Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
EndIf
$Checkbox2 = GUICtrlCreateCheckbox("Ausführen-Button entfernen", 40, 80, 153, 25)
If $aktiv2 = "1" Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
EndIf
$Checkbox3 = GUICtrlCreateCheckbox("Frei 2", 40, 104, 153, 25)
GUICtrlSetState(-1, $GUI_DISABLE) ;Deaktiviert den zuvor erstellten Button
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Los!", 48, 160, 137, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
$wert = GUICtrlRead ($Checkbox1)
$wert2= GUICtrlRead ($Checkbox2)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If $wert = "1" Then ;Schreibe in die Registrierungsbank
RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoClose", "REG_SZ", "1")
ElseIf $wert = "4" Then ;Lösche den Wert aus der Registrierungsbank
RegDelete ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoClose")
EndIf ;Wird benötigt, weil sonst nur eines der Oberen If`s bearbeitet wird und nicht weitergegangen wird, (Wird nämlich nur solange bearbeitet, bis eines der zuweisung entspricht, danach wird die Gruppe verlassen)
If $wert2= "1" Then
RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoRun", "REG_SZ", "1")
ElseIf $wert2= "4" Then ;Lösche den Wert aus der Registrierungsbank
RegDelete ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoRun")
EndIf
EndSwitch
WEnd
Edit BugFix: AutoIt-Tags gesetzt