techguy86 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 Site-Seeing:My Website: - Click Here Link to comment Share on other sites More sharing options...
Developers Jos 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 comment Share on other sites More sharing options...
techguy86 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 Site-Seeing:My Website: - Click Here Link to comment Share on other sites More sharing options...
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