Sign in to follow this  
Followers 0
Gerald

AutoIt3 Wrapper Gui

5 posts in this topic

can some one give me a link of AutoIt3Wrapper_Gui.exe i need to download dis program because i need to compile and put some detailed REPLAY MY POST ASAP ;)

Share this post


Link to post
Share on other sites



because i need to compile and put some detailed REPLAY MY POST ASAP ;)

Why do you need to compile it and "where is the fire?" :)

can some one give me a link of AutoIt3Wrapper_Gui.exe

It is merged back into AutoIt3Wrapper.

Jos


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

Share this post


Link to post
Share on other sites

Why do you need to compile it and "where is the fire?" :D

It is merged back into AutoIt3Wrapper.

Jos

hmmmm i make a program called disk administrator i need to compiled my program

her my program code i hope you will give me AutoIt3 Wrapper Gui

i have all AutoIt3 Wrapper Gui but the problem AutoIt3 Wrapper Gui is corrupted so i need a fresh AutoIt3 Wrapper Gui file

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\project usb\remdrive.ico
#AutoIt3Wrapper_outfile=drive.exe
#AutoIt3Wrapper_Res_Comment=game_catague@yahoo.com
#AutoIt3Wrapper_Res_Description=hide all drive disable the AutoRun
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Catague
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>


#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=




$GuiTitle = "Disk Administrator V1.0 | Cat-software"

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



$PASSFINISH = "catague"
$INPUTTEDPASS = InputBox("Disk Administrator V1.0 | Cat-software", "Enter a password please:", "", "*")
If @error = 1 Then 
    MsgBox(16, "Disk Administrator V1.0 | Cat-software", "Wrong pwew!") 
    Exit
    EndIf
If $INPUTTEDPASS <> $PASSFINISH Then
    MsgBox(16, "Disk Administrator V1.0 | Cat-software", "Wrong password!")
    Exit
Else
    MsgBox(0, "Disk Administrator V1.0 | Cat-software", "Password accepted, enjoy! =)")
EndIf

