| Author |
Mobile agent - vbscirpt... added Winamp Control. |
fatez
Joined: Sep 22, 2002
Posts: 5
From: Italy
PM, WWW
|
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 |
|
|
Merkur
Joined: Dec 05, 2001
Posts: 311
From: Iceland
PM, WWW
|
Somehow this didn't work for me! ;( |
ShawO
Joined: Jun 09, 2002
Posts: 248
From:
PM |
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?
|
fatez
Joined: Sep 22, 2002
Posts: 5
From: Italy
PM, WWW
|
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 ] |
fatez
Joined: Sep 22, 2002
Posts: 5
From: Italy
PM, WWW
|
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 |
ShawO
Joined: Jun 09, 2002
Posts: 248
From:
PM |
cool! thanks!  |
|
|
Posted: 2002-09-22 04:02
