ÿþ<?xml version="1.0" encoding="UTF-16"?>



<!--     replace C:\WINDOWS\ehome\ehshell.exe by exact program path to exe, including the actual command to start the program -->

<!--     script made by Mads Villesen, based on scripts found on pczapper.tv forum -->

<!--     SAVE SCRIPT AS WMC.PSM IN UNICODE FORMAT (NOT ANSI)  -->



<Module>

	<?Script VBScript

		Dim WMC, WshShell

		Set WshShell = CreateObject("WScript.Shell")



	?>

	<Description>Windows Media Center</Description>

	<RunWithShadow>false</RunWithShadow>

	<Standalone>true</Standalone>

	<Events>

	

		<OnInitialization>

			<?Script VBScript

				Dim LResult

				pbMenu.Visible = 0



				URL=pbMenu.CurItem.URL

	

				Set WMC = Exec("C:\WINDOWS\ehome\ehshell.exe")

				sleep 100

				WshShell.AppActivate(WMC.ProcessID)

				'Done - Switch WMC to full screen mode

				

			?>

		</OnInitialization>

	

		<!-- Exit the plugin by closing WMC (Send Alt-F4) -->

		<OnFinalization>

			<?Script VBScript

				Dim LResult



				'Make sure WMC window is activated

				WshShell.AppActivate(WMC.ProcessID)

				'Send Alt-F4 to WMC application

				LResult=WshShell.Sendkeys("%{F4}")

				pbMenu.Visible = 1

			?>

		</OnFinalization>

<!-- THE BUTTONS  -->





		<OnKeyUp>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("{UP}")

			?>

		</OnKeyUp>

	

		<OnKeyDown>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("{DOWN}")

			?>

		</OnKeyDown>

		

		<OnKeyLeft>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("{LEFT}")

			?>

		</OnKeyLeft>

		

		<OnKeyRight>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("{RIGHT}")

			?>

		</OnKeyRight>

		

		<OnKeyEnter>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("{ENTER}")

			?>

		</OnKeyEnter>

		



		<OnKeyRed>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("^{r}")

			?>

		</OnKeyRed>		



		<OnKeyGreen>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("^{g}")

			?>

		</OnKeyGreen>

	

		<OnKeyStar>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("^{d}")

			?>

		</OnKeyStar>



		<OnKeyPlay>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("^{p}")

			?>

		</OnKeyPlay>

		

		<OnKeyStop>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("^+{s}")

			?>

		</OnKeyStop>



		<OnKeyPrev>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("{BKSP}")

			?>

		</OnKeyPrev>



		<OnKeyVolUp>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("{PGUP}")

			?>

		</OnKeyVolUp>



		<OnKeyVolDown> 

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("{PGDN}")

			?>

		</OnKeyVolDown>



		<OnKeyShiftVolUp>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("{F10}")

			?>

		</OnKeyShiftVolUp>

		



		<OnKeyShiftVolDown> 

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("{F9}")

			?>

		</OnKeyShiftVolDown>

		



		<OnKeyMute>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("{F8}")

			?>

		</OnKeyMute>



		<OnKey0>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("0")

			?>

		</OnKey0>

		<OnKey1>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("1")

			?>

		</OnKey1>

		<OnKey2>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("2")

			?>

		</OnKey2>

		<OnKey3>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("3")

			?>

		</OnKey3>

		<OnKey4>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("4")

			?>

		</OnKey4>

		<OnKey5>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("5")

			?>

		</OnKey5>

		<OnKey6>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("6")

			?>

		</OnKey6>

		<OnKey7>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("7")

			?>

		</OnKey7>

		<OnKey8>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("8")

			?>

		</OnKey8>

		<OnKey9>

			<?Script VBScript

			Sleep 100

			LResult=WshShell.Sendkeys("9")

			?>

		</OnKey9>





	</Events>

		

</Module>