Media Player Controller

[ToXiCSoft]

Well this script is for users that have winxp / win2000 and cant control Window media Player by an pnale on their keyboard,

How to use it :

Start the program

(NotE: All used keys are on NUMPAD)

* = Pause Script

1 = Minimize Splashtext

7 = Volume down

9 = Volume up

4 = Previous track

5 = Play / Pause

6 = Next Track

2 = Stop

Control + x = Exit

expandcollapse popup

$test = RegRead("HKEY_LOCAL_MACHINE\Software\MediaPlayerController","Firsttime")
if @error = -1 then
Splashtexton("Media Player Controller","Hi," & @CRLF & "This is the first time that your using this program, You will get explanation about the COmmands that you can use...(NotE: All the keys are on the NUMPAD)" & @CRLF & "7 = Volume UP, 9 = Volume DOWN" & @CRLF & " 4 = Previous Track, 5 = Play/Pause, 6 = Next track" & @CRLF & "2 = Stop")
Sleep(5000)
SplashOff()
RegWrite("HKEY_LOCAL_MACHINE\Software\MediaPlayerController","Firsttime","REG_SZ",0)
Endif

RegWrite("HKEY_LOCAL_MACHINE\Software\MediaPlayerController","Active","REG_SZ",1)
op()
Func op()
$test = RegRead("HKEY_LOCAL_MACHINE\Software\MediaPlayerController","Active")
While $test = 1
$test = RegRead("HKEY_LOCAL_MACHINE\Software\MediaPlayerController","Active")
Hotkeyset("{NUMPAD7}","m_vd")
Hotkeyset("{NUMPAD9}","m_vu")
Hotkeyset("{NUMPAD4}","m_pr")
Hotkeyset("{NUMPAD6}","m_ne")
HotKeySet("{NUMPAD5}","m_pl")
HotkeySet("{NUMPAD2}","m_st")
Hotkeyset("{NUMPADMULT}","m_sp")
Hotkeyset("{NUMPADSUB}","min")
Hotkeyset("^x","ex")
$test = RegRead("HKEY_LOCAL_MACHINE\Software\MediaPlayerController","Active")
Sleep(500)
Wend
EndFunc
Func min()
SplashOff()
EndfUNC
Func opy()
$test = RegRead("HKEY_LOCAL_MACHINE\Software\MediaPlayerController","Active")
While $test = 0
Hotkeyset("{NUMPADMULT}","m_sp")
Wend
EndFunc
Func m_sp()
Hotkeyset("{NUMPAD7}")
Hotkeyset("{NUMPAD9}")
Hotkeyset("{NUMPAD4}",)
Hotkeyset("{NUMPAD6}")
HotKeySet("{NUMPAD5}")
HotkeySet("{NUMPAD2}")
Hotkeyset("{NUMPADMULT}")
Hotkeyset("^x","ex")
$test = RegRead("HKEY_LOCAL_MACHINE\Software\MediaPlayerController","Active")
if $test = 1 then
RegWrite("HKEY_LOCAL_MACHINE\Software\MediaPlayerController","Active","REG_SZ",0)
$mode = "[-] Controller Off"
SplashtextOn("Media Player Controller","Media Player" & @CRLF & $mode ,100,35,@DesktopWidth - 100,@DesktopHeight - 65,5,"",10)
opy()
else
RegWrite("HKEY_LOCAL_MACHINE\Software\MediaPlayerController","Active","REG_SZ",1)
$mode = "[+] Controller On"
SplashtextOn("Media Player Controller","Media Player" & @CRLF & $mode ,100,35,@DesktopWidth - 100,@DesktopHeight - 65,5,"",10)
op()
Endif
EndFunc
Func ex()
$var = MsgBox(4,"Media Player Controller","Are you sure that you want to Quit this Program?")
if $var = 6 then
exit
endif
EndFunc
Func m_vd()
$mode = "- Volume Down"
SplashtextOn("Media Player Controller","Media Player" & @CRLF & $mode ,100,35,@DesktopWidth - 100,@DesktopHeight - 65,5,"",10)
Send("{VOLUME_DOWN}")
EndFunc
Func m_vu()
$mode = "+ Volume Up"
SplashtextOn("Media Player Controller","Media Player" & @CRLF & $mode ,100,35,@DesktopWidth - 100,@DesktopHeight - 65,5,"",10)
Send("{VOLUME_UP}")
EndFunc
Func m_pr()
$mode = "« Previous Track"
SplashtextOn("Media Player Controller","Media Player" & @CRLF & $mode ,100,35,@DesktopWidth - 100,@DesktopHeight - 65,5,"",10)
Send("{MEDIA_PREV}")
EndFunc
Func m_ne()
$mode = "» Next Track"
SplashtextOn("Media Player Controller","Media Player" & @CRLF & $mode ,100,35,@DesktopWidth - 100,@DesktopHeight - 65,5,"",10)
Send("{MEDIA_NEXT}")
EndFunc
Func M_pl()
$mode = "> Play\Pause"
SplashtextOn("Media Player Controller","Media Player" & @CRLF & $mode ,100,35,@DesktopWidth - 100,@DesktopHeight - 65,5,"",10)
Send("{MEDIA_PLAY_PAUSE}")
EndFunc
Func M_St()
$mode = "[] Stop"
SplashtextOn("Media Player Controller","Media Player" & @CRLF & $mode ,100,35,@DesktopWidth - 100,@DesktopHeight - 65,5,"",10)
Send("{MEDIA_STOP}")
EndFunc

Note i will soon also make an smae script for winamp