Jump to content

if ,then endif

kingooo

By kingooo
in AutoIt General Help and Support

 Share

Recommended Posts

guinness Universalist

guinness

Posted
Posted

you will see one word is missing in code that is ------(think - decied - then explorer )

I forgot Policies, sorry! But the idea was still the same.

UDF List:

 
_AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples...

Updated: 22/04/2018

Varian Universalist

Varian

Posted
Posted

The examples that you have received will do what you are asking, Kingooo. Here is an example that will display a little more on the results from each operation.

Local $Reg = RegRead("HKCU\Software\Microsoft\Windows\Currentversion\Policies\Explorer", "Norun")
Switch @error
    Case 0
        $String = '@error = ' & @error & '    [All Went Well]'
    Case 1
        $String = '@error = ' & @error & '    [Unable To Open Requested Key]'
    Case 2
        $String = '@error = ' & @error & '    [Unable To Open Requested Main Key]'
    Case 3
        $String = '@error = ' & @error & '    [Unable To Remote Connect To The Registry]'
    Case -1
        $String = '@error = ' & @error & '    [Unable To Open Requested Value]'
    Case -2
        $String = '@error = ' & @error & '    [Value Type Not Supported]'
EndSwitch
If Not $Reg Then $Reg = 0
MsgBox(32, 'Registry Read Results', '$Reg = ' & $Reg & @LF & '1 means Success, 0 means failure' & @LF & $String)


If Not $Reg Then
    RegWrite("HKCU\Software\Microsoft\Windows\Currentversion\Policies\Explorer", "Norun", "Reg_Dword", "0")
EndIF
$Result = RegDelete("HKCU\Software\Microsoft\Windows\Currentversion\Policies\Explorer", "Norun")
Switch @error
    Case 0
        $String = '@error = ' & @error & '    [All Went Well]'
    Case 1
        $String = '@error = ' & @error & '    [Unable To Open Requested Key]'
    Case 2
        $String = '@error = ' & @error & '    [Unable To Open Requested Main Key]'
    Case 3
        $String = '@error = ' & @error & '    [Unable To Remote Connect To The Registry]'
    Case -1
        $String = '@error = ' & @error & '    [Unable To Delete Requested Value]'
    Case -2
        $String = '@error = ' & @error & '    [Unable To Delete Requested Key/Value]'
EndSwitch
MsgBox(32, 'Registry Delete Results', 'Result = ' & $Result & @LF & '1 means Success, 0 means failure' & @LF & $String)

kingooo Wayfarer

kingooo

Posted
  • Author
Posted

The examples that you have received will do what you are asking, Kingooo. Here is an example that will display a little more on the results from each operation.

Local $Reg = RegRead("HKCU\Software\Microsoft\Windows\Currentversion\Policies\Explorer", "Norun")
Switch @error
    Case 0
        $String = '@error = ' & @error & '    [All Went Well]'
    Case 1
        $String = '@error = ' & @error & '    [Unable To Open Requested Key]'
    Case 2
        $String = '@error = ' & @error & '    [Unable To Open Requested Main Key]'
    Case 3
        $String = '@error = ' & @error & '    [Unable To Remote Connect To The Registry]'
    Case -1
        $String = '@error = ' & @error & '    [Unable To Open Requested Value]'
    Case -2
        $String = '@error = ' & @error & '    [Value Type Not Supported]'
EndSwitch
If Not $Reg Then $Reg = 0
MsgBox(32, 'Registry Read Results', '$Reg = ' & $Reg & @LF & '1 means Success, 0 means failure' & @LF & $String)


If Not $Reg Then
    RegWrite("HKCU\Software\Microsoft\Windows\Currentversion\Policies\Explorer", "Norun", "Reg_Dword", "0")
EndIF
$Result = RegDelete("HKCU\Software\Microsoft\Windows\Currentversion\Policies\Explorer", "Norun")
Switch @error
    Case 0
        $String = '@error = ' & @error & '    [All Went Well]'
    Case 1
        $String = '@error = ' & @error & '    [Unable To Open Requested Key]'
    Case 2
        $String = '@error = ' & @error & '    [Unable To Open Requested Main Key]'
    Case 3
        $String = '@error = ' & @error & '    [Unable To Remote Connect To The Registry]'
    Case -1
        $String = '@error = ' & @error & '    [Unable To Delete Requested Value]'
    Case -2
        $String = '@error = ' & @error & '    [Unable To Delete Requested Key/Value]'
EndSwitch
MsgBox(32, 'Registry Delete Results', 'Result = ' & $Result & @LF & '1 means Success, 0 means failure' & @LF & $String)

thank you very much

really you are expert in autoit script

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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...