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



<!-- replace all instances GBPVR by the GBPVR without .exe

     replace C:\Program Files\gbpvr\GBPVR.exe by exact program path to exe, including the actual command to start the program -->

<!--     keycodes from wiki at GBPVR.com                        -->

<!--     script based on all scripts found on pczapper.tv forum -->

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



<Module>

	<?Script VBScript

		Dim GBPVR, WshShell

		Set WshShell = CreateObject("WScript.Shell")



	?>

	<Description>GBPVR</Description>

	<RunWithShadow>false</RunWithShadow>

	<Standalone>true</Standalone>

	<Events>

	

		<OnInitialization>

			<?Script VBScript

				Dim LResult

				pbMenu.Visible = 0



				URL=pbMenu.CurItem.URL

				'

				Set GBPVR = Exec("C:\Program Files\gbpvr\GBPVR.exe")

				sleep 100

				WshShell.AppActivate(GBPVR.ProcessID)

				'Done - Switch GBPVR to full screen mode

				

			?>

		</OnInitialization>

	

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

		<OnFinalization>

			<?Script VBScript

				Dim LResult



				'Make sure GBPVR window is activated

				WshShell.AppActivate(GBPVR.ProcessID)

				'Send Alt-F4 to GBPVR application

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

				pbMenu.Visible = 1

			?>

		</OnFinalization>

<!-- THE BUTTONS  -->

<!--CENTRAL PART -->

<OnKeyHelp>

</OnKeyHelp>

		<OnKeyUp>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyUp>

		<OnKeyRepeatUp>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyRepeatUp>

		<OnKeyDown>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyDown>

		<OnKeyRepeatDown>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyRepeatDown>

		<OnKeyLeft>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyLeft>

		<OnKeyRepeatLeft>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyRepeatLeft>

		<OnKeyRight>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyRight>

		<OnKeyRepeatRight>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyRepeatRight>

		<OnKeyEnter>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyEnter>

		<OnKeyHoldEnter>

			<?Script VBScript

			Sleep 100

			?>

		</OnKeyHoldEnter>



		<OnKeyMenu>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyMenu>

		

<!--TOP ROW -->

		<OnKeyEPG>

		<?Script VBScript

				Sleep 100

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

			?>

		</OnKeyEPG>

<!--PLAYER CONTROLS -->

		<OnKeyRecord>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyRecord>		



		<OnKeyPlay>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyPlay>

		<OnKeyPause>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyPause>

		<OnKeyStop>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyStop>



		<OnKeyPrev>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyPrev>

		<OnKeyRepeatPrev>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyRepeatPrev>



		<OnKeyNext>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyNext>

		<OnKeyRepeatNext>

			<?Script VBScript Sleep 100 LResult=WshShell.Sendkeys("^{RIGHT}")?>

		</OnKeyRepeatNext>

		<OnKeyFN>

		</OnKeyFN>



<!--NUMERIC -->



		<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>

		<OnKeyHoldStar>

		</OnKeyHoldStar>

<!-- RIGHT SIDE -->

	

'the volume

		<OnKeyVolUp>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyVolUp>

		<OnKeyRepeatVolUp>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyRepeatVolUp>



		<OnKeyVolDown> 

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyVolDown>

		<OnKeyRepeatVolDown>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyRepeatVolDown>

'and the channels

		<OnKeyNextChannel>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyNextChannel>

		<OnKeyRepeatNextChannel>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyRepeatNextChannel>



		<OnKeyPrevChannel> 

		<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyPrevChannel>

		<OnKeyRepeatPrevChannel>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyRepeatPrevChannel>

		<OnKeyMute>

			<?Script VBScript

			Sleep 100

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

			?>

		</OnKeyMute>







<!--COLOR KEYS-->

<OnKeyRed>

</OnKeyRed>

<OnKeyGreen>

</OnKeyGreen>

<OnKeyYellow>

</OnKeyYellow>

<OnKeyBlue>

</OnKeyBlue>



<!--WHAT KEY?-->

<OnKeyShift>

</OnKeyShift>



		</Events>

		

</Module>