Sign in to follow this  
Followers 0
techguy86

Helpful Script Needs Adjustments

3 posts in this topic

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

Share this post


Link to post
Share on other sites



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

Your 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... :ph34r:

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

:lol:


Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0