Skrip Posted March 28, 2006 Posted March 28, 2006 expandcollapse popup#region --- GuiBuilder code Start --- ; Script generated by AutoBuilder 0.5 Prototype #include <File.au3> #include <GuiConstants.au3> If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000 GuiCreate("MyGUI", 280, 213,(@DesktopWidth-280)/2, (@DesktopHeight-213)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $Button_1 = GuiCtrlCreateButton("1", 10, 30, 40, 40) $Button_2 = GuiCtrlCreateButton("2", 50, 30, 40, 40) $Button_3 = GuiCtrlCreateButton("3", 90, 30, 40, 40) $Button_4 = GuiCtrlCreateButton("4", 10, 70, 40, 40) $Button_5 = GuiCtrlCreateButton("5", 50, 70, 40, 40) $Button_6 = GuiCtrlCreateButton("6", 90, 70, 40, 40) $Button_7 = GuiCtrlCreateButton("7", 10, 110, 40, 40) $Button_8 = GuiCtrlCreateButton("8", 50, 110, 40, 40) $Button_9 = GuiCtrlCreateButton("9", 90, 110, 40, 40) $Button_10 = GuiCtrlCreateButton("Enter", 10, 150, 120, 30) $Group_11 = GuiCtrlCreateGroup("Please enter passsword", 0, 10, 140, 180) $Button_12 = GuiCtrlCreateButton("Enable pass on start-up", 160, 40, 120, 20) $Button_13 = GuiCtrlCreateButton("Disable pass on start-up", 160, 60, 120, 20) $Button_14 = GuiCtrlCreateButton("Remove All Files", 140, 140, 100, 20) $Date_15 = GuiCtrlCreateDate("Date15", 10, 190, 190, 20) $Button_16 = GuiCtrlCreateButton("Open Pass Program", 160, 20, 120, 20) $Button_17 = GuiCtrlCreateButton("Log-Out", 210, 190, 70, 20) $Button_19 = GuiCtrlCreateButton("Start Auto-Activate Program", 140, 0, 140, 20) $Button_20 = GuiCtrlCreateButton("Credit", 210, 170, 70, 20) $Button_21 = GuiCtrlCreateButton("Enable Auto-Activate on start", 130, 80, 150, 20) $Button_22 = GuiCtrlCreateButton("Disable Auto-Activate on start", 130, 100, 150, 20) $pass = 0 $access = 0 GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case Else ;;; Case $msg = $Button_1 If $pass = 0 Then $pass = 1 EndIf Case $msg = $Button_2 If $pass = 1 Then $pass = 2 EndIf Case $msg = $Button_3 $pass = 0 Case $msg = $Button_4 $pass = 0 Case $msg = $Button_5 IF $pass = 2 Then $pass = 3 EndIf Case $msg = $Button_6 $pass = 0 Case $msg = $Button_7 IF $pass = 3 Then $pass = 4 EndIf Case $msg = $Button_8 $pass = 0 Case $msg = $Button_9 IF $pass = 4 Then $pass = 5 EndIf Case $msg = $Button_10; Code -- pass = 5;; 1-2-5-7-9 ; -- ENTER KEY -- If $pass = 5 Then _FileWriteLog("C:\Pass\Logs\Log_Command_Center.dat", " ") _FileWriteLog("C:\Pass\Logs\Log_Command_Center.dat", "*_-=Pass Accepted=-_* " & $ATTEMPT & " -" & $returnvalue) _FileWriteLog("C:\Pass\Logs\Log_Command_Center.dat", " ") Sleep(1200) MsgBox(0, "Pass", "Password accepted!") $access = 1 EndIf If $pass = 0 Then $ATTEMPT = $ATTEMPT + 1 _FileWriteLog("C:\Pass\Logs\Log_Command_Center.dat", "*** Invalid Pass *** " & $ATTEMPT & " -" & $returnvalue) SoundPlay("C:\Windows\media\Windows XP Error.wav") EndIf If $pass = 1 Then $ATTEMPT = $ATTEMPT + 1 _FileWriteLog("C:\Pass\Logs\Log_Command_Center.dat", "*** Invalid Pass *** " & $ATTEMPT & " -" & $returnvalue) SoundPlay("C:\Windows\media\Windows XP Error.wav") EndIf If $pass = 2 Then $ATTEMPT = $ATTEMPT + 1 _FileWriteLog("C:\Pass\Logs\Log_Command_Center.dat", "*** Invalid Pass *** " & $ATTEMPT & " -" & $returnvalue) SoundPlay("C:\Windows\media\Windows XP Error.wav") EndIf If $pass = 3 Then $ATTEMPT = $ATTEMPT + 1 _FileWriteLog("C:\Pass\Logs\Log_Command_Center.dat", "*** Invalid Pass *** " & $ATTEMPT & " -" & $returnvalue) SoundPlay("C:\Windows\media\Windows XP Error.wav") EndIf If $pass = 4 Then $ATTEMPT = $ATTEMPT + 1 _FileWriteLog("C:\Pass\Logs\Log_Command_Center.dat", "*** Invalid Pass *** " & $ATTEMPT & " -" & $returnvalue) SoundPlay("C:\Windows\media\Windows XP Error.wav") EndIf $pass = 0 $ATTEMPT = $ATTEMPT + 1 _FileWriteLog("C:\Pass\Logs\Log_Command_Center.dat""", "*** Invalid Pass *** " & $ATTEMPT & " -" & $returnvalue) ;;End Enter Key Case $msg = $Button_12; Enable on start-up _acc() If $access = 1 Then FileCopy("C:\Pass\pass.exe", "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\pass.exe", 1) _done() EndIf Case $msg = $Button_13; Disble on start-up _acc() If $access = 1 Then FileDelete("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\pass.exe") _done() EndIf Case $msg = $Button_14; Remove all files _acc() If $access = 1 Then FileDelete("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\pass.exe") DirRemove("C:\pass", 1) _done() EndIf Case $msg = $Button_16; Runs the password program _acc() If $access = 1 Then Run("pass.exe", "C:\pass\pass.exe") EndIf Case $msg = $Button_17; Log-Out If $access = 0 Then MsgBox(0, "Log-Out", "You can't log-out if you havn't logged in...") EndIf If $access = 1 Then $access = 0 _done() Endif Case $msg = $Button_19; Starts the auto-activate program _acc() If $access = 1 Then Run("auto-activate", "C:\Pass") Msgbox(0, "Auto-Activate", "Press F9 to run pass.exe") _done() Endif Case $msg = $Button_20; Credits If $access = 0 Then MsgBox(0, "Enter Password", "Please Enter correct password!") Endif If $access = 1 Then MsgBox(0, "Credits", "This Program and all of it's extensions were made by: Firestorm." & @LF & "~~Firestorm is in no way responsible for what you do with this program or any of it's extensions!~~") EndIf Case $msg = $Button_21; Enable Auto-Activate on start-up _acc() If $access = 1 Then FileCopy("C:\Pass\auto-activate.exe", "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\auto-activate.exe", 1) _done() Endif Case $msg = $button_22; Disable Auto-Activate on start-up _acc() If $access = 1 Then FileDelete("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\auto-activate.exe") EndIf EndSelect WEnd Exit #endregion --- GuiBuilder generated code End --- Func _acc() If $access = 0 Then MsgBox(0, "Enter Password", "Please Enter correct password!") Endif EndFunc Func _done() MsgBox(0, "Complete", "Task Complete") EndFunc I've been testing it with the credit button becauise that has nothing to do with other files. The password is 1-2-5-7-9 I can't figure out why none of my buttons work, please help. [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]
Moderators SmOke_N Posted March 28, 2006 Moderators Posted March 28, 2006 (edited) Did you try getting rid of the Case Else?? Edit: Example:expandcollapse popup#region --- GuiBuilder code Start --- ; Script generated by AutoBuilder 0.5 Prototype #include <File.au3> #include <GuiConstants.au3> Local $ATTEMPT = '', $returnvalue = '' GuiCreate("MyGUI", 280, 213,(@DesktopWidth-280)/2, (@DesktopHeight-213)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $Button_1 = GuiCtrlCreateButton("1", 10, 30, 40, 40) $Button_2 = GuiCtrlCreateButton("2", 50, 30, 40, 40) $Button_3 = GuiCtrlCreateButton("3", 90, 30, 40, 40) $Button_4 = GuiCtrlCreateButton("4", 10, 70, 40, 40) $Button_5 = GuiCtrlCreateButton("5", 50, 70, 40, 40) $Button_6 = GuiCtrlCreateButton("6", 90, 70, 40, 40) $Button_7 = GuiCtrlCreateButton("7", 10, 110, 40, 40) $Button_8 = GuiCtrlCreateButton("8", 50, 110, 40, 40) $Button_9 = GuiCtrlCreateButton("9", 90, 110, 40, 40) $Button_10 = GuiCtrlCreateButton("Enter", 10, 150, 120, 30) $Group_11 = GuiCtrlCreateGroup("Please enter passsword", 0, 10, 140, 180) $Button_12 = GuiCtrlCreateButton("Enable pass on start-up", 160, 40, 120, 20) $Button_13 = GuiCtrlCreateButton("Disable pass on start-up", 160, 60, 120, 20) $Button_14 = GuiCtrlCreateButton("Remove All Files", 140, 140, 100, 20) $Date_15 = GuiCtrlCreateDate("Date15", 10, 190, 190, 20) $Button_16 = GuiCtrlCreateButton("Open Pass Program", 160, 20, 120, 20) $Button_17 = GuiCtrlCreateButton("Log-Out", 210, 190, 70, 20) $Button_19 = GuiCtrlCreateButton("Start Auto-Activate Program", 140, 0, 140, 20) $Button_20 = GuiCtrlCreateButton("Credit", 210, 170, 70, 20) $Button_21 = GuiCtrlCreateButton("Enable Auto-Activate on start", 130, 80, 150, 20) $Button_22 = GuiCtrlCreateButton("Disable Auto-Activate on start", 130, 100, 150, 20) $pass = 0 $access = 0 GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Button_1 If $pass = 0 Then $pass = 1 EndIf Case $msg = $Button_2 If $pass = 1 Then $pass = 2 EndIf Case $msg = $Button_3 $pass = 0 Case $msg = $Button_4 $pass = 0 Case $msg = $Button_5 IF $pass = 2 Then $pass = 3 EndIf Case $msg = $Button_6 $pass = 0 Case $msg = $Button_7 IF $pass = 3 Then $pass = 4 EndIf Case $msg = $Button_8 $pass = 0 Case $msg = $Button_9 IF $pass = 4 Then $pass = 5 EndIf Case $msg = $Button_10; Code -- pass = 5;; 1-2-5-7-9 ; -- ENTER KEY -- If $pass = 5 Then _FileWriteLog("C:\Pass\Logs\Log_Command_Center.dat", " ") _FileWriteLog("C:\Pass\Logs\Log_Command_Center.dat", "*_-=Pass Accepted=-_* " & $ATTEMPT & " -" & $returnvalue) _FileWriteLog("C:\Pass\Logs\Log_Command_Center.dat", " ") Sleep(1200) MsgBox(0, "Pass", "Password accepted!") $access = 1 EndIf If $pass = 0 Then $ATTEMPT = $ATTEMPT + 1 _FileWriteLog("C:\Pass\Logs\Log_Command_Center.dat", "*** Invalid Pass *** " & $ATTEMPT & " -" & $returnvalue) SoundPlay("C:\Windows\media\Windows XP Error.wav") EndIf If $pass = 1 Then $ATTEMPT = $ATTEMPT + 1 _FileWriteLog("C:\Pass\Logs\Log_Command_Center.dat", "*** Invalid Pass *** " & $ATTEMPT & " -" & $returnvalue) SoundPlay("C:\Windows\media\Windows XP Error.wav") EndIf If $pass = 2 Then $ATTEMPT = $ATTEMPT + 1 _FileWriteLog("C:\Pass\Logs\Log_Command_Center.dat", "*** Invalid Pass *** " & $ATTEMPT & " -" & $returnvalue) SoundPlay("C:\Windows\media\Windows XP Error.wav") EndIf If $pass = 3 Then $ATTEMPT = $ATTEMPT + 1 _FileWriteLog("C:\Pass\Logs\Log_Command_Center.dat", "*** Invalid Pass *** " & $ATTEMPT & " -" & $returnvalue) SoundPlay("C:\Windows\media\Windows XP Error.wav") EndIf If $pass = 4 Then $ATTEMPT = $ATTEMPT + 1 _FileWriteLog("C:\Pass\Logs\Log_Command_Center.dat", "*** Invalid Pass *** " & $ATTEMPT & " -" & $returnvalue) SoundPlay("C:\Windows\media\Windows XP Error.wav") EndIf $pass = 0 $ATTEMPT = $ATTEMPT + 1 _FileWriteLog("C:\Pass\Logs\Log_Command_Center.dat""", "*** Invalid Pass *** " & $ATTEMPT & " -" & $returnvalue) ;;End Enter Key Case $msg = $Button_12; Enable on start-up _acc() If $access = 1 Then FileCopy("C:\Pass\pass.exe", "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\pass.exe", 1) _done() EndIf Case $msg = $Button_13; Disble on start-up _acc() If $access = 1 Then FileDelete("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\pass.exe") _done() EndIf Case $msg = $Button_14; Remove all files _acc() If $access = 1 Then FileDelete("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\pass.exe") DirRemove("C:\pass", 1) _done() EndIf Case $msg = $Button_16; Runs the password program _acc() If $access = 1 Then Run("pass.exe", "C:\pass\pass.exe") EndIf Case $msg = $Button_17; Log-Out If $access = 0 Then MsgBox(0, "Log-Out", "You can't log-out if you havn't logged in...") EndIf If $access = 1 Then $access = 0 _done() Endif Case $msg = $Button_19; Starts the auto-activate program _acc() If $access = 1 Then Run("auto-activate", "C:\Pass") Msgbox(0, "Auto-Activate", "Press F9 to run pass.exe") _done() Endif Case $msg = $Button_20; Credits If $access = 0 Then MsgBox(0, "Enter Password", "Please Enter correct password!") Endif If $access = 1 Then MsgBox(0, "Credits", "This Program and all of it's extensions were made by: Firestorm." & @LF & "~~Firestorm is in no way responsible for what you do with this program or any of it's extensions!~~") EndIf Case $msg = $Button_21; Enable Auto-Activate on start-up _acc() If $access = 1 Then FileCopy("C:\Pass\auto-activate.exe", "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\auto-activate.exe", 1) _done() Endif Case $msg = $button_22; Disable Auto-Activate on start-up _acc() If $access = 1 Then FileDelete("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\auto-activate.exe") EndIf EndSelect WEnd Exit #endregion --- GuiBuilder generated code End --- Func _acc() If $access = 0 Then MsgBox(0, "Enter Password", "Please Enter correct password!") Endif EndFunc Func _done() MsgBox(0, "Complete", "Task Complete") EndFuncYou also didn't have $ATTEMPT / $RETURNVALUE declared... Edited March 28, 2006 by SmOke_N Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.
Thatsgreat2345 Posted March 28, 2006 Posted March 28, 2006 smoke got there b4 me and i did the same thing
Skrip Posted March 28, 2006 Author Posted March 28, 2006 Thank you it's working now!!! [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now