Another registry jump tool

[careca]

Hi guys, i've seen some scripts that do the same, but hey, i did this myself 90% the other 10 is for the help file

so im proud, and want to share it for anyone who needs a small tool, that can be incorporated with anything you'd like.

So what is the difference from this to the others? it's basic, simple, so more functions that you'd expect, and i hate that.

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=ResourcesClipReg.ico
#AutoIt3Wrapper_Res_Icon_Add=ResourcesClipReg.ico
#AutoIt3Wrapper_Run_Tidy=y
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
Local $LastKey1, $LastKey2, $LastKey3, $LastKey4
$LastKey1 = ClipGet()
$LastKey2 = StringReplace($LastKey1, "", "")
$LastKey3 = StringReplace($LastKey2, '"', '')
$LastKey4 = StringRegExp($LastKey3, '^(HK(LM|U|CU|CR|CC|EY)_?(CLASSES|CURRENT|LOCAL)?_?(USER(S)?|ROOT|CONFIG|MACHINE)?)', 0) = 1
If $LastKey4 = False Then
MsgBox(4096, "Info", "Clipboard content is NOT a registry key!")
Exit
Else
Write()
EndIf

Func Write()
If ProcessExists("regedit.exe") Then
ProcessClose("regedit.exe")
EndIf
RegWrite("HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionAppletsRegedit", "LastKey", "REG_SZ", $LastKey3)
Sleep(100)
Run("regedit")
EndFunc ;==>Write

Usage: Copy the key (path) from anywhere and run this

it will open the regedit tool on the key you copied. doesn't get much simpler than this.

It uses the simple method of writing the key path to the registry itself, and when regedit opens,

it will open there.

Update: Added "is registry key" check, string format, removes " and double automatically, closes and reopens regedit if open.

Edited October 23, 2012 by careca

[guinness]

careca,

Nice little idea. How about creating a function instead? Also best to add error checking in case the clipboard is blank or not a registry key.

Edited October 22, 2012 by guinness

[careca]

Hi guinness, i'll leave it to whoever wants to use it in a function, i use it as an exe, that i call from context menu.

Error check, good idea, gonna look on that.

Greetz

[careca]

Ok so i came up with this, but it doesn't work on the second part im sure i made a big mistake, it should check if there's any of those strings and then either exit or jump to the function.

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=ClipReg.ico
#AutoIt3Wrapper_Res_Icon_Add=ClipReg.ico
#AutoIt3Wrapper_Res_File_Add=clipboard-icon.gif
#AutoIt3Wrapper_Run_Tidy=y
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
Local $LastKey1, $LastKey2, $string
$LastKey1 = ClipGet()
;MsgBox(0, "Clipboard contains1:", $LastKey1);The clipboard text
$LastKey2 = StringReplace($LastKey1, "", "")
;MsgBox(0, "Clipboard contains2:", $LastKey2);Modified clipboard text, if needed to be modified.
$string = StringInStr($LastKey2, "", 2)
If $string = 0 Then
MsgBox(4096, "Error", "Clipboard content doesn't have any slashes!")
Exit
EndIf
$string = StringInStr($LastKey2, "HKEY_CLASSES_ROOT" Or "HKEY_CURRENT_USER" Or "HKEY_LOCAL_MACHINE" Or "HKEY_USERS" Or "HKEY_CURRENT_CONFIG", 2)
If $string = 0 Then
MsgBox(4096, "Error", "Clipboard content is not a registry key!")
Exit
ElseIf $string = 1 Then
Write()
EndIf
Func Write()
RegWrite("HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionAppletsRegedit", "LastKey", "REG_SZ", $LastKey2)
Sleep(100)
Run("regedit")
EndFunc   ;==>Write

[AZJIO]

So what is the difference from this to the others?

With each jump you need to restart regedit

[careca]

Yes, that too, suits my needs, but, still, updated the first post, including a portion of code that closes regedit and opens in new key, if already open.

[AZJIO]

careca

- fits not only your needs. Does not prevent you restart regedit.

In the old version of the program I also used "LastKey".