AutoItWinSetTitle($GuiTitle)
FileInstall(".\1.jpg", @TempDir & "\1.jpg")
FileInstall(".\2.jpg", @TempDir & "\2.jpg")
$Form1 = GUICreate("Disk Administrator V1.0 | Cat-software", 428, 339, 341, 209)
GUISetBkColor(0xFFFFFF)
$Button1 = GUICtrlCreateButton("Hide Drives", 8, 192, 187, 25, 0)
$Button2 = GUICtrlCreateButton("Prevent Access to drives", 8, 224, 187, 25, 0)
$Button3 = GUICtrlCreateButton("Disable autorun on selected drives", 8, 256, 187, 25, 0)
$Button4 = GUICtrlCreateButton("Restore default setting", 8, 288, 187, 25, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button5 = GUICtrlCreateButton("Apply Restrictions", 208, 192, 115, 25, 0)
GUICtrlSetState(-1, $GUI_DISABLE)

$Group1 = GUICtrlCreateGroup("External drive Write Protection", 208, 232, 217, 81)
$ExternalWriteProtect = GUICtrlCreateCheckbox("Write-protect external removable -", 232, 256, 185, 17)
$Label1 = GUICtrlCreateLabel("drives such as USB flash drives mass", 224, 272, 180, 17)
$Icon1 = GUICtrlCreateIcon("C:\WINDOWS\system32\shell32.dll", -212, 216, 256, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
$Label2 = GUICtrlCreateLabel("storagge and external hard drives.", 224, 288, 164, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button6 = GUICtrlCreateButton("Exit", 328, 192, 75, 25, 0)
$Label3 = GUICtrlCreateLabel("Disk Administrator V1.0 | Cat-software", 50, 8, 360, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Pic1 = GUICtrlCreatePic(@TempDir & "\1.jpg", 48, 48, 116, 108, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic2 = GUICtrlCreatePic(@TempDir & "\2.jpg", 240, 48, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$MenuItem2 = GUICtrlCreateMenu("File")
$MenuItem5 = GUICtrlCreateMenuItem("Exit", $MenuItem2)
$MenuItem3 = GUICtrlCreateMenu("Program Help")
$MenuItem81 = GUICtrlCreateMenuItem("Read Help File", $MenuItem3)
$MenuItem1 = GUICtrlCreateMenu("Program Purpose")
$MenuItem811 = GUICtrlCreateMenuItem("Read File", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenu("About")
$MenuItem8 = GUICtrlCreateMenuItem("E-mail", $MenuItem4)
$MenuItem10 = GUICtrlCreateMenuItem("About The Author", $MenuItem4)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
    activatechanges()
Exit

case $MenuItem5 
    activatechanges()
    Exit
case $ExternalWriteProtect
    ExternalWriteProtect()
    
Case $MenuItem81 
    help()
Case $Button1
    NoDrives()
    GUICtrlSetState($Button5, $GUI_ENABLE)
    GUICtrlSetState($Button4, $GUI_ENABLE)
Case    $Button2
     NoViewOnDrive()
     GUICtrlSetState($Button5, $GUI_ENABLE)
     GUICtrlSetState($Button4, $GUI_ENABLE)
Case    $Button3     
     NoDriveAutoRun()
     GUICtrlSetState($Button5, $GUI_ENABLE)
     GUICtrlSetState($Button4, $GUI_ENABLE)
     Case   $Button4
     Disable()
Case    $Button5 
    activatechanges()
    Case    $MenuItem811
    pp()
Case $MenuItem8
    MsgBox(64,"Disk Administrator V1.0 | Cat-software","e-mail game_catague@yahoo.com")
    Case $MenuItem10
    MsgBox(64,"Code By: John Gerald Catague","Viva Philippines Women’s University " & @CRLF & "calamba city Laguna")
    about()
case $Button6
    Exit
    
    

EndSwitch
WEnd

Func ExternalWriteProtect()
   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   
EndFunc

Func about()

    #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")
    $Group11 = 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)
    $Label11 = GUICtrlCreateLabel("Disk Administrator v1.0", 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")
    $Label4 = GUICtrlCreateLabel("Copyright:", 24, 112, 51, 17)
    $Label6 = GUICtrlCreateLabel("Home:", 40, 136, 35, 17)
    $Button1w = GUICtrlCreateButton("Ok", 8, 192, 83, 25, 0)
    $Label7 = GUICtrlCreateLabel("John Gerald Catague | cat-software", 88, 112, 200, 17)
    $Label8 = GUICtrlCreateLabel("http://www.cataguegerald.blogspot.com", 88, 136, 200, 17)
    GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x0000FF)
    $Label51 = GUICtrlCreateLabel("Email: ", 40, 160, 35, 17)
    $Label9 = GUICtrlCreateLabel("game_catague@yahoo.com", 84, 162, 101, 17)
    GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x0000FF)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            GUIDelete($hwnd2)
            ExitLoop
        case $Button1w
            
GUIDelete($hwnd2)
            ExitLoop
    EndSwitch
WEnd


 EndFunc   ;==>about

func help()

#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Disk Administrator V1.0 | Cat-software Help", 413, 298, 313, 218)
GUISetBkColor(0xFFFFFF)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 393, 241, 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\r\n  feature  for them, use the checkboxes with settings that represent\r\n  individual drives.\r\n  To apply changes to your PC,\r\n  you need to press the Apply button and confirm \r\n  that you really want to apply them. \r\n  You will need to reboot your PC to activate \r\n changes.\r\n"))
$Button1 = GUICtrlCreateButton("Close", 320, 256, 75, 25, 0)
$Label1 = GUICtrlCreateLabel("Code By: John Gerald Catague", 8, 264, 150, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            GUIDelete($Form2)
            ExitLoop
        case  $Button1w
            
GUIDelete($Form2)
            ExitLoop
    EndSwitch
WEnd

EndFunc


func pp()

#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form23 = GUICreate("Disk Administrator V1.0 | Cat-software", 413, 298, 313, 218)
GUISetBkColor(0xFFFFFF)
$Edit11 = GUICtrlCreateEdit("", 8, 8, 393, 241, 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  Use this password-protected security utility to hide and lock your local,\r\n  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  For Comment or Suggestion  E-mail Me at game_catague@yahoo.com\r\n\r\n  or Visit my webpage at http://cataguegerald.blogspot.com"))
$Button11 = GUICtrlCreateButton("Close", 320, 256, 75, 25, 0)
$Label11 = GUICtrlCreateLabel("Code By: John Gerald Catague", 8, 264, 150, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            GUIDelete($Form23)
            ExitLoop
        case $Button11
            
GUIDelete($Form23)
            ExitLoop
    EndSwitch
WEnd

EndFunc

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


Func NoDrives()
    
    #include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

;================
;This is the drive letter with it values
;===============
;A: Bit 0 -- Z: Bit 25, ALL: Bits 0 thru 25

Global $ChkBox, $iSelection = 0
Global $iGuiW, $iGuiH, $hGui, $idLabel
Global $iMsg, $f_Checked, $sText

$ChkBox = DriveGetDrive("all")
If Not @error Then
    MsgBox(4096, "Hide Drive v 1.0", "Found " & $ChkBox[0] & " Drives")
EndIf

$ChkBox2 = DriveGetDrive("all")
$iGuiW = 200 + (UBound($ChkBox) * $ChkBox[0] * 3 )
$iGuiH = 100 + (UBound($ChkBox) * $ChkBox[0] * 2 )
$hGui = GUICreate("Hide Drive", $iGuiW, $iGuiH)
GUISetBkColor(0xFFFFFF)
For $i = 1 To UBound($ChkBox) - 1
        $Label1 = GUICtrlCreateLabel("Check the box to hide your divers", 8, 16, 278, 17, BitOr($GUI_SS_DEFAULT_LABEL, $SS_CENTER))
    $ChkBox[$i] = GUICtrlCreateCheckbox($ChkBox[$i], 10, ($i * 20) + 10, 80, 20)
Next
$idLabel = GUICtrlCreateLabel("REG_DWORD = 0 (0x00000000)", 10, $iGuiH - 30, $iGuiW - 20, 20, BitOr($GUI_SS_DEFAULT_LABEL, $SS_CENTER))
GUISetState()

While 1
    $iMsg = GUIGetMsg()
    Switch $iMsg
    Case $GUI_EVENT_CLOSE
        
        GUIDelete($hGui)
            ExitLoop
          
            
            
        Case $ChkBox[1] To $ChkBox[UBound($ChkBox) - 1]
            $f_Checked = ControlCommand($hGui, "", $iMsg, "IsChecked")
            $sText = ControlGetText($hGui, "", $iMsg)
            ConsoleWrite("ChkBx:  $iMsg = " & $iMsg & "; Text = " & $sText & "; Checked = " & $f_Checked & @LF)

            $iMsg = Asc(StringUpper(StringLeft($sText, 1))) - 0x41 ; A=0, Z=25
            If $f_Checked Then
                $iSelection = BitOR($iSelection, 2 ^ $iMsg)
                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDrives", "REG_DWORD", "" & $iSelection & "")
            Else
                $iSelection = BitAND($iSelection, BitNot(2 ^ $iMsg))
                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDrives", "REG_DWORD", "" & $iSelection & "")
            EndIf

            If $iSelection Then
                ControlSetText($hGui, "", $idLabel, "REG_DWORD  =  " & $iSelection & "  (0x" & Hex($iSelection) & ")")
                
            Else
                ControlSetText($hGui, "", $idLabel, "REG_DWORD = 0 (0x00000000)")
            EndIf
            
    EndSwitch
WEnd
EndFunc
    
    
Func NoViewOnDrive()
    
    #include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

;================
;This is the drive letter with it values
;===============
;A: Bit 0 -- Z: Bit 25, ALL: Bits 0 thru 25

Global $ChkBox, $iSelection = 0
Global $iGuiW, $iGuiH, $hGui, $idLabel
Global $iMsg, $f_Checked, $sText

$ChkBox = DriveGetDrive("all")
If Not @error Then
    MsgBox(4096, "No View On Drives", "Found " & $ChkBox[0] & " Drives")
EndIf

$ChkBox2 = DriveGetDrive("all")
$iGuiW = 200 + (UBound($ChkBox) * $ChkBox[0] * 3 )
$iGuiH = 100 + (UBound($ChkBox) * $ChkBox[0] * 2 )
$hGui = GUICreate("No View On Drives", $iGuiW, $iGuiH)
GUISetBkColor(0xFFFFFF)
For $i = 1 To UBound($ChkBox) - 1
        $Label1 = GUICtrlCreateLabel("Check the box to No View On Drives", 8, 16, 278, 17, BitOr($GUI_SS_DEFAULT_LABEL, $SS_CENTER))
    $ChkBox[$i] = GUICtrlCreateCheckbox($ChkBox[$i], 10, ($i * 20) + 10, 80, 20)
Next
$idLabel = GUICtrlCreateLabel("REG_DWORD = 0 (0x00000000)", 10, $iGuiH - 30, $iGuiW - 20, 20, BitOr($GUI_SS_DEFAULT_LABEL, $SS_CENTER))
GUISetState()

While 1
    $iMsg = GUIGetMsg()
    Switch $iMsg
    Case $GUI_EVENT_CLOSE
        
        GUIDelete($hGui)
            ExitLoop
          
            
            
        Case $ChkBox[1] To $ChkBox[UBound($ChkBox) - 1]
            $f_Checked = ControlCommand($hGui, "", $iMsg, "IsChecked")
            $sText = ControlGetText($hGui, "", $iMsg)
            ConsoleWrite("ChkBx:  $iMsg = " & $iMsg & "; Text = " & $sText & "; Checked = " & $f_Checked & @LF)

            $iMsg = Asc(StringUpper(StringLeft($sText, 1))) - 0x41 ; A=0, Z=25
            If $f_Checked Then
                $iSelection = BitOR($iSelection, 2 ^ $iMsg)
                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoViewOnDrive", "REG_DWORD", "" & $iSelection & "")
            Else
                $iSelection = BitAND($iSelection, BitNot(2 ^ $iMsg))
                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoViewOnDrive", "REG_DWORD", "" & $iSelection & "")
            EndIf

            If $iSelection Then
                ControlSetText($hGui, "", $idLabel, "REG_DWORD  =  " & $iSelection & "  (0x" & Hex($iSelection) & ")")
                
            Else
                ControlSetText($hGui, "", $idLabel, "REG_DWORD = 0 (0x00000000)")
            EndIf
            
    EndSwitch
WEnd
EndFunc







Func NoDriveAutoRun()
    
    #include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

;================
;This is the drive letter with it values
;===============
;A: Bit 0 -- Z: Bit 25, ALL: Bits 0 thru 25

Global $ChkBox, $iSelection = 0
Global $iGuiW, $iGuiH, $hGui, $idLabel
Global $iMsg, $f_Checked, $sText

$ChkBox = DriveGetDrive("all")
If Not @error Then
    MsgBox(4096, "Disable autorun on selected drives", "Found " & $ChkBox[0] & " Drives")
EndIf

$ChkBox2 = DriveGetDrive("all")
$iGuiW = 200 + (UBound($ChkBox) * $ChkBox[0] * 3)
$iGuiH = 100 + (UBound($ChkBox) * $ChkBox[0] * 2 )
$hGui = GUICreate("Disable autorun on selected drives", $iGuiW, $iGuiH)
GUISetBkColor(0xFFFFFF)
For $i = 1 To UBound($ChkBox) - 1
        $Label1 = GUICtrlCreateLabel("Check the box to Disable autorun on selected drives", 8, 16, 278, 17, BitOr($GUI_SS_DEFAULT_LABEL, $SS_CENTER))
    $ChkBox[$i] = GUICtrlCreateCheckbox($ChkBox[$i], 10, ($i * 20) + 10, 80, 20)
Next
$idLabel = GUICtrlCreateLabel("REG_DWORD = 0 (0x00000000)", 10, $iGuiH - 30, $iGuiW - 20, 20, BitOr($GUI_SS_DEFAULT_LABEL, $SS_CENTER))
GUISetState()

While 1
    $iMsg = GUIGetMsg()
    Switch $iMsg
    Case $GUI_EVENT_CLOSE
        
        GUIDelete($hGui)
            ExitLoop
          
            
            
        Case $ChkBox[1] To $ChkBox[UBound($ChkBox) - 1]
            $f_Checked = ControlCommand($hGui, "", $iMsg, "IsChecked")
            $sText = ControlGetText($hGui, "", $iMsg)
            ConsoleWrite("ChkBx:  $iMsg = " & $iMsg & "; Text = " & $sText & "; Checked = " & $f_Checked & @LF)

            $iMsg = Asc(StringUpper(StringLeft($sText, 1))) - 0x41 ; A=0, Z=25
            If $f_Checked Then
                $iSelection = BitOR($iSelection, 2 ^ $iMsg)
                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDriveAutoRun", "REG_DWORD", "" & $iSelection & "")
            Else
                $iSelection = BitAND($iSelection, BitNot(2 ^ $iMsg))
                RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDriveAutoRun", "REG_DWORD", "" & $iSelection & "")
            EndIf

            If $iSelection Then
                ControlSetText($hGui, "", $idLabel, "REG_DWORD  =  " & $iSelection & "  (0x" & Hex($iSelection) & ")")
                
            Else
                ControlSetText($hGui, "", $idLabel, "REG_DWORD = 0 (0x00000000)")
            EndIf
            
    EndSwitch
WEnd
EndFunc





Func Disable()
    
    
        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 Restore default setting now?")
    Select
    Case $iMsgBoxAnswer = 6 ;Yes
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDriveAutoRun", "REG_DWORD", "0") ;NoDriveAutoRun
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoViewOnDrive", "REG_DWORD", "0");NoViewOnDrive
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDrives", "REG_DWORD", "0");NoViewOnDrive
        RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies", "WriteProtect", "REG_DWORD", "0")
        RegWrite("HKCU\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies", "WriteProtect", "REG_DWORD", "0")
            ProcessClose($shell)            
        Case $iMsgBoxAnswer = 7 ;No
            MsgBox(64,"Information","Restore default setting Abort!")   
    EndSelect
    #EndRegion --- CodeWizard generated code End ---


                
EndFunc

:)

i need to complied :cheer:;):);):shocked:

Share this post


Link to post
Share on other sites

As stated by AdmiralAlkex, just install the SciTE4AutoIt3 installer and do F7 to Compile or Ctrl+F7 to first show the GUI.

Jos


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

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