guinness Posted December 28, 2010 Share Posted December 28, 2010 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 Link to comment Share on other sites More sharing options...
MvGulik Posted December 28, 2010 Share Posted December 28, 2010 (edited) nevermind. Edited June 28, 2011 by iEvKI3gv9Wrkd41u "Straight_and_Crooked_Thinking" : A "classic guide to ferreting out untruths, half-truths, and other distortions of facts in political and social discussions.""The Secrets of Quantum Physics" : New and excellent 2 part documentary on Quantum Physics by Jim Al-Khalili. (Dec 2014) "Believing what you know ain't so" ... Knock Knock ... Link to comment Share on other sites More sharing options...
Varian Posted December 28, 2010 Share Posted December 28, 2010 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.expandcollapse popupLocal $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) Link to comment Share on other sites More sharing options...
kingooo Posted December 28, 2010 Author Share Posted December 28, 2010 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.expandcollapse popupLocal $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 Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now