hello every one.

i would like to tell you that i am real biggener so please reply accordingly. any kind of help would be appriciated. i was trying to clean a specific registry key's value through my application.

i have added a button now i want that on click event of that button that particular registry entry's value is cleaned.

what i want to do is to increase the typed URL history through my application.

i was told to use a namespace microsoft.win32 but i dont even know how to use the namespace.

i would like someone to guide me through.
the registry key is

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs

anyone can please help with this one and rest i'll do on the same traks.

Best Regards
Mohit

Recommended Answers

All 8 Replies

I'm not sure what you mean by "clean" the registry key, but it's all too easy to write to the registry like this:

dim WSH
set WSH = createobject("WScript.Shell")
WSH.RegWrite "HKCU\Software\Microsoft\Internet Explorer\TypedURLs\url1", "http://www.google.com"

That will effectively replace the value in url1 to http://www.google.com. The most difficult Part of this will be to figure out how many url values are available. Here is a peice of code that will loop through all the registry values (urls) in that registry key, and replace them with "" (nothing).

' /* Create Shell Object */
dim WSH
set WSH = createobject("WScript.Shell")

' /* Set I To 1
I = 1

' / * Loop Without Conditions (Infinately) */
do 
	' /* If There is any kind of error, just keep processing */
	on error resume next

	' /* Read The String Value In The Registry Into the url Variable */
	url = WSH.RegRead("HKCU\Software\Microsoft\Internet Explorer\TypedURLs\url" & I)

	' /* If The Length Of What We Read From The Registry is 0, Then Break From The Loop */
	if len(url) = 0 then exit do

	' /* OverWrite The Current Value (current URL) with "" chr(34) is the character code for " */
	WSH.RegWrite "HKCU\Software\Microsoft\Internet Explorer\TypedURLs\url" & I, chr(34) & "" & chr(34)

	' /* Reset URL */
	url = ""

	' /* Add One To I (To get the next URL in the registry */
	I = I + 1
loop

' /* All Done */
msgbox "Complete!"
WScript.Quit

Now, IE Still recognizes these "" values, because the values are still in the registry, but URL's have been removed. They could have been changed just as easily to say, http://www.google.com. The way to actually Remove All The Values is as such:

' /* Create Shell Object */
dim WSH
set WSH = createobject("WScript.Shell")

' /* Set I To 1
I = 1

' / * Loop Without Conditions (Infinately) */
do 
	' /* If There is any kind of error, just keep processing */
	on error resume next

	' /* Read The String Value In The Registry Into the url Variable */
	url = WSH.RegRead("HKCU\Software\Microsoft\Internet Explorer\TypedURLs\url" & I)

	' /* If The Length Of What We Read From The Registry is 0, Then Break From The Loop */
	if len(url) = 0 then exit do

	' /* Delete The URL From The Registry */
	 WSH.RegDelete "HKCU\Software\Microsoft\Internet Explorer\TypedURLs\url" & I

	' /* Reset URL */
	url = ""

	' /* Add One To I (To get the next URL in the registry */
	I = I + 1
loop

' /* All Done */
msgbox "Complete!"
WScript.Quit

Let me know if this helps you any

This really helped me a lot. thanks a lot.

now what i am focusing towards is that user gets an option to alter a registry key's value when he clicks at a link label. he gets a window displayed in front of him where the value fo the key is written. he can alter the value there and it gets altered back in the registry.

i know this is a bit smart to do but i think me on this website!!!! it is possible when you get good programers like the one who replied to me for the first time.

what i am trying to do is preety much simmlar to browser hijac restore of MS Anti Spyware.

Regards
Mohit

the key in questions is

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main

and i want to alter the Key Value from the app directly fot he start page URL.

the key can be chaged if it is set to a particular one in button event handler butthe part of providig the user to put a value of his choice in the app and then pressing a button to replace is the diff part i think.

lets see if i have any luck eith the coders here

' /* Create Shell Object */
dim newurl
dim WSH
set WSH = createobject("WScript.Shell")

' /* Get The URL From The User */
newurl = inputbox("Please, Enter The New Home Page")

' /* If They Hit Cancel, Or Leave It Blank Then Exit Sub */
if newurl = "" then exit sub

' /* Set The Home Page To The New URL */
wsh.regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", newurl

' /* Tell us It's Done */
msgbox "Done!"

If this keep on going like this is think that i would fall of my chair. this comasot is a real programer man. wish he was my teacher.

now since this prob have also been resolved i think now is the most appropriate time to deliever my new prob.

i want to make a friendly interface like BROWSER HIJACK RESTORE

now i want that several item like start page and search page directly come into a list view. when user clicks at it an inprutbox comes out asking for entry of the new URL or we ca set a default for every entry and when user clicks at restore all the defaults apply else user selects one click at change button and then the input box appears for changing the URl.

i think this is a real tedioud and time taking job.

i know i am asking for too much but this the way i would get to know. befor asking for help i always try to get things done by myself but i am a begineer so ti dont think i am capable of doing all this stuff.

one day when i become programer i would help others here at this exteemed website

Hi Guys

I have managed to write values to a Windows Mobile CE Registry Editor from my application.

I have a writeIniReg() and a readIniReg() function

So, when the user enters their name in the textbox on the form it is written to the registry and read from it again the next time the user runs the program.

But my problem is that my readIniReg() gets a NullReferenceException when the program first loads .... but if I comment out the readIniReg() and run it to write data to the registry then uncomment the code, it can read from it...


Can anyone help me to check in my readIniReg() if the subKey folders exist first and create them if they dont exist ... so that I can get away from my error message.

Please even give some suggestions ... I still have a lot to learn with VB :)

Public Function readIniReg() As Boolean
        Dim localResult As Boolean
        Dim regKey As RegistryKey
        Dim regKeyCompany As RegistryKey
        Dim regKeyProduct As RegistryKey

        localResult = False

        regKey = Registry.CurrentUser.OpenSubKey("Software", True)
        regKeyCompany = regKey.OpenSubKey("Company", True)
        regKeyProduct = regKeyCompany.OpenSubKey("Data", True)

        'Name of value to return
        strName = regKeyProduct.GetValue("Username").ToString()
        'Pass username string variable to form1 variable
        Form1_LogIn.username = strName
        'Display Name in the textbox
        Form1_LogIn.txt_user.Text = strName


        'Close all keys
        regKeyCompany.Close()
        regKeyProduct.Close()
        regKey.Close()

Regards

Elmo

commented: Taste It -2

Hi frnd i want to crate tool with add button on IE on each google search resulte using registry key or dom objects can any budy help me out

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.