techguy86 0 Posted August 11, 2004 Share Posted August 11, 2004 This is a script I wrote. I'm having problems running it. Is it my fault? How do I fix it? Sorry it takes up so much space. Computerguy_86 -------------------------------------------------------------------------------------------- Opt("TrayIconHide", 0) Opt("GUICoordMode", 1) Opt("GUINotifyMode", 1) GuiCreate("All-in-One", 340,485) GUISetControl( "group", "Information Area", 10, 5, 155, 230) $button_1 = GUISetControl("button", "About", 20, 25, 65, 20) $button_2 = GUISetControl("button", "Help", 90, 25, 65, 20) $button_3 = GUISetControl("button", "Date", 20, 50, 65, 20) $button_4 = GUISetControl("button", "Time", 90, 50, 65, 20) $button_5 = GUISetControl("button", "Computer Name", 20, 75, 135, 20) $button_6 = GUISetControl("button", "Username", 20, 100, 135, 20) $button_7 = GUISetControl("button", "IP Addresses", 20, 125, 135, 20) $button_8 = GUISetControl("button", "Windows Product Key", 20, 150, 135, 20) $button_9 = GUISetControl("button", "Screensaver Password", 20, 175, 135, 20) $button_10 = GUISetControl("button", "Open Drives", 20, 200, 65, 20) $button_11 = GUISetControl("button", "Close Drives", 90, 200, 65, 20) GUISetControl( "group", "Drive Hider", 175, 5, 155, 230) GUISetControl("label", "A:", 185,25, 15,15) GUISetControl("label", "B:", 185,40, 15,15) GUISetControl("label", "C:", 185,55, 15,15) GUISetControl("label", "D:", 185,70, 15,15) GUISetControl("label", "E:", 185,85, 15,15) GUISetControl("label", "F:", 185,100, 15,15) GUISetControl("label", "G:", 185,115, 15,15) GUISetControl("label", "H:", 185,130, 15,15) GUISetControl("label", "I:", 185,145, 15,15) GUISetControl("label", "J:", 185,160, 15,15) GUISetControl("label", "K:", 185,175, 15,15) GUISetControl("label", "L:", 185,190, 15,15) GUISetControl("label", "M:", 185,205, 15,15) GUISetControl("label", "N:", 290,25, 15,15) GUISetControl("label", "O:", 290,40, 15,15) GUISetControl("label", "P:", 290,55, 15,15) GUISetControl("label", "Q:", 290,70, 15,15) GUISetControl("label", "R:", 290,85, 15,15) GUISetControl("label", "S:", 290,100, 15,15) GUISetControl("label", "T:", 290,115, 15,15) GUISetControl("label", "U:", 290,130, 15,15) GUISetControl("label", "V:", 290,145, 15,15) GUISetControl("label", "W:", 290,160, 15,15) GUISetControl("label", "X:", 290,175, 15,15) GUISetControl("label", "Y:", 290,190, 15,15) GUISetControl("label", "Z:", 290,205, 15,15) $button_12 = GUISetControl("checkbox", "", 200,25, 14,15) $button_13 = GUISetControl("checkbox", "", 200,40, 14,15) $button_14 = GUISetControl("checkbox", "", 200,55, 14,15) $button_15 = GUISetControl("checkbox", "", 200,70, 14,15) $button_16 = GUISetControl("checkbox", "", 200,85, 14,15) $button_17 = GUISetControl("checkbox", "", 200,100, 14,15) $button_18 = GUISetControl("checkbox", "", 200,115, 14,15) $button_19 = GUISetControl("checkbox", "", 200,130, 14,15) $button_20 = GUISetControl("checkbox", "", 200,145, 14,15) $button_21 = GUISetControl("checkbox", "", 200,160, 14,15) $button_22 = GUISetControl("checkbox", "", 200,175, 14,15) $button_23 = GUISetControl("checkbox", "", 200,190, 14,15) $button_24 = GUISetControl("checkbox", "", 200,205, 14,15) $button_25 = GUISetControl("checkbox", "", 305,25, 14,15) $button_26 = GUISetControl("checkbox", "", 305,40, 14,15) $button_27 = GUISetControl("checkbox", "", 305,55, 14,15) $button_28 = GUISetControl("checkbox", "", 305,70, 14,15) $button_29 = GUISetControl("checkbox", "", 305,85, 14,15) $button_30 = GUISetControl("checkbox", "", 305,100, 14,15) $button_31 = GUISetControl("checkbox", "", 305,115, 14,15) $button_32 = GUISetControl("checkbox", "", 305,130, 14,15) $button_33 = GUISetControl("checkbox", "", 305,145, 14,15) $button_34 = GUISetControl("checkbox", "", 305,160, 14,15) $button_35 = GUISetControl("checkbox", "", 305,175, 14,15) $button_36 = GUISetControl("checkbox", "", 305,190, 14,15) $button_37 = GUISetControl("checkbox", "", 305,205, 14,15) $button_38 = GUISetControl("button", "Hide All", 222, 26, 60, 28) $button_39 = GUISetControl("button", "Show All", 222, 56, 60, 28) $button_40 = GUISetControl("button", "Apply", 222, 86, 60, 28) $button_41 = GUISetControl("button", "Password", 222, 116, 60, 28) $button_42 = GUISetControl("button", "Log Off", 222, 147, 60, 22) $button_43 = GUISetControl("button", "Restart", 222, 172, 60, 22) $button_44 = GUISetControl("button", "Shutdown", 222, 197, 60, 22) $value = RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDrives") GUISetControl( "group", "Launch Pad - Mini", 10, 240, 320, 55) GUISetControl("combo", "my combo", 20,260, 135,120) GUISetControlData(-1,"Address Book|Backup|Calculator|CD Player|Character Map|Command Prompt|Disk Cleanup|Disk Defragmenter|Drive Converter|Drive Space_ |Freecell|Hearts|Internet Explorer|Maintenance Wizard|Minesweeper|MS-Config|Notepad|Paint|Registry Editor|Resource Meter|Scan Disk|Scheduled Tasks_ |Solitaire|Sound Recorder|System Information|Volume Control|Windows Explorer|Windows Media Player|Windows Update|Winpopup|Wordpad") $button_45 = GUISetControl("button", "Go!", 185, 260, 135, 22) GUISetControl( "group", "Launch Pad - Custom", 10, 300, 320, 175) ;$Name1 = IniRead(@ProgramFilesDir & "\All-in-One\Settings.ini", "Custom", "Button1Name", "Unassigned") ;$Path1 = IniRead(@ProgramFilesDir & "\All-in-One\Settings.ini", "Custom", "Button1Path", "Unassigned") $Name1 = IniRead("Settings.ini", "Custom", "Button1Name", "") $Path1 = IniRead("Settings.ini", "Custom", "Button1Path", "Unassigned") $button_46 = GUISetControl("button", $Name1, 20, 320, 145, 20) $Name2 = IniRead("Settings.ini", "Custom", "Button2Name", "") $Path2 = IniRead("Settings.ini", "Custom", "Button2Path", "Unassigned") $button_47 = GUISetControl("button", $Name2, 175, 320, 145, 20) $Name3 = IniRead("Settings.ini", "Custom", "Button3Name", "") $Path3 = IniRead("Settings.ini", "Custom", "Button3Path", "Unassigned") $button_48 = GUISetControl("button", $Name3, 20, 350, 145, 20) $Name4 = IniRead("Settings.ini", "Custom", "Button4Name", "") $Path4 = IniRead("Settings.ini", "Custom", "Button4Path", "Unassigned") $button_49 = GUISetControl("button", $Name4, 175, 350, 145, 20) $Name5 = IniRead("Settings.ini", "Custom", "Button5Name", "") $Path5 = IniRead("Settings.ini", "Custom", "Button5Path", "Unassigned") $button_50 = GUISetControl("button", $Name5, 20, 380, 145, 20) $Name6 = IniRead("Settings.ini", "Custom", "Button6Name", "") $Path6 = IniRead("Settings.ini", "Custom", "Button6Path", "Unassigned") $button_51 = GUISetControl("button", $Name6, 175, 380, 145, 20) $Name7 = IniRead("Settings.ini", "Custom", "Button7Name", "") $Path7 = IniRead("Settings.ini", "Custom", "Button7Path", "Unassigned") $button_52 = GUISetControl("button", $Name7, 20, 410, 145, 20) $Name8 = IniRead("Settings.ini", "Custom", "Button8Name", "") $Path8 = IniRead("Settings.ini", "Custom", "Button8Path", "Unassigned") $button_53 = GUISetControl("button", $Name8, 175, 410, 145, 20) $Name9 = IniRead("Settings.ini", "Custom", "Button9Name", "") $Path9 = IniRead("Settings.ini", "Custom", "Button9Path", "Unassigned") $button_54 = GUISetControl("button", $Name9, 20, 440, 145, 20) $Name10 = IniRead("Settings.ini", "Custom", "Button10Name", "") $Path10 = IniRead("Settings.ini", "Custom", "Button10Path", "Unassigned") $button_55 = GUISetControl("button", $Name10, 175, 440, 145, 20) $Drop1 = IniRead("Settings.ini", "Mini", "Combo1Path", "Unassigned") $Drop2 = IniRead("Settings.ini", "Mini", "Combo2Path", "Unassigned") $Drop3 = IniRead("Settings.ini", "Mini", "Combo3Path", "Unassigned") $Drop4 = IniRead("Settings.ini", "Mini", "Combo4Path", "Unassigned") $Drop5 = IniRead("Settings.ini", "Mini", "Combo5Path", "Unassigned") $Drop6 = IniRead("Settings.ini", "Mini", "Combo6Path", "Unassigned") $Drop7 = IniRead("Settings.ini", "Mini", "Combo7Path", "Unassigned") $Drop8 = IniRead("Settings.ini", "Mini", "Combo8Path", "Unassigned") $Drop9 = IniRead("Settings.ini", "Mini", "Combo9Path", "Unassigned") $Drop10 = IniRead("Settings.ini", "Mini", "Combo10Path", "Unassigned") $Drop11 = IniRead("Settings.ini", "Mini", "Combo11Path", "Unassigned") $Drop12 = IniRead("Settings.ini", "Mini", "Combo12Path", "Unassigned") $Drop13 = IniRead("Settings.ini", "Mini", "Combo13Path", "Unassigned") $Drop14 = IniRead("Settings.ini", "Mini", "Combo14Path", "Unassigned") $Drop15 = IniRead("Settings.ini", "Mini", "Combo15Path", "Unassigned") $Drop16 = IniRead("Settings.ini", "Mini", "Combo16Path", "Unassigned") $Drop17 = IniRead("Settings.ini", "Mini", "Combo17Path", "Unassigned") $Drop18 = IniRead("Settings.ini", "Mini", "Combo18Path", "Unassigned") $Drop19 = IniRead("Settings.ini", "Mini", "Combo19Path", "Unassigned") $Drop20 = IniRead("Settings.ini", "Mini", "Combo20Path", "Unassigned") $Drop21 = IniRead("Settings.ini", "Mini", "Combo21Path", "Unassigned") $Drop22 = IniRead("Settings.ini", "Mini", "Combo22Path", "Unassigned") $Drop23 = IniRead("Settings.ini", "Mini", "Combo23Path", "Unassigned") $Drop24 = IniRead("Settings.ini", "Mini", "Combo24Path", "Unassigned") $Drop25 = IniRead("Settings.ini", "Mini", "Combo25Path", "Unassigned") $Drop26 = IniRead("Settings.ini", "Mini", "Combo26Path", "Unassigned") $Drop27 = IniRead("Settings.ini", "Mini", "Combo27Path", "Unassigned") $Drop28 = IniRead("Settings.ini", "Mini", "Combo28Path", "Unassigned") $Drop29 = IniRead("Settings.ini", "Mini", "Combo29Path", "Unassigned") $Drop30 = IniRead("Settings.ini", "Mini", "Combo30Path", "Unassigned") $Drop31 = IniRead("Settings.ini", "Mini", "Combo31Path", "Unassigned") GuiShow() Select Case $value = 1 ControlCommand ( "All-in-One", "Close", "Button12", "Check", "" ) Case $value = 2 ControlCommand ( "All-in-One", "Close", "Button13", "Check", "" ) Case $value = 3 ControlCommand ( "All-in-One", "Close", "Button12", "Check", "" ) ControlCommand ( "All-in-One", "Close", "Button13", "Check", "" ) Case $value = 4 ControlCommand ( "All-in-One", "Close", "Button14", "Check", "" ) Case $value = 5 ControlCommand ( "All-in-One", "Close", "Button12", "Check", "" ) ControlCommand ( "All-in-One", "Close", "Button14", "Check", "" ) Case $value = 6 ControlCommand ( "All-in-One", "Close", "Button13", "Check", "" ) ControlCommand ( "All-in-One", "Close", "Button14", "Check", "" ) Case $value = 7 ControlCommand ( "All-in-One", "Close", "Button12", "Check", "" ) ControlCommand ( "All-in-One", "Close", "Button13", "Check", "" ) ControlCommand ( "All-in-One", "Close", "Button14", "Check", "" ) Case $value = 8 ControlCommand ( "All-in-One", "Close", "Button15", "Check", "" ) Case $value = 9 ControlCommand ( "All-in-One", "Close", "Button12", "Check", "" ) ControlCommand ( "All-in-One", "Close", "Button15", "Check", "" ) Case $value = 10 ControlCommand ( "All-in-One", "Close", "Button13", "Check", "" ) ControlCommand ( "All-in-One", "Close", "Button15", "Check", "" ) Case $value = 11 ControlCommand ( "All-in-One", "Close", "Button12", "Check", "" ) ControlCommand ( "All-in-One", "Close", "Button13", "Check", "" ) ControlCommand ( "All-in-One", "Close", "Button15", "Check", "" ) ; Case $value = 12 ;ControlCommand ( "All-in-One", "Close", "Button14", "Check", "" ) ; ; Case $value = 13 ;ControlCommand ( "All-in-One", "Close", "Button12", "Check", "" ) ;ControlCommand ( "All-in-One", "Close", "Button13", "Check", "" ) ; Case $value = 14 ;ControlCommand ( "All-in-One", "Close", "Button14", "Check", "" ) ; Case $value = 15 ;ControlCommand ( "All-in-One", "Close", "Button12", "Check", "" ) ;ControlCommand ( "All-in-One", "Close", "Button14", "Check", "" ) ; Case $value = 16 ;ControlCommand ( "All-in-One", "Close", "Button13", "Check", "" ) ;ControlCommand ( "All-in-One", "Close", "Button14", "Check", "" ) ; Case $value = 17 ;ControlCommand ( "All-in-One", "Close", "Button12", "Check", "" ) ;ControlCommand ( "All-in-One", "Close", "Button13", "Check", "" ) ;ControlCommand ( "All-in-One", "Close", "Button14", "Check", "" ) ; Case $value = 18 ;ControlCommand ( "All-in-One", "Close", "Button15", "Check", "" ) ; Case $value = 19 ;ControlCommand ( "All-in-One", "Close", "Button12", "Check", "" ) ;ControlCommand ( "All-in-One", "Close", "Button15", "Check", "" ) ; Case $value = 20 ;ControlCommand ( "All-in-One", "Close", "Button13", "Check", "" ) ;ControlCommand ( "All-in-One", "Close", "Button15", "Check", "" ) EndSelect ;MsgBox(0,$value, $state1) While 1 $msg = GuiMsg(0) Select Case $msg = -3 ExitLoop Case $msg = $button_1 MsgBox(0, "All-in-One", "Version 1.0", 45) Case $msg = $button_2 MsgBox(0, "All-in-One", "Help File") Case $msg = $button_3 MsgBox(0, "All-in-One", @MON & "/" & @MDAY & "/" & @YEAR, 45) Case $msg = $button_4 MsgBox(0, "All-in-One", @HOUR & ":" & @MIN, 45) Case $msg = $button_5 MsgBox(0,"Computer Name:", @ComputerName, 45) Case $msg = $button_6 MsgBox(0,"Username:", @UserName, 45) Case $msg = $button_7 MsgBox(0,"All-in-One", "IP Address of 1st Network Adapter: " & @IPAddress1 & @CR & "IP Address of 2nd Network Adapter: " & @IPAddress2 & @CR & "IP Address of 3rd Network Adapter: " & @IPAddress3 & @CR & "IP Address of 4th Network Adapter: " & @IPAddress4, 45) Case $msg = $button_8 $key = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "ProductKey") MsgBox(0,"Windows Product Key:", $key, 45) Case $msg = $button_9 $data = RegRead("HKEY_USERS\.DEFAULT\Control Panel\Desktop", "ScreenSave_Data") If @error = -1 Then MsgBox(0, "Screensaver Password", "No Password Present.", 45) Else $trimmed = StringTrimRight ( $data, 2 ) $length = StringLen ( $trimmed ) $password = $length / 4 If $password = 1 Then $code1 = StringMid($trimmed, 1, 4) EndIf If $password = 2 Then $code1 = StringMid($trimmed, 1, 4) $code2 = StringMid($trimmed, 5, 4) EndIf If $password = 3 Then $code1 = StringMid($trimmed, 1, 4) $code2 = StringMid($trimmed, 5, 4) $code3 = StringMid($trimmed, 9, 4) EndIf If $password = 4 Then $code1 = StringMid($trimmed, 1, 4) $code2 = StringMid($trimmed, 5, 4) $code3 = StringMid($trimmed, 9, 4) $code4 = StringMid($trimmed, 13, 4) EndIf If $password = 5 Then $code1 = StringMid($trimmed, 1, 4) $code2 = StringMid($trimmed, 5, 4) $code3 = StringMid($trimmed, 9, 4) $code4 = StringMid($trimmed, 13, 4) $code5 = StringMid($trimmed, 17, 4) EndIf Select Case $code1 = 3738 $pass = $pass & "0" Case $code1 = 3739 $pass = $pass & "1" Case $code1 = 3741 $pass = $pass & "2" Case $code1 = 3742 $pass = $pass & "3" Case $code1 = 3743 $pass = $pass & "4" Case $code1 = 3744 $pass = $pass & "5" Case $code1 = 3745 $pass = $pass & "6" Case $code1 = 3746 $pass = $pass & "7" Case $code1 = 3730 $pass = $pass & "8" Case $code1 = 3731 $pass = $pass & "9" Case $code1 = 3039 $pass = $pass & "a" Case $code1 = 3041 $pass = $pass & "b" Case $code1 = 3042 $pass = $pass & "c" Case $code1 = 3043 $pass = $pass & "d" Case $code1 = 3044 $pass = $pass & "e" Case $code1 = 3045 $pass = $pass & "f" Case $code1 = 3046 $pass = $pass & "g" Case $code1 = 3030 $pass = $pass & "h" Case $code1 = 3031 $pass = $pass & "i" Case $code1 = 3032 $pass = $pass & "j" Case $code1 = 3033 $pass = $pass & "k" Case $code1 = 3034 $pass = $pass & "l" Case $code1 = 3035 $pass = $pass & "m" Case $code1 = 3036 $pass = $pass & "n" Case $code1 = 3037 $pass = $pass & "o" Case $code1 = 3138 $pass = $pass & "p" Case $code1 = 3139 $pass = $pass & "q" Case $code1 = 3141 $pass = $pass & "r" Case $code1 = 3142 $pass = $pass & "s" Case $code1 = 3143 $pass = $pass & "t" Case $code1 = 3144 $pass = $pass & "u" Case $code1 = 3145 $pass = $pass & "v" Case $code1 = 3146 $pass = $pass & "w" Case $code1 = 3130 $pass = $pass & "x" Case $code1 = 3131 $pass = $pass & "y" Case $code1 = 3132 $pass = $pass & "z" EndSelect Select Case $code2 = 4445 $pass = $pass & "0" Case $code2 = 4446 $pass = $pass & "1" Case $code2 = 4443 $pass = $pass & "2" Case $code2 = 4444 $pass = $pass & "3" Case $code2 = 4441 $pass = $pass & "4" Case $code2 = 4442 $pass = $pass & "5" Case $code2 = 4438 $pass = $pass & "6" Case $code2 = 4439 $pass = $pass & "7" Case $code2 = 4436 $pass = $pass & "8" Case $code2 = 4437 $pass = $pass & "9" Case $code2 = 4146 $pass = $pass & "a" Case $code2 = 4143 $pass = $pass & "b" Case $code2 = 4144 $pass = $pass & "c" Case $code2 = 4141 $pass = $pass & "d" Case $code2 = 4142 $pass = $pass & "e" Case $code2 = 4138 $pass = $pass & "f" Case $code2 = 4139 $pass = $pass & "g" Case $code2 = 4136 $pass = $pass & "h" Case $code2 = 4137 $pass = $pass & "i" Case $code2 = 4134 $pass = $pass & "j" Case $code2 = 4135 $pass = $pass & "k" Case $code2 = 4132 $pass = $pass & "l" Case $code2 = 4133 $pass = $pass & "m" Case $code2 = 4130 $pass = $pass & "n" Case $code2 = 4131 $pass = $pass & "o" Case $code2 = 4245 $pass = $pass & "p" Case $code2 = 4246 $pass = $pass & "q" Case $code2 = 4243 $pass = $pass & "r" Case $code2 = 4244 $pass = $pass & "s" Case $code2 = 4241 $pass = $pass & "t" Case $code2 = 4242 $pass = $pass & "u" Case $code2 = 4238 $pass = $pass & "v" Case $code2 = 4239 $pass = $pass & "w" Case $code2 = 4236 $pass = $pass & "x" Case $code2 = 4237 $pass = $pass & "y" Case $code2 = 4234 $pass = $pass & "z" EndSelect Select Case $code3 = 3436 $pass = $pass & "0" Case $code3 = 3437 $pass = $pass & "1" Case $code3 = 3434 $pass = $pass & "2" Case $code3 = 3435 $pass = $pass & "3" Case $code3 = 3432 $pass = $pass & "4" Case $code3 = 3433 $pass = $pass & "5" Case $code3 = 3430 $pass = $pass & "6" Case $code3 = 3431 $pass = $pass & "7" Case $code3 = 3445 $pass = $pass & "8" Case $code3 = 3446 $pass = $pass & "9" Case $code3 = 3337 $pass = $pass & "a" Case $code3 = 3334 $pass = $pass & "b" Case $code3 = 3335 $pass = $pass & "c" Case $code3 = 3332 $pass = $pass & "d" Case $code3 = 3333 $pass = $pass & "e" Case $code3 = 3330 $pass = $pass & "f" Case $code3 = 3331 $pass = $pass & "g" Case $code3 = 3345 $pass = $pass & "h" Case $code3 = 3346 $pass = $pass & "i" Case $code3 = 3343 $pass = $pass & "j" Case $code3 = 3344 $pass = $pass & "k" Case $code3 = 3341 $pass = $pass & "l" Case $code3 = 3342 $pass = $pass & "m" Case $code3 = 3338 $pass = $pass & "n" Case $code3 = 3339 $pass = $pass & "o" Case $code3 = 3236 $pass = $pass & "p" Case $code3 = 3237 $pass = $pass & "q" Case $code3 = 3234 $pass = $pass & "r" Case $code3 = 3235 $pass = $pass & "s" Case $code3 = 3232 $pass = $pass & "t" Case $code3 = 3233 $pass = $pass & "u" Case $code3 = 3230 $pass = $pass & "v" Case $code3 = 3231 $pass = $pass & "w" Case $code3 = 3245 $pass = $pass & "x" Case $code3 = 3246 $pass = $pass & "y" Case $code3 = 3243 $pass = $pass & "z" EndSelect Select Case $code4 = 3244 $pass = $pass & "0" Case $code4 = 3243 $pass = $pass & "1" Case $code4 = 3246 $pass = $pass & "2" Case $code4 = 3245 $pass = $pass & "3" Case $code4 = 3239 $pass = $pass & "4" Case $code4 = 3238 $pass = $pass & "5" Case $code4 = 3242 $pass = $pass & "6" Case $code4 = 3241 $pass = $pass & "7" Case $code4 = 3235 $pass = $pass & "8" Case $code4 = 3234 $pass = $pass & "9" Case $code4 = 3543 $pass = $pass & "a" Case $code4 = 3546 $pass = $pass & "b" Case $code4 = 3545 $pass = $pass & "c" Case $code4 = 3539 $pass = $pass & "d" Case $code4 = 3538 $pass = $pass & "e" Case $code4 = 3542 $pass = $pass & "f" Case $code4 = 3541 $pass = $pass & "g" Case $code4 = 3535 $pass = $pass & "h" Case $code4 = 3534 $pass = $pass & "i" Case $code4 = 3537 $pass = $pass & "j" Case $code4 = 3536 $pass = $pass & "k" Case $code4 = 3531 $pass = $pass & "l" Case $code4 = 3530 $pass = $pass & "m" Case $code4 = 3533 $pass = $pass & "n" Case $code4 = 3532 $pass = $pass & "o" Case $code4 = 3444 $pass = $pass & "p" Case $code4 = 3443 $pass = $pass & "q" Case $code4 = 3446 $pass = $pass & "r" Case $code4 = 3445 $pass = $pass & "s" Case $code4 = 3439 $pass = $pass & "t" Case $code4 = 3438 $pass = $pass & "u" Case $code4 = 3442 $pass = $pass & "v" Case $code4 = 3441 $pass = $pass & "w" Case $code4 = 3435 $pass = $pass & "x" Case $code4 = 3434 $pass = $pass & "y" Case $code4 = 3437 $pass = $pass & "z" EndSelect Select Case $code5 = 3537 $pass = $pass & "0" Case $code5 = 3536 $pass = $pass & "1" Case $code5 = 3535 $pass = $pass & "2" Case $code5 = 3534 $pass = $pass & "3" Case $code5 = 3533 $pass = $pass & "4" Case $code5 = 3532 $pass = $pass & "5" Case $code5 = 3531 $pass = $pass & "6" Case $code5 = 3530 $pass = $pass & "7" Case $code5 = 3546 $pass = $pass & "8" Case $code5 = 3545 $pass = $pass & "9" Case $code5 = 3236 $pass = $pass & "a" Case $code5 = 3235 $pass = $pass & "b" Case $code5 = 3234 $pass = $pass & "c" Case $code5 = 3233 $pass = $pass & "d" Case $code5 = 3232 $pass = $pass & "e" Case $code5 = 3231 $pass = $pass & "f" Case $code5 = 3230 $pass = $pass & "g" Case $code5 = 3246 $pass = $pass & "h" Case $code5 = 3245 $pass = $pass & "i" Case $code5 = 3244 $pass = $pass & "j" Case $code5 = 3243 $pass = $pass & "k" Case $code5 = 3242 $pass = $pass & "l" Case $code5 = 3241 $pass = $pass & "m" Case $code5 = 3239 $pass = $pass & "n" Case $code5 = 3238 $pass = $pass & "o" Case $code5 = 3337 $pass = $pass & "p" Case $code5 = 3336 $pass = $pass & "q" Case $code5 = 3335 $pass = $pass & "r" Case $code5 = 3334 $pass = $pass & "s" Case $code5 = 3333 $pass = $pass & "t" Case $code5 = 3332 $pass = $pass & "u" Case $code5 = 3331 $pass = $pass & "v" Case $code5 = 3330 $pass = $pass & "w" Case $code5 = 3346 $pass = $pass & "x" Case $code5 = 3345 $pass = $pass & "y" Case $code5 = 3344 $pass = $pass & "z" EndSelect MsgBox(0, "Screensaver Password Character Not Found = ยค", 'Current Password: ' & $pass, 45) EndIf Case $msg = $button_10 $open = MsgBox(1, "Launch Pad", "Preparing to open all ejectable drives..." & @CR & "Continue?", 45) If $open = 1 Then $stat = 0 $drives = StringSplit("A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z", ",") Do CDTray($drives[$stat] & ":", "open") $stat = $stat + 1 Until $stat = 27 EndIf Case $msg = $button_11 $close = MsgBox(1, "Launch Pad", "Preparing to close all ejectable drives..." & @CR & "Continue?", 45) If $close = 1 Then $stat = 0 $drives = StringSplit("A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z", ",") Do CDTray($drives[$stat] & ":", "closed") $stat = $stat + 1 Until $stat = 27 EndIf Case $msg = $button_38 $igloo = 14 Do ControlCommand ( "All-in-One", "Close", "Button" & $igloo, "Check", "" ) $igloo = $igloo + 1 Until $igloo = 40 Case $msg = $button_39 $igloo = 14 Do ControlCommand ( "All-in-One", "Close", "Button" & $igloo, "UnCheck", "" ) $igloo = $igloo + 1 Until $igloo = 40 Case $msg = $button_40 $box = 0 $state1 = GuiRead($button_12) If $state1 = 1 Then $box = $box + 1 EndIf $state2 = GuiRead($button_13) If $state2 = 1 Then $box = $box + 2 EndIf $state3 = GuiRead($button_14) If $state3 = 1 Then $box = $box + 4 EndIf $state4 = GuiRead($button_15) If $state4 = 1 Then $box = $box + 8 EndIf $state5 = GuiRead($button_16) If $state5 = 1 Then $box = $box + 16 EndIf $state6 = GuiRead($button_17) If $state6 = 1 Then $box = $box + 32 EndIf $state7 = GuiRead($button_18) If $state7 = 1 Then $box = $box + 64 EndIf $state8 = GuiRead($button_19) If $state8 = 1 Then $box = $box + 128 EndIf $state9 = GuiRead($button_20) If $state9 = 1 Then $box = $box + 256 EndIf $state10 = GuiRead($button_21) If $state10 = 1 Then $box = $box + 512 EndIf $state11 = GuiRead($button_22) If $state11 = 1 Then $box = $box + 1024 EndIf $state12 = GuiRead($button_23) If $state12 = 1 Then $box = $box + 2048 EndIf $state13 = GuiRead($button_24) If $state13 = 1 Then $box = $box + 4096 EndIf $state14 = GuiRead($button_25) If $state14 = 1 Then $box = $box + 8192 EndIf $state15 = GuiRead($button_26) If $state15 = 1 Then $box = $box + 16384 EndIf $state16 = GuiRead($button_27) If $state16 = 1 Then $box = $box + 32768 EndIf $state17 = GuiRead($button_28) If $state17 = 1 Then $box = $box + 65536 EndIf $state18 = GuiRead($button_29) If $state18 = 1 Then $box = $box + 131072 EndIf $state19 = GuiRead($button_30) If $state19 = 1 Then $box = $box + 262144 EndIf $state20 = GuiRead($button_31) If $state20 = 1 Then $box = $box + 524288 EndIf $state21 = GuiRead($button_32) If $state21 = 1 Then $box = $box + 1048576 EndIf $state22 = GuiRead($button_33) If $state22 = 1 Then $box = $box + 2097152 EndIf $state23 = GuiRead($button_34) If $state23 = 1 Then $box = $box + 4194304 EndIf $state24 = GuiRead($button_35) If $state24 = 1 Then $box = $box + 8388608 EndIf $state25 = GuiRead($button_36) If $state25 = 1 Then $box = $box + 16777216 EndIf $state26 = GuiRead($button_37) If $state26 = 1 Then $box = $box + 33554432 EndIf RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDrives", "REG_DWORD", $box) $answer = MsgBox(36, "System Settings Change", "You must restart your computer before the new settings will take effect." & @CR & "Do you want to restart your computer now?") If $answer = 6 Then Shutdown(2) EndIf Case $msg = $button_41 MsgBox(0, "Drive Hider", "This button does not work yet.", 45) Case $msg = $button_42 Shutdown(0) Case $msg = $button_43 Shutdown(2) Case $msg = $button_44 Shutdown(1) Case $msg = $button_45 $mini = ControlGetText("All-in-One", "Close", "Edit1") ;EndSelect ;Select Case $mini = "" MsgBox(0,"Launch Pad - Mini", "You must first select a program to run.") Case $mini = "Reset" MsgBox(0,"Launch Pad - Mini", "Are you sure you want to reset the settings for All-in-One?") Case $mini = "Address Book" If $Drop1 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop1) EndIf Case $mini = "Backup" If $Drop2 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop2) EndIf Case $mini = "Calculator" If $Drop3 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop3) EndIf Case $mini = "CD Player" If $Drop4 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop4) EndIf Case $mini = "Character Map" If $Drop5 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop5) EndIf Case $mini = "Command Prompt" If $Drop6 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop6) EndIf Case $mini = "Disk Cleanup" If $Drop7 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop7) EndIf Case $mini = "Disk Defragmenter" If $Drop8 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop8) EndIf Case $mini = "Drive Converter" If $Drop9 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop9) EndIf Case $mini = "Drive Space" If $Drop10 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop10) EndIf Case $mini = "Freecell" If $Drop11 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop11) EndIf Case $mini = "Hearts" If $Drop12 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop12) EndIf Case $mini = "Internet Explorer" If $Drop13 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop13) EndIf Case $mini = "Maintenance Wizard" If $Drop14 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop14) EndIf Case $mini = "Minesweeper" If $Drop15 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop15) EndIf Case $mini = "MS-Config" If $Drop16 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop16) EndIf Case $mini = "Notepad" If $Drop17 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop17) EndIf Case $mini = "Paint" If $Drop18 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop18) EndIf Case $mini = "Registry Editor" If $Drop19 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop19) EndIf Case $mini = "Resource Meter" If $Drop20 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop20) EndIf Case $mini = "Scan Disk" If $Drop21 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop21) EndIf Case $mini = "Scheduled Tasks" If $Drop22 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop22) EndIf Case $mini = "Solitaire" If $Drop23 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop23) EndIf Case $mini = "Sound Recorder" If $Drop24 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop24) EndIf Case $mini = "System Information" If $Drop25 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop25) EndIf Case $mini = "Volume Control" If $Drop26 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop26) EndIf Case $mini = "Windows Explorer" If $Drop27 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop27) EndIf Case $mini = "Windows Media Player" If $Drop28 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop28) EndIf Case $mini = "Windows Update" If $Drop29 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop29) EndIf Case $mini = "Winpopup" If $Drop30 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop30) EndIf Case $mini = "Wordpad" If $Drop31 = "Unassigned" Then MsgBox(0,"Launch Pad - Mini", "No path has been set up for this program.") Else Run($Drop31) this is 1;EndSelect ;Select Case $msg = $button_46 If $Path1 NOT = "Unassigned" Then Run($Path1) EndIf MsgBox(0, "Launch Pad - Custom", "This button is not associated with any program.", 45) Case $msg = $button_47 If $Path2 NOT = "Unassigned" Then Run($Path2) EndIf MsgBox(0, "Launch Pad - Custom", "This button is not associated with any program.", 45) Case $msg = $button_48 If $Path3 NOT = "Unassigned" Then Run($Path3) EndIf MsgBox(0, "Launch Pad - Custom", "This button is not associated with any program.", 45) Case $msg = $button_49 If $Path4 NOT = "Unassigned" Then Run($Path4) EndIf MsgBox(0, "Launch Pad - Custom", "This button is not associated with any program.", 45) Case $msg = $button_50 If $Path5 NOT = "Unassigned" Then Run($Path5) EndIf MsgBox(0, "Launch Pad - Custom", "This button is not associated with any program.", 45) Case $msg = $button_51 If $Path6 NOT = "Unassigned" Then Run($Path6) EndIf MsgBox(0, "Launch Pad - Custom", "This button is not associated with any program.", 45) Case $msg = $button_52 If $Path7 NOT = "Unassigned" Then Run($Path7) EndIf MsgBox(0, "Launch Pad", "This button is not associated with any program.", 45) Case $msg = $button_53 If $Path8 NOT = "Unassigned" Then Run($Path8) EndIf MsgBox(0, "Launch Pad - Custom", "This button is not associated with any program.", 45) Case $msg = $button_54 If $Path9 NOT = "Unassigned" Then Run($Path9) EndIf MsgBox(0, "Launch Pad - Custom", "This button is not associated with any program.", 45) Case $msg = $button_55 If $Path10 NOT = "Unassigned" Then Run($Path10) EndIf MsgBox(0, "Launch Pad", "This button is not associated with any program.", 45) EndSelect EndSelect WEnd Exit My Programs:Dissolve (Updated 5-30-06)Credit Card Validator (Not created as of yet)Master Lock Combination Cracker (Updated 7-08-07)Go Siteseeing:My Website: - Click HereCyberZeroCool's Website - Click Here Link to post Share on other sites
Developers Jos 2,648 Posted August 11, 2004 Developers Share Posted August 11, 2004 This is a script I wrote.ย I'm having problems running it. Is it my fault? How do I fix it? Sorry it takes up so much space.ย Computerguy_86Your are posting a 1044 line script with a problem but let us guess what the problem is.... It would be helpful if you explain your problem first... What i did do though is run Tidy on your script and it gave me these errors starting at line 1041 so it looks like you have somewhere a logic problem. ;### Tidy Error: Level error -> EndSelect is closing previous Case EndSelect ;### Tidy Error: Level error -> EndSelect is closing previous While EndSelect ;### Tidy Error: next line creates a negative tablevel. ;### Tidy Error: next line creates a negative tablevel for the line after it. Wend Exit Also line 989 looks wrong: this is 1;EndSelect ;Select SciTE4AutoIt3 Full installer Download page ย -ย Beta filesย ย ย ย Read before postingย ย ย How to post scriptsourceย ย ย Forum etiquetteย Forum Rulesย ย Live for the present, Dream of the future, Learn from the past.ย Link to post Share on other sites
techguy86 0 Posted August 24, 2004 Author Share Posted August 24, 2004 Thanks for the helpful information. It's fixed. I'll eventually post when it's all finished where to find it. Computerguy_86 My Programs:Dissolve (Updated 5-30-06)Credit Card Validator (Not created as of yet)Master Lock Combination Cracker (Updated 7-08-07)Go Siteseeing:My Website: - Click HereCyberZeroCool's Website - Click Here Link to post Share on other sites
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