Xpounded Add your item to IE's Menu

Adding a menu item to IE 5+ has never been easier. Just answer the few questions and click the 'Make My Reg File' button to generate a REG file that can add your menu item to IE's 'Tools' or 'Help' menu. Simply Double-Click the Reg File to import the required registry settings and install your menu-item.
(If you decide to remove your menu-item, the last line of the generated file will do this for you by removing all of the added regisrty entries).
Disclaimers:
As always, You should back-up your regisrty before making any changes
You should never play with the registry unless you know what you are doing
Entering wrong or invalid information into the registry can cause serious system problems
Never change a systems registry without the owners permission
The registry is not a playground. Do not treat it like one

Save this file as IEmenuBuilder.html Mention Us

Select All

<HTML>
<HEAD>
<TITLE>
Xpounded IE Menu Item builder
</TITLE>
<STYLE>

td		{font-size:17;}
	select	{font-weight:bold;}
	input		{font-weight:bold;}
	#cid		{}
	#ops		{font-weight:bold;}
</STYLE>
<SCRIPT LANGUAGE = "VBScript">
	Function Hex(n)
		Dim h
		h="0123456789ABCDEF"
		Hex=Mid(h,n+1,1)
	End Function
	Function newClassId
		Randomize
		Dim result,na:na=Array(3,1,1,1,5):result="{"
		for i = 0 to ubound(na):l=cint(na(i))
			for j=0 to l
				result=result & hex(int(rnd(1)*16)) & hex(int(rnd(1)*16))
			next
			result=result & "-"
		next
		newClassId=left(result,len(result)-1) & "}"
	End Function
Sub window_onload
	newId_onclick
End Sub
Sub newId_onclick
	cid.innerHTML="<tt>" & newClassId & "</tt>"
End Sub
Dim who
who=0
Sub makeit_onclick
	Dim hkey(2)
	Dim ret
	hkey(0)="HKEY_LOCAL_MACHINE"
	hkey(1)="HKEY_CURRENT_USER"
	ret="REGEDIT4" & vbcrlf
	ret=ret & ";Save this file with a REG Extension. Double-Click it to make your new Menu Item." & vbcrlf
	ret=ret & "[" & hkey(who) & "\Software\Microsoft\Internet Explorer\Extensions\" & cid.innerText & "]" & vbcrlf
	If menuOption.value="help" Then
		ret=ret & chr(34) & "MenuCustomize" & chr(34) & "=" & chr(34) & "help" & chr(34) & vbcrlf
	End If
	ret=ret & chr(34) & "CLSID" & chr(34) & "=" & chr(34) & "{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}" & chr(34) & vbcrlf
	ret=ret & chr(34) & "MenuText" & chr(34) & "=" & chr(34) & menuText.value & chr(34) & vbcrlf
	If sbarText.value <> "" Then
		ret=ret & chr(34) & "MenuStatusBar" & chr(34) & "=" & chr(34) & sbarText.value & chr(34) & vbcrlf
	End If
	If myscript.style.visibility="visible" Then
		ret=ret & chr(34) & "Script" & chr(34) & "=" & chr(34) & myscript.value & chr(34) & vbcrlf
	Else
		ret=ret & chr(34) & "Exec" & chr(34) & "=" & chr(34) & Replace(myexe.value,"\","\\") & chr(34) & vbcrlf
	End If
	ret=ret & vbcrlf
	ret=ret & ";Un-comment the following line to remove your menu item" & vbcrlf
	ret=ret & ";[-" & hkey(who) & "\Software\Microsoft\Internet Explorer\Extensions\" & cid.innerText & "]" & vbcrlf
	result.value=ret
End Sub
Sub opscript_onclick
	myscript.style.visibility="visible"
	myexe.style.visibility="hidden"
End Sub
Sub opexe_onclick
	myexe.style.visibility="visible"
	myscript.style.visibility="hidden"
End Sub
Sub opme_onclick
	who=1
End Sub
Sub opall_onclick
	who=0
End Sub
</SCRIPT>
</HEAD>
<BODY>
	<h1 style="text-align:center;">~ Add your own IE menu item ~</h1>
<font style="font-weight:bold;">
	<font size="+2">A</font>dding a menu item to IE 5+ has never been easier. Just answer the few
	questions and click the 'Make My Reg File' button to generate a REG file
	that can add your menu item to IE's 'Tools' or 'Help' menu. Simply Double-Click the Reg File 
	to import the required registry settings and install your menu-item.
	<br>
	(If you decide to remove your menu-item, the last line of the generated file will do this for 
	you by removing all of the added regisrty entries).
	</font>
	<center>
	Disclaimers:<br>
	<font style="font-size:12;">As always, You should back-up your regisrty before making any changes<br>
	You should never play with the registry unless you know what you are doing<br>
	Entering wrong or invalid information into the registry can cause serious system problems<br>
	Never change a systems registry without the owners permission<br>
	The registry is not a playground. Do not treat it like one<br>
	</font>
	<br>
	 <b></center></b>
<hr>
	<table style="position:relative;" width="100%">
	<tr><td width="290">
		My new GUID (and classId) is: 
	</td><td>
		<span id="cid"></span>
		 <button id="newId">New</button>
	</td></tr>	
	<tr><td>
		This is who will see my new menu-item: 
	</td><td id="ops">
		<input id="opall" type="radio" name="whosees" value=1 checked>Every One
		<input id="opme" type="radio" name="whosees" value=0>Just Me  
	<tr><td>
		Put my menu-item in this IE menu: 
	</td><td>  
		<select id="menuOption">
			<option value="tools">Tools</option>
			<option value="help">Help</option>
		</select> 
	</td></tr>
	<tr><td>
		My new menu-item's text is: 
	</td><td>
		<input id="menuText" size="16" value="Xpounded">.
	</td></tr>
	<tr><td>
		I want to run this 
		<input id="opscript" type="radio" name="runtype" value="script" checked>script 
		<input id="opexe" type="radio" name="runtype" value="exe">exe 
	</td><td style="position:relative;">
		<input id="myscript" style="position:absolute;visibility:visible" size="60" value="javascript:location='http://www.xpounded.netfirms.com'"> 
		<input id="myexe" style="position:absolute;visibility:hidden" size="60" value="calc"> 
	</td></tr>
	<tr><td>
		I want this to show in the status bar 
	</td><td>
		<input id="sbarText" size="50" value="Xpounded's Home Page"> 
	</td></tr>
	<tr><td colspan="2">
		<button id="makeit">Make My Reg File</button>
		        
		<font size="-1">Save this With a REG extension and Double-Click to Import</font>
		  <a href="javascript:result.focus();result.select()">Select All</a>
	</td></tr>
	<tr><td colspan="2">
		<textarea id="result" wrap="off" rows="5" cols="80"></textarea>
	</td></tr>
	</table>
</BODY>
</HTML>

View HTML

- Copyright 2003-2006 Xpounded -
All JS code developed by Xpounded is developed in RHSCoder.
All VBS code developed by Xpounded is developed in VBS QuickDev IDE, or RHSCoder.
Feedback