News Forum Phone database

> New Topic
> Reply
< Esato Forum Index > Sony Ericsson / Sony > Software, Firmware and Drivers > Mobile agent - vbscirpt... added Winamp Control. Bookmark topic

Lo flat users,
I have updated my vbscrit 4 execute Winamp:

.....
am.AddItem "winamp", "OnWinamp"
....
...
'Winamp Control ---------------------------------------------------


sub OnWinamp
am.Clear
am.Title = "Winamp"
am.AddItem "Launch", "OnWinampLaunch"
am.AddItem "Play", "OnWinampPaly"
am.AddItem "Pause", "OnWinampPause"
am.AddItem "Stop", "OnWinampStop"
am.AddItem "Next", "OnWinampNext"
am.AddItem "Previous", "OnWinampPrevious"
am.AddItem "Start Plugin", "OnWinampPlugin"
am.AddItem "Esc", "OnWinampPluginStop"
am.AddItem "Close", "OnWinampClose"

am.Update
end sub


sub OnWinampLaunch
shell.Run "C:\Programmi\Winamp\winamp.exe"
am.Selected = 1
am.Update
end sub

sub OnWinampPaly
if shell.AppActivate("Winamp") then shell.SendKeys "x"
am.Update
end sub

sub OnWinampPause
if shell.AppActivate("Winamp") then shell.SendKeys "c"
am.Update
end sub

sub OnWinampStop
if shell.AppActivate("Winamp") then shell.SendKeys "v"
am.Update
end sub

sub OnWinampNext
if shell.AppActivate("Winamp") then shell.SendKeys "b"
am.Update
end sub

sub OnWinampPrevious
if shell.AppActivate("Winamp") then shell.SendKeys "z"
am.Update
end sub

sub OnWinampPlugin
if shell.AppActivate("Winamp") then shell.SendKeys "^+k"
am.Update
end sub

sub OnWinampPluginStop
shell.SendKeys "{esc}"
am.Update
end sub

sub OnWinampClose
if shell.AppActivate("Winamp") then shell.SendKeys "%{F4}"
am.Selected = 8
am.Update
end sub





....
stop.


If u like it, and have any suggestions/questions ... send me an email..


C.U.
fatez
--
Posted: 2002-09-22 04:02:00
Edit : Quote


Somehow this didn't work for me! ;(
--
Posted: 2002-09-22 05:53:00
Edit : Quote


It doesn't work because your Winamp isn't installed in C:ProgrammiWinampwinamp.exe
If your winamp is installed in C:Program FilesWinampWinamp.exe
then...
Try this file:
http://pwp.maxis.net.my/aasc/shawo/winamp.vbscript
If not follow the instructions in the file to change it...

@fatez
1. Is it ok if I add the winamp control into my script and post it in floAt's thread?
2. You forgot your e-mail address?

--
Posted: 2002-09-22 10:40:00
Edit : Quote


lo all,

thi is my email : Stefano@unzpower.org

Yes, the pat of winamp is 4 Italian winx.
Excuse me 4 this inconvenet. ehehe

1. Sure! U can post it !
2. I've a linux server with unzpower.org domain's. So my Email : Stefano@unzpower.org or root@unzpower.org or info@unzpower.org ...

heyaaa CU
and 10x 4 the support!

[ This Message was edited by: fatez on 2002-09-22 18:33 ]
--
Posted: 2002-09-22 19:21:00
Edit : Quote


Hy,
this is the script that I use:
http://www.unzpower.org/fz220902.zip

It support:

Volume Control
Media Player 8
PowerPoint
Misc Control (support for complete shut down from the os)
PowerDVD
winamp


Send me an email if u have any suggestions.. by

Stefano in ---> fatez

CU
--
Posted: 2002-09-22 20:36:00
Edit : Quote


cool! thanks!
--
Posted: 2002-09-23 14:30:00
Edit : Quote

---

New Topic   Reply

Forum Index