forum.vdsworld.com Forum Index forum.vdsworld.com
Visit VDSWORLD.com
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


WinAmp Control DSU

 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 5 Units
View previous topic :: View next topic  
Author Message
LiquidCode
Moderator Team


Joined: 05 Dec 2000
Posts: 1751
Location: Space and Time

PostPosted: Thu Aug 07, 2003 7:55 pm    Post subject: WinAmp Control DSU Reply with quote

Here is a WinAmp Control DSU file. Not Much, but, you may find it usefull and fun to play with.

Download

_________________
Chris
Http://theblindhouse.com


Last edited by LiquidCode on Fri Aug 08, 2003 2:17 pm; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Skit3000
Admin Team


Joined: 11 May 2002
Posts: 2166
Location: The Netherlands

PostPosted: Fri Aug 08, 2003 9:59 am    Post subject: Reply with quote

This can be handy for people who have for example a wireless mouse and have there PC in the living room. That way you can let your mouse act as a remote controller by catching the mouseclicks on the screen. Smile

Example:
Code:
#Include WinAmpControl.dsu
#Define Command, WAC
WAC StartWA


%%text = %%text@lf()""Left-Left@tab()@tab()Next
%%text = %%text@lf()""Left-Center@tab()Pause
%%text = %%text@lf()""Left-Right@tab()Next
%%text = %%text@lf()@lf()""Center-Left@tab()Volume Up
%%text = %%text@lf()""Center-Center@tab()Play / Stop
%%text = %%text@lf()""Center-Right@tab()Volume Down
%%text = %%text@lf()@lf()""Right-Left@tab()Repeat
%%text = %%text@lf()""Right-Center@tab()Play Audio CD
%%text = %%text@lf()""Right-Right@tab()Shuffle

  DIALOG CREATE,Wireless Winamp Control,-1,0,@sysinfo(SCREENWIDTH),@sysinfo(SCREENHEIGHT),CLICK
  DIALOG ADD,STYLE,STYLE1,,18,,,
  DIALOG ADD,TEXT,TEXT1,200,240,,,%%text,,STYLE1,CLICK
  DIALOG SHOW

:Evloop
wait event
goto @event()

:Text1Click
:Click
%%mousebutton = @click(B)

if @equal(%%mousebutton,LEFT)
  wait event,1
  if @not(@equal(@event(),TIMER))
    %%mousebutton = @click(B)
    if @equal(%%mousebutton,LEFT)
      WAC Next
      beep
      end
    if @equal(%%mousebutton,CENTER)
      WAC Pause
      beep
      end
    if @equal(%%mousebutton,RIGHT)
      WAC Prev
      beep
      end
    end
  end
 
if @equal(%%mousebutton,CENTER)
  wait event,1
  if @not(@equal(@event(),TIMER))
    %%mousebutton = @click(B)
    if @equal(%%mousebutton,LEFT)
      WAC VolUp
      beep
      end
    if @equal(%%mousebutton,CENTER)
      if @equal(%%playing,true)
        WAC Stop
        beep
        %%playing = false
        else
        WAC Play
        beep
        %%Playing = true
        end
      end
    if @equal(%%mousebutton,RIGHT)
      WAC VolDwn
      beep
      end
    end
  end
 
if @equal(%%mousebutton,RIGHT)
  wait event,1
  if @not(@equal(@event(),TIMER))
    %%mousebutton = @click(B)
    if @equal(%%mousebutton,LEFT)
      WAC Repeat
      beep
      end
    if @equal(%%mousebutton,CENTER)
      WAC AudioCD
      beep
      end
    if @equal(%%mousebutton,RIGHT)
      WAC Shuffle
      beep
      end
    end
  end
 
goto Evloop

:Close
exit

_________________
[ Add autocomplete functionality to your VDS IDE windows! ]
Voor Nederlandse beginners met VDS: bekijk ook eens deze tutorial!
Back to top
View user's profile Send private message
LiquidCode
Moderator Team


Joined: 05 Dec 2000
Posts: 1751
Location: Space and Time

PostPosted: Fri Aug 08, 2003 12:05 pm    Post subject: Reply with quote

Nice one Skit. Smile
_________________
Chris
Http://theblindhouse.com
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Skit3000
Admin Team


Joined: 11 May 2002
Posts: 2166
Location: The Netherlands

PostPosted: Fri Aug 08, 2003 12:37 pm    Post subject: Reply with quote

He, you did the hard work... Wink And my code is far from completed. It's only a good example. It can be even better if you use some APIs so that the window will be semi-transparant, etc. Smile
_________________
[ Add autocomplete functionality to your VDS IDE windows! ]
Voor Nederlandse beginners met VDS: bekijk ook eens deze tutorial!
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 5 Units All times are GMT
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You can attach files in this forum
You can download files in this forum

Twitter@vdsworld       RSS

Powered by phpBB © 2001, 2005 phpBB Group