Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Skinz 0.2 Winamp Controller

From: tbrownell::shaw::ca at: 25-Feb-2002 15:56

Here's a totally hacked, but functioning Rebol Winamp Controller (thanks Gregg) More to come... Rebol [Title: "Winamp Controller 0.2"] call "C:\Program Files\Winamp\winamp.exe" ;Path to Winamp. wait 1 ;Give Winamp a chance to load win-user: load/library %user32.dll find-window-by-class: make routine! [ ClassName [string!] WindowName [integer!] return: [integer!] ] win-user "FindWindowA" wahwnd: find-window-by-class "Winamp v1.x" 0 send-message: make routine! [ hWnd [integer!] wMsg [integer!] wParam [integer!] lParam [integer!] return: [integer!] ] win-user "SendMessageA" WM_COMMAND: to-integer #{00000111} winamp-hwnd: find-window-by-class "Winamp v1.x" 0 view layout [ VH1 "Winamp Controller 0.2" across VH2 "Start/Stop/Volume Controls" return Text "Play" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40045 0] Text "Pause/Unpause" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40046 0] Text "Close Winamp" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40001 0] return Text "Stop" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40047 0] Text "Fade Out/Stop" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40147 0] Text "Stop after Current Track" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40157 0] Text "Play Audio CD" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40323 0] return Text "Raise Volume 1%" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40058 0] Text "Lower Volume 1%" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40059 0] return Text "Fast Forward 5 Seconds" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40148 0] Text "Fast Rewind 5 Seconds" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40144 0] Return VH2 "Track/Playlist Controls" return Text "Next Track" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40048 0] Text "Move Back 10 Tracks" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40197 0] Text "Start of Playlist" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40154 0] Text "End of Playlist" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40158 0] return Text "Toggle Repeat" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40022 0] Text "Toggle Shuffle" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40123 0] Text "Adds Current Track as BookMark" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40321 0] return Text "Show the Edit Bookmarks" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40320 0] Text "Toggle Playlist Editor" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40040 0] return VH2 "Visualization Controls" return Text "Execute Current Visual PlugIn" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40192 0] Text "Open Visualizations Options" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40190 0] return Text "Toggle Preferences Screen" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40012 0] Text "Open Visualization Plug-in Options" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40191 0] return Text "Configure Current Vis Plugin" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40221 0] return VH2 "EQ" return Text "Toggle EQ" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40036 0] Text "Load a Preset from EQ" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40253 0] return VH2 "Dialog Boxes and Misc" return Text "Open File Dialog" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40029 0] Text "Open URL Dialog" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40155 0] Text "Open File Info Box" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40188 0]return Text "Set Time Display Mode to Elapsed" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40037 0] Text "Set Time Display Mode to Remaining" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40038 0] return Text "Open Jump to Time Dialog" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40193 0] Text "Open Jump to File Dialog" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40194 0] return Text "Open Skin Selector" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40219 0] Text "Toggle Windowshade" Button 10x15 [send-message winamp-hwnd WM_COMMAND 40064 0] ]