sampleconfig.xml

一个完整的IE插件的程序的源代码（有些参考价值）

<?xml version="1.0"?>

<!DOCTYPE dropBar
[
	<!ELEMENT dropBar (script?, button*)>
	<!ATTLIST dropBar version CDATA #FIXED "1.0">

	<!ELEMENT script (#PCDATA)>
	<!ATTLIST script language CDATA "javascript">

	<!ELEMENT button (icon?, script?)>
	<!ATTLIST button description CDATA #IMPLIED>
	<!ATTLIST button separator CDATA "0">

	<!ELEMENT icon EMPTY>
	<!ATTLIST icon file CDATA #REQUIRED>
	<!ATTLIST icon index CDATA "0">
]>

<!--
// sampleConfig.xml
//
// @author christian oetterli
//
// please adjust the path to your systems folders.
//
// replace "d:\vs" with the name of the folder where Visual Studio is installed
// replace "d:\vs.net" with the name of the folder where Visual Studio .NET is installed
// replace "C:\Program Files" with the name of the folder where your program files are installed

-->

<dropBar version="1.0">

	<script>
		function onCustomize(file)
		{
			new ActiveXObject("WScript.Shell").Run("notepad \"" + file + "\"");
		}
	</script>
	
	<button description="Open files with Notepad">
	
		<icon file="%SystemRoot%\system32\notepad.exe"/>
		
		<script>
			function onDrop(file)
			{
				new ActiveXObject("WScript.Shell").Run("notepad \"" + file + "\"");
			}

			function onClick()
			{
				new ActiveXObject("WScript.Shell").Run("notepad");
			}
		</script>
	</button>
	
	<button description="Opens the Command Prompt">
	
		<icon file="%SystemRoot%\system32\cmd.exe"/>
		
		<script>
			function onClick()
			{
				new ActiveXObject("WScript.Shell").Run("%comspec%");
			}
		</script>
	</button>
	
	<button separator="1"/>

	<button description="Open files with Visual Studio">
		<icon file="d:\vs\common\msdev98\bin\msdev.exe"/>
		<script language="vbscript">
			sub onDrop(file)
				
				appId = "MSDev.Application"
				
				on error resume next

				set app = getObject(, appId)
			
				if app is nothing then
					set app = createObject(appId)
				end if
 
				app.documents.open file
				app.visible = true
				app.active = true

			end sub

			sub onClick()
				createObject("WScript.Shell").run "d:\vs\common\msdev98\bin\msdev.exe"
			end sub
		</script>
	</button>

	<button description="Open files with Visual Studio .NET">
		<icon file="d:\vs.net\Common7\IDE\devenv.exe"/>
		<script language="vbscript">
		
			sub onDrop(file)
			
				appId = "VisualStudio.DTE"

				on error resume next

				set app = getObject(, appId)

				if app is nothing then
					createObject("WScript.Shell").run "d:\vs.net\Common7\IDE\devenv.exe", 3
					
					while app is nothing
						set app = getObject(, appId)
					wend
				end if
				
				on error goto 0
				
				set w = app.mainWindow

				w.visible = true
				app.ItemOperations.OpenFile(file)

				dropBar.BringWindowToTop w.hWnd
				
			end sub
			
			sub onClick()
				createObject("WScript.Shell").run "d:\vs.net\Common7\IDE\devenv.exe"
			end sub
			
		</script>
	</button>

	<button separator="1"/>

	<button description="Open files with Internet Explorer">
		<icon file="C:\Program Files\Internet Explorer\iexplore.exe" index="1"/>
		<script language="vbscript">
			sub onDrop(file)
				createObject("WScript.Shell").run "iexplore.exe """ + file + """"
			end sub

			sub onClick()
				createObject("WScript.Shell").run "iexplore"
			end sub
		</script>
	</button>
</dropBar>