euverve

Is this compatible with Windows 98 SE?

I think it needs this....

Thanks for another method, it works well. Thanks for the useful scripts.

Thanks kafu, I tested and it works well as I expected.

@ Sm0ke_N I have tested your script but it replaces all '\' string. Source.txt Result: Codes used: $TextFileName = "Source.txt" $FileContents = FileRead($TextFileName) $FileContents = StringRegExpReplace($FileContents, "(%)?(\\\\|\\)", "\1\\\\") FileDelete($TextFileName) FileWrite($TextFileName, $FileContents) Expected Result: @Authenticity What if i have a long list of lines to be replaced? Do I have to put it all in an array? How could I make the script read to a text file.

Your script replaces only the first occurence of the string '\'. What if the source file contains more '\' string? Like this one: Should be: Any help please.

Thanks for the information.

How could i Replace a string '\' into '\\' in a text file Like this one. Source file (sample.txt) Destination file (sample2.txt) The '\' in line [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run] must not be replaced. Only the '\' in line "winchat"="%Windir%\winchat.exe" must be replaced to '\\'. I hope you got my point. Help appreciated.

Thanks for the quick answer, it works... Thanks for the help foster74.

How could i delete a line in a text file that starts with a backslash? Thanks

Note: There is commercial one of Disk drive administrator, which you can find at http://www.softstack.com/diskadmin.html I believe I could use autoit to create the same program and here it is. Information: Screen shot: Source: #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <GUICtrlSetOnHover_UDF.au3> #include <StaticConstants.au3> #include <EditConstants.au3> #include <WindowsConstants.au3> #include <String.au3> Global $hwnd, $hwnd2 Global $Input1_pass, $Input2_pass Global $Button1Apply, $Button2Password, $Button3About, $Button4Contact, $Button5Home, $Button6Software, $Button7Exit, $Button8Help Global $A_hide, $B_hide, $C_hide, $D_hide, $E_hide, $F_hide, $G_hide, $H_hide, $I_hide, $J_hide, $K_hide, $L_hide, $M_hide, $N_hide, $O_hide, $P_hide, $Q_hide, $R_hide, $S_hide, $T_hide, $U_hide, $V_hide, $W_hide, $X_hide, $Y_hide, $Z_hide Global $A_lock, $B_lock, $C_lock, $D_lock, $E_lock, $F_lock, $G_lock, $H_lock, $I_lock, $J_lock, $K_lock, $L_lock, $M_lock, $N_lock, $O_lock, $P_lock, $Q_lock, $R_lock, $S_lock, $T_lock, $U_lock, $V_lock, $W_lock, $X_lock, $Y_lock, $Z_lock Global $A_DA, $B_DA, $C_DA, $D_DA, $E_DA, $F_DA, $G_DA, $H_DA, $I_DA, $J_DA, $K_DA, $L_DA, $M_DA, $N_DA, $O_DA, $P_DA, $Q_DA, $R_DA, $S_DA, $T_DA, $U_DA, $V_DA, $W_DA, $X_DA, $Y_DA, $Z_DA Global $ExternalWriteProtect, $HDDs, $CDDVD, $USBFLOPPY, $RAMDISKS, $CheckPass, $Label2, $GuiTitle Global $icon1, $icon2, $icon3, $icon4, $icon5, $icon6, $icon7, $pass1, $Password, $pass, $key DirCreate(@ScriptDir & "\images") Sleep(50) FileInstall("disklock.ico", @ScriptDir & "\images\disklock.ico", 1) Global $X_Start, $Y_Start, $X_Final, $Y_Final, $Xtrans $pass = "HKCU\SOFTWARE\DiskDriveAdmin" $key = "Password" Opt("GuiOnEventMode", 1) Opt("MustDeclareVars", 1) $CheckPass = RegRead("HKCU\SOFTWARE\DiskDriveAdmin", "Password") $GuiTitle = "Disk Drive Administrator 1.0 | euverve - Team Pinoy Geeks" If WinExists($GuiTitle) Then MsgBox(16, "Error", "Two Instances of this tool are not allowed," & @CRLF & _ "Close first one then run it again.") Exit EndIf AutoItWinSetTitle($GuiTitle) If $CheckPass = "" Then MainForm() Else askpassword() EndIf Func MainForm() Local $Group1, $Group2, $Group3, $Group4, $Group5, $Group6, $Group7, $Group8, $Group9, $Group10, $Group11, $Group12, $Group13, $Group14 Local $Group15, $Group16, $Group17, $Group18, $Group19, $Group20, $Group21, $Group22, $Group23, $Group24, $Group25, $Group26, $Group27, $Group28, $Group29 Local $Label1, $Label3, $Label4, $Label5, $Label6, $Label7, $Label8, $Label9, $Label10, $Label11, $Label12, $Label13, $Label14 Local $Label15, $Label16, $Label17, $Label18, $Label19, $Label20, $Label21, $Label22, $Label23, $Label24, $Label25, $Label26, $Label27 Local $pic #Region ### START Koda GUI section ### Form=F:\au2it\Projects\Disk Drive Administrator\MainForm.kxf $hwnd = GUICreate($GuiTitle, 801, 605, -1, -1) GUISetIcon("C:\Documents and Settings\Thatskie\Desktop\Disk Drive Administrator\1_disklock.ico") $Group1 = GUICtrlCreateGroup("Drive:", 8, 8, 193, 57) $Label1 = GUICtrlCreateLabel("A:", 24, 24, 24, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $A_hide = GUICtrlCreateCheckbox("Hide", 56, 24, 49, 17) $A_lock = GUICtrlCreateCheckbox("Lock", 120, 24, 57, 17) $A_DA = GUICtrlCreateCheckbox("Disallow Autorun", 56, 40, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group2 = GUICtrlCreateGroup("Drive:", 8, 68, 193, 57) $Label2 = GUICtrlCreateLabel("B:", 24, 84, 23, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $B_hide = GUICtrlCreateCheckbox("Hide", 56, 84, 49, 17) $B_lock = GUICtrlCreateCheckbox("Lock", 120, 84, 57, 17) $B_DA = GUICtrlCreateCheckbox("Disallow Autorun", 56, 100, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group3 = GUICtrlCreateGroup("Drive:", 8, 130, 193, 57) $Label3 = GUICtrlCreateLabel("C:", 24, 146, 24, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $C_hide = GUICtrlCreateCheckbox("Hide", 56, 146, 49, 17) $C_lock = GUICtrlCreateCheckbox("Lock", 120, 146, 57, 17) $C_DA = GUICtrlCreateCheckbox("Disallow Autorun", 56, 162, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group5 = GUICtrlCreateGroup("Drive:", 8, 192, 193, 57) $Label5 = GUICtrlCreateLabel("D:", 24, 208, 24, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $D_hide = GUICtrlCreateCheckbox("Hide", 56, 208, 49, 17) $D_lock = GUICtrlCreateCheckbox("Lock", 120, 208, 57, 17) $D_DA = GUICtrlCreateCheckbox("Disallow Autorun", 56, 224, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group6 = GUICtrlCreateGroup("Drive:", 8, 254, 193, 57) $Label6 = GUICtrlCreateLabel("E:", 24, 270, 24, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $E_hide = GUICtrlCreateCheckbox("Hide", 56, 270, 49, 17) $E_lock = GUICtrlCreateCheckbox("Lock", 120, 270, 57, 17) $E_DA = GUICtrlCreateCheckbox("Disallow Autorun", 56, 286, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group7 = GUICtrlCreateGroup("Drive:", 8, 312, 193, 57) $Label7 = GUICtrlCreateLabel("F:", 24, 328, 23, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $F_hide = GUICtrlCreateCheckbox("Hide", 56, 328, 49, 17) $F_lock = GUICtrlCreateCheckbox("Lock", 120, 328, 57, 17) $F_DA = GUICtrlCreateCheckbox("Disallow Autorun", 56, 344, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group8 = GUICtrlCreateGroup("Drive:", 8, 374, 193, 57) $Label8 = GUICtrlCreateLabel("G:", 24, 390, 25, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $G_hide = GUICtrlCreateCheckbox("Hide", 56, 390, 49, 17) $G_lock = GUICtrlCreateCheckbox("Lock", 120, 390, 57, 17) $G_DA = GUICtrlCreateCheckbox("Disallow Autorun", 56, 406, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group9 = GUICtrlCreateGroup("Drive:", 8, 432, 193, 57) $Label9 = GUICtrlCreateLabel("H:", 24, 448, 25, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $H_hide = GUICtrlCreateCheckbox("Hide", 56, 448, 49, 17) $H_lock = GUICtrlCreateCheckbox("Lock", 120, 448, 57, 17) $H_DA = GUICtrlCreateCheckbox("Disallow Autorun", 56, 464, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group10 = GUICtrlCreateGroup("External Drive Write Protection", 8, 552, 593, 41) $icon1 = GUICtrlCreateIcon("C:\WINDOWS\system32\shell32.dll", -48, 24, 568, 16, 16, BitOR($SS_NOTIFY, $WS_GROUP)) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group11 = GUICtrlCreateGroup("Drive:", 8, 494, 193, 57) $Label10 = GUICtrlCreateLabel("I:", 24, 510, 15, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $I_hide = GUICtrlCreateCheckbox("Hide", 56, 510, 49, 17) $I_lock = GUICtrlCreateCheckbox("Lock", 120, 510, 57, 17) $I_DA = GUICtrlCreateCheckbox("Disallow Autorun", 56, 526, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group12 = GUICtrlCreateGroup("Drive:", 208, 8, 193, 57) $Label11 = GUICtrlCreateLabel("J:", 224, 24, 20, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $J_hide = GUICtrlCreateCheckbox("Hide", 256, 24, 49, 17) $J_lock = GUICtrlCreateCheckbox("Lock", 320, 24, 57, 17) $J_DA = GUICtrlCreateCheckbox("Disallow Autorun", 256, 40, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group13 = GUICtrlCreateGroup("Drive:", 208, 68, 193, 57) $Label12 = GUICtrlCreateLabel("K:", 224, 84, 23, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $K_hide = GUICtrlCreateCheckbox("Hide", 256, 84, 49, 17) $K_lock = GUICtrlCreateCheckbox("Lock", 320, 84, 57, 17) $K_DA = GUICtrlCreateCheckbox("Disallow Autorun", 256, 100, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group14 = GUICtrlCreateGroup("Drive:", 208, 130, 193, 57) $Label13 = GUICtrlCreateLabel("L:", 224, 146, 21, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $L_hide = GUICtrlCreateCheckbox("Hide", 256, 146, 49, 17) $L_lock = GUICtrlCreateCheckbox("Lock", 320, 146, 57, 17) $L_DA = GUICtrlCreateCheckbox("Disallow Autorun", 256, 162, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group15 = GUICtrlCreateGroup("Drive:", 208, 192, 193, 57) $Label14 = GUICtrlCreateLabel("M:", 224, 208, 27, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $M_hide = GUICtrlCreateCheckbox("Hide", 256, 208, 49, 17) $M_lock = GUICtrlCreateCheckbox("Lock", 320, 208, 57, 17) $M_DA = GUICtrlCreateCheckbox("Disallow Autorun", 256, 224, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group16 = GUICtrlCreateGroup("Drive:", 208, 254, 193, 57) $Label15 = GUICtrlCreateLabel("N:", 224, 270, 25, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $N_hide = GUICtrlCreateCheckbox("Hide", 256, 270, 49, 17) $N_lock = GUICtrlCreateCheckbox("Lock", 320, 270, 57, 17) $N_DA = GUICtrlCreateCheckbox("Disallow Autorun", 256, 286, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group17 = GUICtrlCreateGroup("Drive:", 208, 312, 193, 57) $Label16 = GUICtrlCreateLabel("O:", 224, 328, 26, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $O_hide = GUICtrlCreateCheckbox("Hide", 256, 328, 49, 17) $O_lock = GUICtrlCreateCheckbox("Lock", 320, 328, 57, 17) $O_DA = GUICtrlCreateCheckbox("Disallow Autorun", 256, 344, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group18 = GUICtrlCreateGroup("Drive:", 208, 374, 193, 57) $Label17 = GUICtrlCreateLabel("P:", 224, 390, 23, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $P_hide = GUICtrlCreateCheckbox("Hide", 256, 390, 49, 17) $P_lock = GUICtrlCreateCheckbox("Lock", 320, 390, 57, 17) $P_DA = GUICtrlCreateCheckbox("Disallow Autorun", 256, 406, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group19 = GUICtrlCreateGroup("Drive:", 208, 432, 193, 57) $Label18 = GUICtrlCreateLabel("Q:", 224, 448, 26, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $Q_hide = GUICtrlCreateCheckbox("Hide", 256, 448, 49, 17) $Q_lock = GUICtrlCreateCheckbox("Lock", 320, 448, 57, 17) $Q_DA = GUICtrlCreateCheckbox("Disallow Autorun", 256, 464, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group20 = GUICtrlCreateGroup("Drive:", 208, 494, 193, 57) $Label19 = GUICtrlCreateLabel("R:", 224, 510, 24, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $R_hide = GUICtrlCreateCheckbox("Hide", 256, 510, 49, 17) $R_lock = GUICtrlCreateCheckbox("Lock", 320, 510, 57, 17) $R_DA = GUICtrlCreateCheckbox("Disallow Autorun", 256, 526, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group21 = GUICtrlCreateGroup("Drive:", 408, 8, 193, 57) $Label20 = GUICtrlCreateLabel("S:", 424, 24, 23, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $S_hide = GUICtrlCreateCheckbox("Hide", 456, 24, 49, 17) $S_lock = GUICtrlCreateCheckbox("Lock", 520, 24, 57, 17) $S_DA = GUICtrlCreateCheckbox("Disallow Autorun", 456, 40, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group22 = GUICtrlCreateGroup("Drive:", 408, 68, 193, 57) $Label21 = GUICtrlCreateLabel("T:", 424, 84, 23, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $T_hide = GUICtrlCreateCheckbox("Hide", 456, 84, 49, 17) $T_lock = GUICtrlCreateCheckbox("Lock", 520, 84, 57, 17) $T_DA = GUICtrlCreateCheckbox("Disallow Autorun", 456, 100, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group23 = GUICtrlCreateGroup("Drive:", 408, 130, 193, 57) $Label22 = GUICtrlCreateLabel("U:", 424, 146, 24, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $U_hide = GUICtrlCreateCheckbox("Hide", 456, 146, 49, 17) $U_lock = GUICtrlCreateCheckbox("Lock", 520, 146, 57, 17) $U_DA = GUICtrlCreateCheckbox("Disallow Autorun", 456, 162, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group24 = GUICtrlCreateGroup("Drive:", 408, 192, 193, 57) $Label23 = GUICtrlCreateLabel("V:", 424, 208, 24, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $V_hide = GUICtrlCreateCheckbox("Hide", 456, 208, 49, 17) $V_lock = GUICtrlCreateCheckbox("Lock", 520, 208, 57, 17) $V_DA = GUICtrlCreateCheckbox("Disallow Autorun", 456, 224, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group25 = GUICtrlCreateGroup("Drive:", 408, 254, 193, 57) $Label24 = GUICtrlCreateLabel("W:", 424, 270, 29, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $W_hide = GUICtrlCreateCheckbox("Hide", 456, 270, 49, 17) $W_lock = GUICtrlCreateCheckbox("Lock", 520, 270, 57, 17) $W_DA = GUICtrlCreateCheckbox("Disallow Autorun", 456, 286, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group26 = GUICtrlCreateGroup("Drive:", 408, 312, 193, 57) $Label25 = GUICtrlCreateLabel("X:", 424, 328, 25, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $X_hide = GUICtrlCreateCheckbox("Hide", 456, 328, 49, 17) $X_lock = GUICtrlCreateCheckbox("Lock", 520, 328, 57, 17) $X_DA = GUICtrlCreateCheckbox("Disallow Autorun", 456, 344, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group27 = GUICtrlCreateGroup("Drive:", 408, 374, 193, 57) $Label26 = GUICtrlCreateLabel("Y:", 424, 390, 23, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $Y_hide = GUICtrlCreateCheckbox("Hide", 456, 390, 49, 17) $Y_lock = GUICtrlCreateCheckbox("Lock", 520, 390, 57, 17) $Y_DA = GUICtrlCreateCheckbox("Disallow Autorun", 456, 406, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group28 = GUICtrlCreateGroup("Drive:", 408, 432, 193, 57) $Label27 = GUICtrlCreateLabel("Z:", 424, 448, 23, 28) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $Z_hide = GUICtrlCreateCheckbox("Hide", 456, 448, 49, 17) $Z_lock = GUICtrlCreateCheckbox("Lock", 520, 448, 57, 17) $Z_DA = GUICtrlCreateCheckbox("Disallow Autorun", 456, 464, 121, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $ExternalWriteProtect = GUICtrlCreateCheckbox("Write-protect external removable drives such as USB flash drives, mass storagge and external hard drives.", 48, 568, 529, 17) $Button1Apply = GUICtrlCreateButton("Apply Restrictions", 608, 40, 185, 57, $BS_DEFPUSHBUTTON) GUICtrlSetState(-1, $GUI_DISABLE) $Button2Password = GUICtrlCreateButton("Apply Password", 608, 104, 185, 57, $BS_DEFPUSHBUTTON) $Button3About = GUICtrlCreateButton("About this Program", 608, 232, 185, 57, $BS_DEFPUSHBUTTON) $Button4Contact = GUICtrlCreateButton("Contact Author", 608, 168, 185, 57, $BS_DEFPUSHBUTTON) $Button5Home = GUICtrlCreateButton("My Homepage", 608, 296, 185, 57, $BS_DEFPUSHBUTTON) $Button6Software = GUICtrlCreateButton("Program Help", 608, 360, 185, 57, $BS_DEFPUSHBUTTON) $Button7Exit = GUICtrlCreateButton("Exit Program", 608, 488, 185, 57, $BS_DEFPUSHBUTTON) $Button8Help = GUICtrlCreateButton("Program Purpose", 608, 424, 185, 57, $BS_DEFPUSHBUTTON) $Group29 = GUICtrlCreateGroup("Disallow Autorun for Drive Types", 408, 494, 193, 57) $HDDs = GUICtrlCreateCheckbox("HDDs", 424, 510, 65, 17) $CDDVD = GUICtrlCreateCheckbox("CD\DVD", 424, 526, 65, 17) $USBFLOPPY = GUICtrlCreateCheckbox("USB\Floppy", 504, 510, 81, 17) $RAMDISKS = GUICtrlCreateCheckbox("RAM Disks", 504, 526, 73, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group4 = GUICtrlCreateGroup("Coded By:", 608, 552, 185, 41) $Label1 = GUICtrlCreateLabel("-:| euverve | Pinoy Geeks |:- ", 616, 568, 172, 17, BitOR($SS_CENTER, $SS_SUNKEN)) GUICtrlCreateGroup("", -99, -99, 1, 1) $Label2 = GUICtrlCreateLabel("Launching GUI ", 656, 16, 132, 17, BitOR($SS_CENTER, $SS_SUNKEN)) $Label3 = GUICtrlCreateLabel("Status:", 616, 18, 37, 17) GUISetState(@SW_SHOW) GUICtrlSetData($Label2, "Ready") #EndRegion ### END Koda GUI section ### GUISetOnEvent($GUI_EVENT_CLOSE, "exitprogram") GUICtrlSetOnEvent($Button1Apply, "confirmapply") GUICtrlSetOnEvent($Button2Password, "ApplyPassword") GUICtrlSetOnEvent($Button3About, "about") GUICtrlSetOnEvent($Button4Contact, "mailto") GUICtrlSetOnEvent($Button5Home, "website") GUICtrlSetOnEvent($Button6Software, "proghelp") GUICtrlSetOnEvent($Button7Exit, "exitprogram") GUICtrlSetOnEvent($Button8Help, "progPurpose") checkstate() AdlibEnable("checkstate", "1000") EndFunc ;==>MainForm While 1 Local $nMsg $nMsg = GUIGetMsg() WEnd Func website() GUICtrlSetData($Label2, "Launching Browser...") ShellExecute("www.pinoygeeks.co.cc") GUICtrlSetData($Label2, "Ready") EndFunc ;==>website Func mailto() GUICtrlSetData($Label2, "Launching Email Client...") ShellExecute("mailto: euverve@gmail.com") GUICtrlSetData($Label2, "Ready") EndFunc ;==>mailto Func exitprogram() Local $XYZ $XYZ = GUICtrlGetState($Button1Apply) = "80" if $XYZ = TRUE then While 1 If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer $iMsgBoxAnswer = MsgBox(35, "Confirm", "Apply changes?") Select Case $iMsgBoxAnswer = 6 ;Yes ApplyRestrictionsatExit() Case $iMsgBoxAnswer = 7 ;No Exit Case $iMsgBoxAnswer = 2 ;Cancel ExitLoop EndSelect ExitLoop WEnd Else Exit EndIf EndFunc ;==>exitprogram Func close() GUIDelete($hwnd2) GUICtrlSetState($hwnd, @SW_SHOW) EndFunc ;==>close Func confirmapply() While 1 If MsgBox(36, "Confirm", "Apply changes?") = 7 Then ExitLoop Else ApplyRestrictions() ExitLoop EndIf ExitLoop WEnd EndFunc ;==>confirmapply Func ApplyRestrictions() While 1 GUICtrlSetData($Label2, "Applying Restrictions...") Local $DisableDriveType, $HideDrives, $PreventAcessToDrives, $DisableDriveAutorun, $RegKeyHKCU, $RegKeyHKLM Local $NoDrives, $NoViewOnDrive, $NoDriveAutoRun, $NoDriveTypeAutoRun, $RegType, $DisableDriveType Local $HideDrives, $PreventAcessToDrives, $DisableDriveAutorun, $RegKeyHKCU, $RegKeyHKLM, $NoDrives Local $NoViewOnDrive, $NoDriveAutoRun Dim $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_ Dim $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__ Dim $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___ Dim $1_, $2_, $3_, $4_ If GUICtrlRead($HDDs) = $Gui_Checked Then $1_ = "8" Else $1_ = "0" EndIf If GUICtrlRead($CDDVD) = $Gui_Checked Then $2_ = "32" Else $2_ = "0" EndIf If GUICtrlRead($USBFLOPPY) = $Gui_Checked Then $3_ = "4" Else $3_ = "0" EndIf If GUICtrlRead($RAMDISKS) = $Gui_Checked Then $4_ = "64" Else $4_ = "0" EndIf ; ========================================= If GUICtrlRead($A_hide) = $Gui_Checked Then $A_ = "1" Else $A_ = "0" EndIf If GUICtrlRead($B_hide) = $Gui_Checked Then $B_ = "2" Else $B_ = "0" EndIf If GUICtrlRead($C_hide) = $Gui_Checked Then $C_ = "4" Else $C_ = "0" EndIf If GUICtrlRead($D_hide) = $Gui_Checked Then $D_ = "8" Else $D_ = "0" EndIf If GUICtrlRead($E_hide) = $Gui_Checked Then $E_ = "16" Else $E_ = "0" EndIf If GUICtrlRead($F_hide) = $Gui_Checked Then $F_ = "32" Else $F_ = "0" EndIf If GUICtrlRead($G_hide) = $Gui_Checked Then $G_ = "64" Else $G_ = "0" EndIf If GUICtrlRead($H_hide) = $Gui_Checked Then $H_ = "128" Else $H_ = "0" EndIf If GUICtrlRead($I_hide) = $Gui_Checked Then $I_ = "256" Else $I_ = "0" EndIf If GUICtrlRead($J_hide) = $Gui_Checked Then $J_ = "512" Else $J_ = "0" EndIf If GUICtrlRead($K_hide) = $Gui_Checked Then $K_ = "1024" Else $K_ = "0" EndIf If GUICtrlRead($L_hide) = $Gui_Checked Then $L_ = "2048" Else $L_ = "0" EndIf If GUICtrlRead($M_hide) = $Gui_Checked Then $M_ = "4096" Else $M_ = "0" EndIf If GUICtrlRead($N_hide) = $Gui_Checked Then $N_ = "8192" Else $N_ = "0" EndIf If GUICtrlRead($O_hide) = $Gui_Checked Then $O_ = "16384" Else $O_ = "0" EndIf If GUICtrlRead($P_hide) = $Gui_Checked Then $P_ = "32768" Else $P_ = "0" EndIf If GUICtrlRead($Q_hide) = $Gui_Checked Then $Q_ = "65536" Else $Q_ = "0" EndIf If GUICtrlRead($R_hide) = $Gui_Checked Then $R_ = "131072" Else $R_ = "0" EndIf If GUICtrlRead($S_hide) = $Gui_Checked Then $S_ = "262144" Else $S_ = "0" EndIf If GUICtrlRead($T_hide) = $Gui_Checked Then $T_ = "524288" Else $T_ = "0" EndIf If GUICtrlRead($U_hide) = $Gui_Checked Then $U_ = "1048576" Else $U_ = "0" EndIf If GUICtrlRead($V_hide) = $Gui_Checked Then $V_ = "2097152" Else $V_ = "0" EndIf If GUICtrlRead($W_hide) = $Gui_Checked Then $W_ = "4194304" Else $W_ = "0" EndIf If GUICtrlRead($X_hide) = $Gui_Checked Then $X_ = "8388608" Else $X_ = "0" EndIf If GUICtrlRead($Y_hide) = $Gui_Checked Then $Y_ = "16777216" Else $Y_ = "0" EndIf If GUICtrlRead($Z_hide) = $Gui_Checked Then $Z_ = "33554432" Else $Z_ = "0" EndIf ; ========================== If GUICtrlRead($A_lock) = $Gui_Checked Then $A__ = "1" Else $A__ = "0" EndIf If GUICtrlRead($B_lock) = $Gui_Checked Then $B__ = "2" Else $B__ = "0" EndIf If GUICtrlRead($C_lock) = $Gui_Checked Then $C__ = "4" Else $C__ = "0" EndIf If GUICtrlRead($D_lock) = $Gui_Checked Then $D__ = "8" Else $D__ = "0" EndIf If GUICtrlRead($E_lock) = $Gui_Checked Then $E__ = "16" Else $E__ = "0" EndIf If GUICtrlRead($F_lock) = $Gui_Checked Then $F__ = "32" Else $F__ = "0" EndIf If GUICtrlRead($G_lock) = $Gui_Checked Then $G__ = "64" Else $G__ = "0" EndIf If GUICtrlRead($H_lock) = $Gui_Checked Then $H__ = "128" Else $H__ = "0" EndIf If GUICtrlRead($I_lock) = $Gui_Checked Then $I__ = "256" Else $I__ = "0" EndIf If GUICtrlRead($J_lock) = $Gui_Checked Then $J__ = "512" Else $J__ = "0" EndIf If GUICtrlRead($K_lock) = $Gui_Checked Then $K__ = "1024" Else $K__ = "0" EndIf If GUICtrlRead($L_lock) = $Gui_Checked Then $L__ = "2048" Else $L__ = "0" EndIf If GUICtrlRead($M_lock) = $Gui_Checked Then $M__ = "4096" Else $M__ = "0" EndIf If GUICtrlRead($N_lock) = $Gui_Checked Then $N__ = "8192" Else $N__ = "0" EndIf If GUICtrlRead($O_lock) = $Gui_Checked Then $O__ = "16384" Else $O__ = "0" EndIf If GUICtrlRead($P_lock) = $Gui_Checked Then $P__ = "32768" Else $P__ = "0" EndIf If GUICtrlRead($Q_lock) = $Gui_Checked Then $Q__ = "65536" Else $Q__ = "0" EndIf If GUICtrlRead($R_lock) = $Gui_Checked Then $R__ = "131072" Else $R__ = "0" EndIf If GUICtrlRead($S_lock) = $Gui_Checked Then $S__ = "262144" Else $S__ = "0" EndIf If GUICtrlRead($T_lock) = $Gui_Checked Then $T__ = "524288" Else $T__ = "0" EndIf If GUICtrlRead($U_lock) = $Gui_Checked Then $U__ = "1048576" Else $U__ = "0" EndIf If GUICtrlRead($V_lock) = $Gui_Checked Then $V__ = "2097152" Else $V__ = "0" EndIf If GUICtrlRead($W_lock) = $Gui_Checked Then $W__ = "4194304" Else $W__ = "0" EndIf If GUICtrlRead($X_lock) = $Gui_Checked Then $X__ = "8388608" Else $X__ = "0" EndIf If GUICtrlRead($Y_lock) = $Gui_Checked Then $Y__ = "16777216" Else $Y__ = "0" EndIf If GUICtrlRead($Z_lock) = $Gui_Checked Then $Z__ = "33554432" Else $Z__ = "0" EndIf ; ========================================== If GUICtrlRead($A_DA) = $Gui_Checked Then $A___ = "1" Else $A___ = "0" EndIf If GUICtrlRead($B_DA) = $Gui_Checked Then $B___ = "2" Else $B___ = "0" EndIf If GUICtrlRead($C_DA) = $Gui_Checked Then $C___ = "4" Else $C___ = "0" EndIf If GUICtrlRead($D_DA) = $Gui_Checked Then $D___ = "8" Else $D___ = "0" EndIf If GUICtrlRead($E_DA) = $Gui_Checked Then $E___ = "16" Else $E___ = "0" EndIf If GUICtrlRead($F_DA) = $Gui_Checked Then $F___ = "32" Else $F___ = "0" EndIf If GUICtrlRead($G_DA) = $Gui_Checked Then $G___ = "64" Else $G___ = "0" EndIf If GUICtrlRead($H_DA) = $Gui_Checked Then $H___ = "128" Else $H___ = "0" EndIf If GUICtrlRead($I_DA) = $Gui_Checked Then $I___ = "256" Else $I___ = "0" EndIf If GUICtrlRead($J_DA) = $Gui_Checked Then $J___ = "512" Else $J___ = "0" EndIf If GUICtrlRead($K_DA) = $Gui_Checked Then $K___ = "1024" Else $K___ = "0" EndIf If GUICtrlRead($L_DA) = $Gui_Checked Then $L___ = "2048" Else $L___ = "0" EndIf If GUICtrlRead($M_DA) = $Gui_Checked Then $M___ = "4096" Else $M___ = "0" EndIf If GUICtrlRead($N_DA) = $Gui_Checked Then $N___ = "8192" Else $N___ = "0" EndIf If GUICtrlRead($O_DA) = $Gui_Checked Then $O___ = "16384" Else $O___ = "0" EndIf If GUICtrlRead($P_DA) = $Gui_Checked Then $P___ = "32768" Else $P___ = "0" EndIf If GUICtrlRead($Q_DA) = $Gui_Checked Then $Q___ = "65536" Else $Q___ = "0" EndIf If GUICtrlRead($R_DA) = $Gui_Checked Then $R___ = "131072" Else $R___ = "0" EndIf If GUICtrlRead($S_DA) = $Gui_Checked Then $S___ = "262144" Else $S___ = "0" EndIf If GUICtrlRead($T_DA) = $Gui_Checked Then $T___ = "524288" Else $T___ = "0" EndIf If GUICtrlRead($U_DA) = $Gui_Checked Then $U___ = "1048576" Else $U___ = "0" EndIf If GUICtrlRead($V_DA) = $Gui_Checked Then $V___ = "2097152" Else $V___ = "0" EndIf If GUICtrlRead($W_DA) = $Gui_Checked Then $W___ = "4194304" Else $W___ = "0" EndIf If GUICtrlRead($X_DA) = $Gui_Checked Then $X___ = "8388608" Else $X___ = "0" EndIf If GUICtrlRead($Y_DA) = $Gui_Checked Then $Y___ = "16777216" Else $Y___ = "0" EndIf If GUICtrlRead($Z_DA) = $Gui_Checked Then $Z___ = "33554432" Else $Z___ = "0" EndIf ;======================================== $DisableDriveType = $1_ + $2_ + $3_ + $4_ $HideDrives = $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_ $PreventAcessToDrives = $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__ $DisableDriveAutorun = $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___ $RegKeyHKCU = "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" $RegKeyHKLM = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" $NoDrives = "NoDrives" ;Hide Drives $NoViewOnDrive = "NoViewOnDrive" ;Prevent Access to Drives $NoDriveAutoRun = "NoDriveAutoRun" ;Disable autorun on selected drives $NoDriveTypeAutoRun = "NoDriveTypeAutoRun" ;Disable autorun on drive type $RegType = "REG_DWORD" RegWrite($RegKeyHKCU, $NoDrives, $RegType, $HideDrives) RegWrite($RegKeyHKLM, $NoDrives, $RegType, $HideDrives) RegWrite($RegKeyHKCU, $NoViewOnDrive, $RegType, $PreventAcessToDrives) RegWrite($RegKeyHKLM, $NoViewOnDrive, $RegType, $PreventAcessToDrives) RegWrite($RegKeyHKCU, $NoDriveAutoRun, $RegType, $DisableDriveAutorun) RegWrite($RegKeyHKLM, $NoDriveAutoRun, $RegType, $DisableDriveAutorun) RegWrite($RegKeyHKCU, $NoDriveTypeAutoRun, $RegType, $DisableDriveType) RegWrite($RegKeyHKLM, $NoDriveTypeAutoRun, $RegType, $DisableDriveType) If GUICtrlRead($ExternalWriteProtect) = $Gui_Checked Then RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies", "WriteProtect", "REG_DWORD", "1") RegWrite("HKCU\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies", "WriteProtect", "REG_DWORD", "1") Else RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies", "WriteProtect", "REG_DWORD", "0") RegWrite("HKCU\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies", "WriteProtect", "REG_DWORD", "0") EndIf GUICtrlSetData($Label2, "Ready") ;Call activate changes activatechanges() ExitLoop WEnd EndFunc ;==>ApplyRestrictions Func ApplyRestrictionsatExit() GUICtrlSetData($Label2, "Applying Restrictions") Local $DisableDriveType, $HideDrives, $PreventAcessToDrives, $DisableDriveAutorun, $RegKeyHKCU, $RegKeyHKLM Local $NoDrives, $NoViewOnDrive, $NoDriveAutoRun, $NoDriveTypeAutoRun, $RegType, $DisableDriveType Local $HideDrives, $PreventAcessToDrives, $DisableDriveAutorun, $RegKeyHKCU, $RegKeyHKLM, $NoDrives Local $NoViewOnDrive, $NoDriveAutoRun Dim $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_ Dim $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__ Dim $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___ Dim $1_, $2_, $3_, $4_ If GUICtrlRead($HDDs) = $Gui_Checked Then $1_ = "8" Else $1_ = "0" EndIf If GUICtrlRead($CDDVD) = $Gui_Checked Then $2_ = "32" Else $2_ = "0" EndIf If GUICtrlRead($USBFLOPPY) = $Gui_Checked Then $3_ = "4" Else $3_ = "0" EndIf If GUICtrlRead($RAMDISKS) = $Gui_Checked Then $4_ = "64" Else $4_ = "0" EndIf ; ========================================= If GUICtrlRead($A_hide) = $Gui_Checked Then $A_ = "1" Else $A_ = "0" EndIf If GUICtrlRead($B_hide) = $Gui_Checked Then $B_ = "2" Else $B_ = "0" EndIf If GUICtrlRead($C_hide) = $Gui_Checked Then $C_ = "4" Else $C_ = "0" EndIf If GUICtrlRead($D_hide) = $Gui_Checked Then $D_ = "8" Else $D_ = "0" EndIf If GUICtrlRead($E_hide) = $Gui_Checked Then $E_ = "16" Else $E_ = "0" EndIf If GUICtrlRead($F_hide) = $Gui_Checked Then $F_ = "32" Else $F_ = "0" EndIf If GUICtrlRead($G_hide) = $Gui_Checked Then $G_ = "64" Else $G_ = "0" EndIf If GUICtrlRead($H_hide) = $Gui_Checked Then $H_ = "128" Else $H_ = "0" EndIf If GUICtrlRead($I_hide) = $Gui_Checked Then $I_ = "256" Else $I_ = "0" EndIf If GUICtrlRead($J_hide) = $Gui_Checked Then $J_ = "512" Else $J_ = "0" EndIf If GUICtrlRead($K_hide) = $Gui_Checked Then $K_ = "1024" Else $K_ = "0" EndIf If GUICtrlRead($L_hide) = $Gui_Checked Then $L_ = "2048" Else $L_ = "0" EndIf If GUICtrlRead($M_hide) = $Gui_Checked Then $M_ = "4096" Else $M_ = "0" EndIf If GUICtrlRead($N_hide) = $Gui_Checked Then $N_ = "8192" Else $N_ = "0" EndIf If GUICtrlRead($O_hide) = $Gui_Checked Then $O_ = "16384" Else $O_ = "0" EndIf If GUICtrlRead($P_hide) = $Gui_Checked Then $P_ = "32768" Else $P_ = "0" EndIf If GUICtrlRead($Q_hide) = $Gui_Checked Then $Q_ = "65536" Else $Q_ = "0" EndIf If GUICtrlRead($R_hide) = $Gui_Checked Then $R_ = "131072" Else $R_ = "0" EndIf If GUICtrlRead($S_hide) = $Gui_Checked Then $S_ = "262144" Else $S_ = "0" EndIf If GUICtrlRead($T_hide) = $Gui_Checked Then $T_ = "524288" Else $T_ = "0" EndIf If GUICtrlRead($U_hide) = $Gui_Checked Then $U_ = "1048576" Else $U_ = "0" EndIf If GUICtrlRead($V_hide) = $Gui_Checked Then $V_ = "2097152" Else $V_ = "0" EndIf If GUICtrlRead($W_hide) = $Gui_Checked Then $W_ = "4194304" Else $W_ = "0" EndIf If GUICtrlRead($X_hide) = $Gui_Checked Then $X_ = "8388608" Else $X_ = "0" EndIf If GUICtrlRead($Y_hide) = $Gui_Checked Then $Y_ = "16777216" Else $Y_ = "0" EndIf If GUICtrlRead($Z_hide) = $Gui_Checked Then $Z_ = "33554432" Else $Z_ = "0" EndIf ; ========================== If GUICtrlRead($A_lock) = $Gui_Checked Then $A__ = "1" Else $A__ = "0" EndIf If GUICtrlRead($B_lock) = $Gui_Checked Then $B__ = "2" Else $B__ = "0" EndIf If GUICtrlRead($C_lock) = $Gui_Checked Then $C__ = "4" Else $C__ = "0" EndIf If GUICtrlRead($D_lock) = $Gui_Checked Then $D__ = "8" Else $D__ = "0" EndIf If GUICtrlRead($E_lock) = $Gui_Checked Then $E__ = "16" Else $E__ = "0" EndIf If GUICtrlRead($F_lock) = $Gui_Checked Then $F__ = "32" Else $F__ = "0" EndIf If GUICtrlRead($G_lock) = $Gui_Checked Then $G__ = "64" Else $G__ = "0" EndIf If GUICtrlRead($H_lock) = $Gui_Checked Then $H__ = "128" Else $H__ = "0" EndIf If GUICtrlRead($I_lock) = $Gui_Checked Then $I__ = "256" Else $I__ = "0" EndIf If GUICtrlRead($J_lock) = $Gui_Checked Then $J__ = "512" Else $J__ = "0" EndIf If GUICtrlRead($K_lock) = $Gui_Checked Then $K__ = "1024" Else $K__ = "0" EndIf If GUICtrlRead($L_lock) = $Gui_Checked Then $L__ = "2048" Else $L__ = "0" EndIf If GUICtrlRead($M_lock) = $Gui_Checked Then $M__ = "4096" Else $M__ = "0" EndIf If GUICtrlRead($N_lock) = $Gui_Checked Then $N__ = "8192" Else $N__ = "0" EndIf If GUICtrlRead($O_lock) = $Gui_Checked Then $O__ = "16384" Else $O__ = "0" EndIf If GUICtrlRead($P_lock) = $Gui_Checked Then $P__ = "32768" Else $P__ = "0" EndIf If GUICtrlRead($Q_lock) = $Gui_Checked Then $Q__ = "65536" Else $Q__ = "0" EndIf If GUICtrlRead($R_lock) = $Gui_Checked Then $R__ = "131072" Else $R__ = "0" EndIf If GUICtrlRead($S_lock) = $Gui_Checked Then $S__ = "262144" Else $S__ = "0" EndIf If GUICtrlRead($T_lock) = $Gui_Checked Then $T__ = "524288" Else $T__ = "0" EndIf If GUICtrlRead($U_lock) = $Gui_Checked Then $U__ = "1048576" Else $U__ = "0" EndIf If GUICtrlRead($V_lock) = $Gui_Checked Then $V__ = "2097152" Else $V__ = "0" EndIf If GUICtrlRead($W_lock) = $Gui_Checked Then $W__ = "4194304" Else $W__ = "0" EndIf If GUICtrlRead($X_lock) = $Gui_Checked Then $X__ = "8388608" Else $X__ = "0" EndIf If GUICtrlRead($Y_lock) = $Gui_Checked Then $Y__ = "16777216" Else $Y__ = "0" EndIf If GUICtrlRead($Z_lock) = $Gui_Checked Then $Z__ = "33554432" Else $Z__ = "0" EndIf ; ========================================== If GUICtrlRead($A_DA) = $Gui_Checked Then $A___ = "1" Else $A___ = "0" EndIf If GUICtrlRead($B_DA) = $Gui_Checked Then $B___ = "2" Else $B___ = "0" EndIf If GUICtrlRead($C_DA) = $Gui_Checked Then $C___ = "4" Else $C___ = "0" EndIf If GUICtrlRead($D_DA) = $Gui_Checked Then $D___ = "8" Else $D___ = "0" EndIf If GUICtrlRead($E_DA) = $Gui_Checked Then $E___ = "16" Else $E___ = "0" EndIf If GUICtrlRead($F_DA) = $Gui_Checked Then $F___ = "32" Else $F___ = "0" EndIf If GUICtrlRead($G_DA) = $Gui_Checked Then $G___ = "64" Else $G___ = "0" EndIf If GUICtrlRead($H_DA) = $Gui_Checked Then $H___ = "128" Else $H___ = "0" EndIf If GUICtrlRead($I_DA) = $Gui_Checked Then $I___ = "256" Else $I___ = "0" EndIf If GUICtrlRead($J_DA) = $Gui_Checked Then $J___ = "512" Else $J___ = "0" EndIf If GUICtrlRead($K_DA) = $Gui_Checked Then $K___ = "1024" Else $K___ = "0" EndIf If GUICtrlRead($L_DA) = $Gui_Checked Then $L___ = "2048" Else $L___ = "0" EndIf If GUICtrlRead($M_DA) = $Gui_Checked Then $M___ = "4096" Else $M___ = "0" EndIf If GUICtrlRead($N_DA) = $Gui_Checked Then $N___ = "8192" Else $N___ = "0" EndIf If GUICtrlRead($O_DA) = $Gui_Checked Then $O___ = "16384" Else $O___ = "0" EndIf If GUICtrlRead($P_DA) = $Gui_Checked Then $P___ = "32768" Else $P___ = "0" EndIf If GUICtrlRead($Q_DA) = $Gui_Checked Then $Q___ = "65536" Else $Q___ = "0" EndIf If GUICtrlRead($R_DA) = $Gui_Checked Then $R___ = "131072" Else $R___ = "0" EndIf If GUICtrlRead($S_DA) = $Gui_Checked Then $S___ = "262144" Else $S___ = "0" EndIf If GUICtrlRead($T_DA) = $Gui_Checked Then $T___ = "524288" Else $T___ = "0" EndIf If GUICtrlRead($U_DA) = $Gui_Checked Then $U___ = "1048576" Else $U___ = "0" EndIf If GUICtrlRead($V_DA) = $Gui_Checked Then $V___ = "2097152" Else $V___ = "0" EndIf If GUICtrlRead($W_DA) = $Gui_Checked Then $W___ = "4194304" Else $W___ = "0" EndIf If GUICtrlRead($X_DA) = $Gui_Checked Then $X___ = "8388608" Else $X___ = "0" EndIf If GUICtrlRead($Y_DA) = $Gui_Checked Then $Y___ = "16777216" Else $Y___ = "0" EndIf If GUICtrlRead($Z_DA) = $Gui_Checked Then $Z___ = "33554432" Else $Z___ = "0" EndIf ;======================================== $DisableDriveType = $1_ + $2_ + $3_ + $4_ $HideDrives = $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_ $PreventAcessToDrives = $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__ $DisableDriveAutorun = $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___ $RegKeyHKCU = "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" $RegKeyHKLM = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" $NoDrives = "NoDrives" ;Hide Drives $NoViewOnDrive = "NoViewOnDrive" ;Prevent Access to Drives $NoDriveAutoRun = "NoDriveAutoRun" ;Disable autorun on selected drives $NoDriveTypeAutoRun = "NoDriveTypeAutoRun" ;Disable autorun on drive type $RegType = "REG_DWORD" RegWrite($RegKeyHKCU, $NoDrives, $RegType, $HideDrives) RegWrite($RegKeyHKLM, $NoDrives, $RegType, $HideDrives) RegWrite($RegKeyHKCU, $NoViewOnDrive, $RegType, $PreventAcessToDrives) RegWrite($RegKeyHKLM, $NoViewOnDrive, $RegType, $PreventAcessToDrives) RegWrite($RegKeyHKCU, $NoDriveAutoRun, $RegType, $DisableDriveAutorun) RegWrite($RegKeyHKLM, $NoDriveAutoRun, $RegType, $DisableDriveAutorun) RegWrite($RegKeyHKCU, $NoDriveTypeAutoRun, $RegType, $DisableDriveType) RegWrite($RegKeyHKLM, $NoDriveTypeAutoRun, $RegType, $DisableDriveType) If GUICtrlRead($ExternalWriteProtect) = $Gui_Checked Then RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies", "WriteProtect", "REG_DWORD", "1") RegWrite("HKCU\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies", "WriteProtect", "REG_DWORD", "1") Else RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies", "WriteProtect", "REG_DWORD", "0") RegWrite("HKCU\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies", "WriteProtect", "REG_DWORD", "0") EndIf GUICtrlSetData($Label2, "Ready") ;Call activate changes activatechanges() Exit EndFunc ;==>ApplyRestrictionsatExit Func ApplyPassword() Local $Button1, $Label1, $Label2, $Button2, $CheckPass, $getpass, $finagetpass $CheckPass = RegRead("HKCU\SOFTWARE\DiskDriveAdmin", "Password") $getpass = _HexToString($CheckPass) $finagetpass = _HexToString($getpass) #Region ### START Koda GUI section ### Form= $hwnd2 = GUICreate("Password", 201, 144, -1, -1, 0x94C800C4) GUISetIcon("shell32.dll", 50) $Input1_pass = GUICtrlCreateInput("", 8, 36, 185, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL)) GUICtrlSetData(-1, $finagetpass) $Button1 = GUICtrlCreateButton("Ok", 32, 112, 65, 25, 0) $Label1 = GUICtrlCreateLabel("Enter password:", 8, 16, 80, 17) $Input2_pass = GUICtrlCreateInput("", 7, 89, 185, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL)) GUICtrlSetData(-1, $finagetpass) $Label2 = GUICtrlCreateLabel("Reenter password:", 7, 69, 93, 17) $Button2 = GUICtrlCreateButton("Cancel", 104, 112, 65, 25, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### GUISetOnEvent($GUI_EVENT_CLOSE, "close") GUICtrlSetOnEvent($Button1, "addpassword") GUICtrlSetOnEvent($Button2, "close") EndFunc ;==>ApplyPassword Func about() Local $Button1, $Group1, $Label1, $Label2, $Label3, $Label4, $Label5, $Label6, $Label7, $Label8, $Label9 #Region ### START Koda GUI section ### Form=F:\au2it\Projects\Disk Drive Administrator\about.kxf $hwnd2 = GUICreate("About", 318, 228, -1, -1, 0x94C800C4) GUISetIcon("shell32.dll", 50) GUISetIcon(@ScriptDir & "\images\disklock.ico") $Group1 = GUICtrlCreateGroup("", 8, 8, 65, 73) $icon1 = GUICtrlCreateIcon(@ScriptDir & "\images\disklock.ico", 0, 24, 32, 32, 32, BitOR($SS_NOTIFY, $WS_GROUP)) GUICtrlCreateGroup("", -99, -99, 1, 1) $Label1 = GUICtrlCreateLabel("Disk Drive Administrator", 88, 16, 201, 28) GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("Version: 1.0", 88, 48, 120, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label3 = GUICtrlCreateLabel("March 10, 2009", 88, 72, 133, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label4 = GUICtrlCreateLabel("Copyright:", 24, 112, 51, 17) $Label6 = GUICtrlCreateLabel("Home:", 40, 136, 35, 17) $Button1 = GUICtrlCreateButton("Ok", 8, 192, 83, 25, 0) $Label7 = GUICtrlCreateLabel("Bernando A. Minguita Jr | euverve", 88, 112, 164, 17) $Label8 = GUICtrlCreateLabel("http://www.pinoygeeks.co.cc", 88, 136, 146, 17) GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif") GUICtrlSetColor(-1, 0x0000FF) $Label5 = GUICtrlCreateLabel("Email: ", 40, 160, 35, 17) $Label9 = GUICtrlCreateLabel("euverve@gmail.com", 84, 162, 101, 17) GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif") GUICtrlSetColor(-1, 0x0000FF) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### GUISetOnEvent($GUI_EVENT_CLOSE, "close") GUICtrlSetOnEvent($Button1, "close") EndFunc ;==>about Func addpassword() Local $data, $newdata, $finaldata If GUICtrlRead($Input1_pass) = GUICtrlRead($Input2_pass) Then $data = GUICtrlRead($Input1_pass) $newdata = _StringToHex($data) $finaldata = _StringToHex($newdata) RegWrite("HKCU\SOFTWARE\DiskDriveAdmin", "Password", "REG_SZ", $finaldata) GUICtrlSetData($Label2, "Password Applied") GUIDelete($hwnd2) Sleep(50) GUICtrlSetData($Label2, "Ready") Else MsgBox(16, "Error", "Invalid Password!") GUICtrlSetData($Label2, "Invalid Password") GUICtrlSetData($Input1_pass, "") GUICtrlSetData($Input2_pass, "") Sleep(50) GUICtrlSetData($Label2, "Ready") EndIf EndFunc ;==>addpassword ; ================================================ Func checkstate() While 1 If GUICtrlRead($A_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($A_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($A_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($B_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($B_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($B_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($C_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($C_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($C_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($D_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($D_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($D_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($E_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($E_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($E_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($F_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($F_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($F_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($G_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($G_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($G_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($H_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($H_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($H_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($I_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($I_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($I_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($J_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($J_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($J_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($K_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($K_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($K_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($L_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($L_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($L_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($M_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($M_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($M_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($N_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($N_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($N_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($O_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($O_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($O_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($P_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($P_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($P_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($Q_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($Q_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($Q_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($R_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($R_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($R_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($S_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($S_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($S_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($T_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($T_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($T_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($U_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($U_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($U_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($V_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($V_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($V_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($W_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($W_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($W_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($X_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($X_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($X_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($Y_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($Y_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($Y_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($Z_hide) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($Z_lock) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($Z_DA) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ;~ ElseIf GUICtrlRead($HDDs) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($CDDVD) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($USBFLOPPY) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($RAMDISKS) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() ElseIf GUICtrlRead($ExternalWriteProtect) = $Gui_Checked Then GUICtrlSetState($Button1Apply, $GUI_ENABLE) AdlibDisable() EndIf ExitLoop WEnd EndFunc ;==>checkstate func progPurpose() #Region ### START Koda GUI section ### Form= Local $Edit1, $closepurpose $hwnd2 = GUICreate("Purpose of the Program", 425, 279, -1, -1) $Edit1 = GUICtrlCreateEdit("", 8, 8, 409, 233, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE)) GUICtrlSetData(-1, StringFormat("\r\n Use this password-protected security utility to hide and lock your local, network, \r\n Floppy and USB drives as well as disable the AutoRun feature for them. \r\n\r\n The design of the program is very simple. \r\n\r\n The main window contains the boxes with drive settings that represent\r\n individual drives and the toolbar used for applying changes. All you need to \r\n do is to click on the checkboxes with settings and after you finish press the \r\n apply button. \r\n\r\n If desired, you can apply password protection to the program to prevent your \r\n users from changing the security settings you enforce. This software has a very \r\n nice easy-to-learn user interface. ")) $closepurpose = GUICtrlCreateButton("Close", 336, 248, 83, 25, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### GUISetOnEvent($GUI_EVENT_CLOSE, "close") GUICtrlSetOnEvent($closepurpose, "close") EndFunc func proghelp() #Region ### START Koda GUI section ### Form=C:\Documents and Settings\Thatskie\Desktop\da_Help.kxf Local $Edit1, $closehelp $hwnd2 = GUICreate("Program Help", 426, 278, -1, -1) $Edit1 = GUICtrlCreateEdit("", 8, 8, 409, 233, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE)) GUICtrlSetData(-1, StringFormat("\r\n To hide and lock your individual drives as well as disable the AutoRun feature \r\n for them, use the checkboxes with settings that represent individual drives.\r\n \r\n To disable the AutoRun feature for drive types, use the last group box located \r\n at the right bottom corner of the main window. This box of settings lets you \r\n disable the AutoRun feature for all Floppy/USB drives, all removable HDD \r\n drives, all RAM disks and all CD/DVD disks.\r\n \r\n To apply changes to your PC, you need to press the Apply button and confirm \r\n that you really want to apply them. You will need to reboot your PC to activate \r\n changes.\r\n \r\n If you need to password-protect the program press the Password button. \r\n Enter your password two times to make sure it is correct and press the \r\n Ok button. If you need to reset your current password, just clear the both fields \r\n in the dialog box where you are prompted to enter the new password.\r\n")) $closehelp = GUICtrlCreateButton("Close", 336, 248, 83, 25, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### GUISetOnEvent($GUI_EVENT_CLOSE, "close") GUICtrlSetOnEvent($closehelp, "close") EndFunc Func askpassword() Local $verifypass, $Label1, $Button2 #Region ### START Koda GUI section ### Form=F:\au2it\Projects\Disk Drive Administrator\Copy of Password.kxf $hwnd2 = GUICreate("Password", 224, 105, -1, -1, 0x94C800C4) GUISetIcon("shell32.dll", 50) $pass1 = GUICtrlCreateInput("", 8, 36, 209, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL)) $verifypass = GUICtrlCreateButton("Ok", 32, 72, 73, 25, 0) $Label1 = GUICtrlCreateLabel("Enter password:", 8, 16, 80, 17) $Button2 = GUICtrlCreateButton("Cancel", 120, 72, 73, 25, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### GUISetOnEvent($GUI_EVENT_CLOSE, "exit_") GUICtrlSetOnEvent($verifypass, "verify") GUICtrlSetOnEvent($Button2, "exit_") EndFunc ;==>askpassword Func verify() Local $getpass, $finalPass $getpass = _HexToString($CheckPass) $finalPass = _HexToString($getpass) While 1 If GUICtrlRead($pass1) = $finalPass Then close() MainForm() Else MsgBox(16, "Error", "Invalid Password!") Exit EndIf ExitLoop WEnd EndFunc ;==>verify Func exit_() Exit EndFunc ;==>exit_ func activatechanges() Local $shell $shell = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell") #Region --- CodeWizard generated code Start --- ;MsgBox features: Title=Yes, Text=Yes, Buttons=Yes and No, Icon=Info If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer $iMsgBoxAnswer = MsgBox(68,"Information","Do you want to activate changes now?") Select Case $iMsgBoxAnswer = 6 ;Yes ProcessClose($shell) Case $iMsgBoxAnswer = 7 ;No MsgBox(64,"Information","Reboot computer to activate changes.") EndSelect #EndRegion --- CodeWizard generated code End --- EndFunc Executable File: Download: http://www.4shared.com/file/93328604/455d3249/Disk_Drive_Administrator.html Comments appreciated, and also if you any suggestions regarding the scripts please post a reply.

Thanks for the share guys...

@ALG Please check my sample: http://www.autoitscript.com/forum/index.php?autocom=downloads&showfile=136

I just dont know how to view this. Include files are missing: Where can i locate this?

Thanks, it worked perfectly.

Thanks alot for these codes. @SmOke_N Some computer viruses/worms uses same names like those windows process, instead of using process close i will use this wmi to kill the worm running processes. Thanks all.

I used these codes on new version of autoit, but it gives an error. Messages: Please help. Thanks

The question is HOW, any example please. Thanks

I have created a process lister with process close. The question is how could i refresh the process list after the process is closed? Preview: Please check my codes. Please help. Thanksprocess_list_and_process_close.au3

Thanks for the reupload. Cheers.

How can I download this file. Please reupload this file. Thanks.

Fix:

I would like to ask how could i close a certain process using WMI? Please help, thanks

I have problem obfuscating my project, please help... Here's the error: Any input guys...

Thanks for the function and example... This works...