HeffeD Posted November 28, 2007 Share Posted November 28, 2007 That's whatever they're doing with Flash. Watch what it does to the RAM your browser is using if you fire up Pandora in the browser. Speaking of the script though, is Pandora not loading through the script for anyone else today? Link to comment Share on other sites More sharing options...
GWmellon Posted November 28, 2007 Share Posted November 28, 2007 (edited) That's whatever they're doing with Flash. Watch what it does to the RAM your browser is using if you fire up Pandora in the browser.Speaking of the script though, is Pandora not loading through the script for anyone else today?Same here. think Pandora got wise? Edited November 28, 2007 by GWmellon Link to comment Share on other sites More sharing options...
Moderators big_daddy Posted November 28, 2007 Moderators Share Posted November 28, 2007 He needs to come up with a way to grab the latest version instead of using a static path. Change... .Movie = 'https://www.pandora.com:443/radio/tuner_8_2_0_0_pandora_mini.swf'oÝ÷ Ù:-+ºÚ"µÍK[ÝYHH ÌÎNÚÎËÝÝÝË[ÜKÛÛN ËÜY[ËÝ[ÎÌÌÌWÜ[ÜWÛZ[KÝÙÌÎN Link to comment Share on other sites More sharing options...
frostfel Posted November 28, 2007 Share Posted November 28, 2007 He needs to come up with a way to grab the latest version instead of using a static path. Change... .Movie = 'https://www.pandora.com:443/radio/tuner_8_2_0_0_pandora_mini.swf'oÝ÷ Ù:-+ºÚ"µÍK[ÝYHH ÌÎNÚÎËÝÝÝË[ÜKÛÛN ËÜY[ËÝ[ÎÌÌÌWÜ[ÜWÛZ[KÝÙÌÎN Here a script I made that gets the new Pandora version but you have to included "#include <IE.au3>" and open a Internet Explorer for a few seconds this will slow things down a bit but if u want if heres how to use it After theses lines: TraySetToolTip("Pandora Radio") TraySetState(2) ADD #include <IE.au3> $IETask = _IECreate("http://pandora.com/", 0, 0) $IESource = _IEDocReadHTML($IETask) _IEQuit($IETask) $IEString = StringInStr($IESource, '"https://www.pandora.com:443/') $IETrim = $IEString $IEString2 = StringTrimLeft($IESource, $IETrim) $IEString3 = $IEString2 $IEString4 = StringInStr($IEString2, '"') $IEString4 -= 1 $IEString5 = StringTrimLeft($IEString3, $IEString4) $IEString6 = StringLen($IEString5) $IEString7 = StringTrimRight($IEString2, $IEString6) $IEString8 = StringTrimRight($IEString7, 4) $Pandora_Link = $IEString8&"_mini.swf" Then change this line .Movie = 'https://www.pandora.com:443/radio/tuner_8_2_0_0_pandora_mini.swf' CHANGE TOO .Movie = $Pandora_Link Link to comment Share on other sites More sharing options...
HeffeD Posted November 28, 2007 Share Posted November 28, 2007 I'd prefer not to open IE at all, so I used big_daddy's fix. Thanks! Link to comment Share on other sites More sharing options...
GWmellon Posted November 28, 2007 Share Posted November 28, 2007 Thanks big_daddy. Actually, just knowing where to look next time is enough for me. Link to comment Share on other sites More sharing options...
Moderators big_daddy Posted November 29, 2007 Moderators Share Posted November 29, 2007 This should be a little faster. Add this to the top of the script... #include <INet.au3> $sURL = "http://www.pandora.com" $sHTML = _INetGetSource($sURL) $aMatches = StringRegExp($sHTML, '(?:<PARAM NAME=movie VALUE=")(.*)(?:">)', 1) If @error Then MsgBox(48, "Error", "Unable to retrieve pandora link.") Exit EndIf $sLink = $aMatches[0] Change this... .Movie = 'https://www.pandora.com:443/radio/tuner_8_2_0_1_pandora_mini.swf' To this... .Movie = $sLink Link to comment Share on other sites More sharing options...
HeffeD Posted November 29, 2007 Share Posted November 29, 2007 I tried that method big_daddy, and while it works, the formatting is a bit messed up. After the player loads, the bottom part of the control panel is cut off. Link to comment Share on other sites More sharing options...
Danp2 Posted November 30, 2007 Share Posted November 30, 2007 I tried that method big_daddy, and while it works, the formatting is a bit messed up. After the player loads, the bottom part of the control panel is cut off.Change: $sLink = $aMatches[0] to this: $sLink = StringReplace($aMatches[0], 'pandora.swf', 'pandora_mini.swf') HTH, Dan Latest Webdriver UDF Release Webdriver Wiki FAQs Link to comment Share on other sites More sharing options...
HeffeD Posted November 30, 2007 Share Posted November 30, 2007 Ah, that works very well! Thanks big_daddy and DanP2. Link to comment Share on other sites More sharing options...
jwilson Posted December 21, 2007 Share Posted December 21, 2007 Okay, I'm not normally one much for posting anything I do, I'm not very organized when it comes to what I write. I work all day, in an office and listen to Pandora.. I wanted to be able to pause the music when a call came in, and CyberZeroCool's script here did that. Then I found it would lose focus on the window I was working in... I fixed that. I then found that it broke when Pandora changed the version of their flash player. I used big daddy's hot little fix to work around that. I changed the hotkeys to be a bit easier for my setup as well, they're all listed on the tool-tray right click menu. I only added a couple of other functions to the script otherwise. I designed two other modes of playback, accessible from the tray icon. One shows only the currently playing song and album art, and then a mini-version of that showing only the song name. Both have a click to drag sidebar that I used from Valuater's very useful wrapper thread that was made by Ms Creator. I know its not especially pretty, but I find it especially useful, and maybe someone else will as well. If I missed giving credit to anyone here, or you find this program useful, or you want to change or add something let me know. Jay expandcollapse popup#include <GUIConstants.au3> #Include <Constants.au3> #NoTrayIcon #include <INet.au3> $sURL = "http://www.pandora.com" $sHTML = _INetGetSource($sURL) $aMatches = StringRegExp($sHTML, '(?:<PARAM NAME=movie VALUE=")(.*)(?:">)', 1) If @error Then MsgBox(48, "Error", "Unable to retrieve pandora link.") Exit EndIf $sLink = $aMatches[0] ;Global $WM_SYSCOMMAND = 0x0112 Global $size=0 Global $move=0 ;Global $HTCAPTION = 2 ;Global $WM_NCLBUTTONDOWN = 0xA1 Opt("TrayMenuMode",1) Opt("TrayOnEventMode",1) Opt("GUIEventOptions",1) Opt("GUIOnEventMode", 1) $Form1 = GUICreate("Pandora SnappyPlayer by JW", 640, 320,"","","", $WS_EX_TOOLWINDOW) $pandora = ObjCreate ("ShockwaveFlash.ShockwaveFlash.1") $pandorawin = GUICtrlCreateObj($pandora, 0, 0, 640, 320) With $pandora .bgcolor = "#FFFFFF" .Movie = $sLink .ScaleMode = 2 .Loop = True .wmode = "Window" .allowScriptAccess = "Never";NO POPUPS .FlashVars = "_tunervar_shost=www.pandora.com&_tunervar_skin=pandora&_tunervar_zone=prod&_tunervar_width=640&_tunervar_amazonurl=http%3A%2F%2Fwww.amazon.com%2Fexec%2Fobidos%2Fredirect%3Ftag%3Dsavagebeast-20&_tunervar_height=522&_tunervar_host=www.pandora.com&_tunervar_ar=0&_tunervar_port=80&_tunervar_sport=443&_tunervar_itunesurl=http%3A%2F%2Fclick.linksynergy.com%2Ffs-bin%2Fstat%3Fid%3DFLenzF8lvbI%26offerid%3D78941%26type%3D3%26subid%3D0%26tmpid%3D1826" EndWith GUISetState(@SW_SHOW) GUISetBkColor (0x003355) GUISetOnEvent($GUI_EVENT_CLOSE, "quit") GUISetOnEvent($GUI_EVENT_MINIMIZE, "min") GUISetOnEvent ($GUI_EVENT_PRIMARYDOWN, "_winmove" ) TraySetOnEvent($TRAY_EVENT_PRIMARYDOWN,"trayminmax") TraySetIcon("Shell32.dll", 41) TraySetClick ( 8 ) $pauseitem = TrayCreateItem("Ctrl+F5 - Play/Pause") TrayItemSetOnEvent(-1, "icplay") $nextitem = TrayCreateItem("Ctrl+F6 - Next Song") TrayItemSetOnEvent(-1, "nextsong") $likeitem = TrayCreateItem("Ctrl+F7 - I like this one!") TrayItemSetOnEvent(-1, "like") $hateitem = TrayCreateItem("Ctrl+F8 - I hate this one!") TrayItemSetOnEvent(-1, "hate") $settingsitem = TrayCreateItem("Goto Pandora.com") TrayItemSetOnEvent(-1, "openpandora") $ghostride = TrayCreateItem("Ghost Ride It!") TrayItemSetOnEvent( -1, "ghostplayer" ) $moveghost = TrayCreateItem("GhostPlayer Mini-Mode") TrayItemSetOnEvent( -1, "ghostslide") TrayItemSetState($moveghost, $TRAY_DISABLE) $exititem = TrayCreateItem("Exit Program") TrayItemSetOnEvent(-1, "quit") TraySetState() HotKeySet( "{MEDIA_NEXT}", "nextsong" ) HotKeySet("^{F5}", "play" ) HotKeySet("^{F6}", "nextsong" ) HotKeySet("^{F7}", "like" ) HotKeySet("^{F8}", "hate" ) AdlibEnable( "active", 500 ) While 1 Sleep(10) WEnd Func like() AutoItSetOption("WinTitleMatchMode", 4) $hidb = WinGetHandle("[ACTIVE]") WinActivate($Form1) ControlSend($Form1, "", "MacromediaFlashPlayerActiveX1", "=") sleep(50) WinActivate($hidb) AutoItSetOption("WinTitleMatchMode", 1) EndFunc Func hate() AutoItSetOption("WinTitleMatchMode", 4) $hidb = WinGetHandle("[ACTIVE]") WinActivate($Form1) ControlSend($Form1, "", "MacromediaFlashPlayerActiveX1", "-") sleep(50) WinActivate($hidb) AutoItSetOption("WinTitleMatchMode", 1) EndFunc Func nextsong() AutoItSetOption("WinTitleMatchMode", 4) $hidb = WinGetHandle("[ACTIVE]") ControlSend($Form1, "", "MacromediaFlashPlayerActiveX1", "{right}") sleep(50) WinActivate($hidb) AutoItSetOption("WinTitleMatchMode", 1) Sleep(300) EndFunc Func play() AutoItSetOption("WinTitleMatchMode", 4) $hidb = WinGetHandle("[ACTIVE]") ControlSend($Form1, "", "MacromediaFlashPlayerActiveX1", "{space}") sleep(50) WinActivate($hidb) AutoItSetOption("WinTitleMatchMode", 1) Sleep(300) EndFunc Func openpandora() Run(@ComSpec & " /c " & 'start http://www.pandora.com/', "", @SW_HIDE) EndFunc Func quit() Exit EndFunc Func min() WinSetState( $Form1, "", @SW_HIDE ) AdlibDisable() EndFunc Func trayminmax() If WinGetState( $Form1 ) = 5 Then WinSetState( $Form1, "", @SW_SHOW ) WinActivate( $Form1 ) AdlibEnable( "active", 500 ) Else WinSetState( $Form1, "", @SW_HIDE ) AdlibDisable() EndIf Return EndFunc Func active() ControlFocus($Form1, "", "MacromediaFlashPlayerActiveX1") EndFunc Func _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3) Dim $pos, $ret, $ret2 $pos = WinGetPos($h_win) $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3) If $ret[0] Then $ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1) If $ret2[0] Then Return 1 Else Return 0 EndIf Else Return 0 EndIf EndFunc;==>_GuiRoundCorners Func icplay() sleep(50) AutoItSetOption("WinTitleMatchMode", 4) WinActivate($Form1) ControlSend($Form1, "", "MacromediaFlashPlayerActiveX1", "{space}") sleep(50) WinActivate($Form1) AutoItSetOption("WinTitleMatchMode", 1) Sleep(300) EndFunc func ghostplayer() $winpos = WinGetPos($Form1, "") if($size=0)Then winmove($Form1, "", $winpos[0], $winpos[1], 150, 160) sleep(10) $size=1 GUICtrlSetPos($pandorawin, -450, -105, 600, 320) WinSetOnTop($Form1, "", 1) GUISetStyle($WS_POPUP) WinSetTrans($Form1, "", 175) TrayItemSetState($ghostride, $TRAY_CHECKED) TrayItemSetState($moveghost, $TRAY_ENABLE) _GuiRoundCorners($Form1, 0, 0, 20, 20) Return EndIf if($size=1)Then winmove($Form1, "", $winpos[0], $winpos[1], 640, 320) sleep(10) $size=0 GUICtrlSetPos($pandorawin, 0, 0, 640, 320) WinSetTrans($Form1, "", 255) WinSetOnTop($Form1, "", 0) GUISetStyle($GUI_SS_DEFAULT_GUI) TrayItemSetState($ghostride, $TRAY_UNCHECKED) TrayItemSetState($moveghost, $TRAY_DISABLE) TrayItemSetState($moveghost, $TRAY_UNCHECKED) $move=0 Return EndIf EndFunc func ghostslide() $winpos = WinGetPos($Form1, "") if($move=0)Then $move=1 winmove($Form1, "", $winpos[0], $winpos[1], 150, 60) sleep(10) GUICtrlSetPos($pandorawin, -470, -125, 600, 320) TrayItemSetState($moveghost, $TRAY_CHECKED) _GuiRoundCorners($Form1, 0, 0, 20, 20) Return EndIf if($move=1)Then $move=0 winmove($Form1, "", $winpos[0], $winpos[1], 150, 160) sleep(10) GUICtrlSetPos($pandorawin, -470, -125, 600, 320) TrayItemSetState($moveghost, $TRAY_UNCHECKED) _GuiRoundCorners($Form1, 0, 0, 20, 20) Return EndIf EndFunc Func _WinMove() ;dllcall("user32.dll","int","ReleaseCapture") dllcall("user32.dll","int","SendMessage","hWnd", $Form1,"int",$WM_NCLBUTTONDOWN,"int", $HTCAPTION,"int", 0) EndFunc Link to comment Share on other sites More sharing options...
jwilson Posted December 21, 2007 Share Posted December 21, 2007 Just a FYI you need to compile it, in order for the dragging function to work. Okay, I'm not normally one much for posting anything I do, I'm not very organized when it comes to what I write. I work all day, in an office and listen to Pandora.. I wanted to be able to pause the music when a call came in, and CyberZeroCool's script here did that. Then I found it would lose focus on the window I was working in... I fixed that. I then found that it broke when Pandora changed the version of their flash player. I used big daddy's hot little fix to work around that. I changed the hotkeys to be a bit easier for my setup as well, they're all listed on the tool-tray right click menu. I only added a couple of other functions to the script otherwise. I designed two other modes of playback, accessible from the tray icon. One shows only the currently playing song and album art, and then a mini-version of that showing only the song name. Both have a click to drag sidebar that I used from Valuater's very useful wrapper thread that was made by Ms Creator. I know its not especially pretty, but I find it especially useful, and maybe someone else will as well. If I missed giving credit to anyone here, or you find this program useful, or you want to change or add something let me know. Jay expandcollapse popup#include <GUIConstants.au3> #Include <Constants.au3> #NoTrayIcon #include <INet.au3> $sURL = "http://www.pandora.com" $sHTML = _INetGetSource($sURL) $aMatches = StringRegExp($sHTML, '(?:<PARAM NAME=movie VALUE=")(.*)(?:">)', 1) If @error Then MsgBox(48, "Error", "Unable to retrieve pandora link.") Exit EndIf $sLink = $aMatches[0] ;Global $WM_SYSCOMMAND = 0x0112 Global $size=0 Global $move=0 ;Global $HTCAPTION = 2 ;Global $WM_NCLBUTTONDOWN = 0xA1 Opt("TrayMenuMode",1) Opt("TrayOnEventMode",1) Opt("GUIEventOptions",1) Opt("GUIOnEventMode", 1) $Form1 = GUICreate("Pandora SnappyPlayer by JW", 640, 320,"","","", $WS_EX_TOOLWINDOW) $pandora = ObjCreate ("ShockwaveFlash.ShockwaveFlash.1") $pandorawin = GUICtrlCreateObj($pandora, 0, 0, 640, 320) With $pandora .bgcolor = "#FFFFFF" .Movie = $sLink .ScaleMode = 2 .Loop = True .wmode = "Window" .allowScriptAccess = "Never";NO POPUPS .FlashVars = "_tunervar_shost=www.pandora.com&_tunervar_skin=pandora&_tunervar_zone=prod&_tunervar_width=640&_tunervar_amazonurl=http%3A%2F%2Fwww.amazon.com%2Fexec%2Fobidos%2Fredirect%3Ftag%3Dsavagebeast-20&_tunervar_height=522&_tunervar_host=www.pandora.com&_tunervar_ar=0&_tunervar_port=80&_tunervar_sport=443&_tunervar_itunesurl=http%3A%2F%2Fclick.linksynergy.com%2Ffs-bin%2Fstat%3Fid%3DFLenzF8lvbI%26offerid%3D78941%26type%3D3%26subid%3D0%26tmpid%3D1826" EndWith GUISetState(@SW_SHOW) GUISetBkColor (0x003355) GUISetOnEvent($GUI_EVENT_CLOSE, "quit") GUISetOnEvent($GUI_EVENT_MINIMIZE, "min") GUISetOnEvent ($GUI_EVENT_PRIMARYDOWN, "_winmove" ) TraySetOnEvent($TRAY_EVENT_PRIMARYDOWN,"trayminmax") TraySetIcon("Shell32.dll", 41) TraySetClick ( 8 ) $pauseitem = TrayCreateItem("Ctrl+F5 - Play/Pause") TrayItemSetOnEvent(-1, "icplay") $nextitem = TrayCreateItem("Ctrl+F6 - Next Song") TrayItemSetOnEvent(-1, "nextsong") $likeitem = TrayCreateItem("Ctrl+F7 - I like this one!") TrayItemSetOnEvent(-1, "like") $hateitem = TrayCreateItem("Ctrl+F8 - I hate this one!") TrayItemSetOnEvent(-1, "hate") $settingsitem = TrayCreateItem("Goto Pandora.com") TrayItemSetOnEvent(-1, "openpandora") $ghostride = TrayCreateItem("Ghost Ride It!") TrayItemSetOnEvent( -1, "ghostplayer" ) $moveghost = TrayCreateItem("GhostPlayer Mini-Mode") TrayItemSetOnEvent( -1, "ghostslide") TrayItemSetState($moveghost, $TRAY_DISABLE) $exititem = TrayCreateItem("Exit Program") TrayItemSetOnEvent(-1, "quit") TraySetState() HotKeySet( "{MEDIA_NEXT}", "nextsong" ) HotKeySet("^{F5}", "play" ) HotKeySet("^{F6}", "nextsong" ) HotKeySet("^{F7}", "like" ) HotKeySet("^{F8}", "hate" ) AdlibEnable( "active", 500 ) While 1 Sleep(10) WEnd Func like() AutoItSetOption("WinTitleMatchMode", 4) $hidb = WinGetHandle("[ACTIVE]") WinActivate($Form1) ControlSend($Form1, "", "MacromediaFlashPlayerActiveX1", "=") sleep(50) WinActivate($hidb) AutoItSetOption("WinTitleMatchMode", 1) EndFunc Func hate() AutoItSetOption("WinTitleMatchMode", 4) $hidb = WinGetHandle("[ACTIVE]") WinActivate($Form1) ControlSend($Form1, "", "MacromediaFlashPlayerActiveX1", "-") sleep(50) WinActivate($hidb) AutoItSetOption("WinTitleMatchMode", 1) EndFunc Func nextsong() AutoItSetOption("WinTitleMatchMode", 4) $hidb = WinGetHandle("[ACTIVE]") ControlSend($Form1, "", "MacromediaFlashPlayerActiveX1", "{right}") sleep(50) WinActivate($hidb) AutoItSetOption("WinTitleMatchMode", 1) Sleep(300) EndFunc Func play() AutoItSetOption("WinTitleMatchMode", 4) $hidb = WinGetHandle("[ACTIVE]") ControlSend($Form1, "", "MacromediaFlashPlayerActiveX1", "{space}") sleep(50) WinActivate($hidb) AutoItSetOption("WinTitleMatchMode", 1) Sleep(300) EndFunc Func openpandora() Run(@ComSpec & " /c " & 'start http://www.pandora.com/', "", @SW_HIDE) EndFunc Func quit() Exit EndFunc Func min() WinSetState( $Form1, "", @SW_HIDE ) AdlibDisable() EndFunc Func trayminmax() If WinGetState( $Form1 ) = 5 Then WinSetState( $Form1, "", @SW_SHOW ) WinActivate( $Form1 ) AdlibEnable( "active", 500 ) Else WinSetState( $Form1, "", @SW_HIDE ) AdlibDisable() EndIf Return EndFunc Func active() ControlFocus($Form1, "", "MacromediaFlashPlayerActiveX1") EndFunc Func _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3) Dim $pos, $ret, $ret2 $pos = WinGetPos($h_win) $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3) If $ret[0] Then $ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1) If $ret2[0] Then Return 1 Else Return 0 EndIf Else Return 0 EndIf EndFunc;==>_GuiRoundCorners Func icplay() sleep(50) AutoItSetOption("WinTitleMatchMode", 4) WinActivate($Form1) ControlSend($Form1, "", "MacromediaFlashPlayerActiveX1", "{space}") sleep(50) WinActivate($Form1) AutoItSetOption("WinTitleMatchMode", 1) Sleep(300) EndFunc func ghostplayer() $winpos = WinGetPos($Form1, "") if($size=0)Then winmove($Form1, "", $winpos[0], $winpos[1], 150, 160) sleep(10) $size=1 GUICtrlSetPos($pandorawin, -450, -105, 600, 320) WinSetOnTop($Form1, "", 1) GUISetStyle($WS_POPUP) WinSetTrans($Form1, "", 175) TrayItemSetState($ghostride, $TRAY_CHECKED) TrayItemSetState($moveghost, $TRAY_ENABLE) _GuiRoundCorners($Form1, 0, 0, 20, 20) Return EndIf if($size=1)Then winmove($Form1, "", $winpos[0], $winpos[1], 640, 320) sleep(10) $size=0 GUICtrlSetPos($pandorawin, 0, 0, 640, 320) WinSetTrans($Form1, "", 255) WinSetOnTop($Form1, "", 0) GUISetStyle($GUI_SS_DEFAULT_GUI) TrayItemSetState($ghostride, $TRAY_UNCHECKED) TrayItemSetState($moveghost, $TRAY_DISABLE) TrayItemSetState($moveghost, $TRAY_UNCHECKED) $move=0 Return EndIf EndFunc func ghostslide() $winpos = WinGetPos($Form1, "") if($move=0)Then $move=1 winmove($Form1, "", $winpos[0], $winpos[1], 150, 60) sleep(10) GUICtrlSetPos($pandorawin, -470, -125, 600, 320) TrayItemSetState($moveghost, $TRAY_CHECKED) _GuiRoundCorners($Form1, 0, 0, 20, 20) Return EndIf if($move=1)Then $move=0 winmove($Form1, "", $winpos[0], $winpos[1], 150, 160) sleep(10) GUICtrlSetPos($pandorawin, -470, -125, 600, 320) TrayItemSetState($moveghost, $TRAY_UNCHECKED) _GuiRoundCorners($Form1, 0, 0, 20, 20) Return EndIf EndFunc Func _WinMove() ;dllcall("user32.dll","int","ReleaseCapture") dllcall("user32.dll","int","SendMessage","hWnd", $Form1,"int",$WM_NCLBUTTONDOWN,"int", $HTCAPTION,"int", 0) EndFunc Link to comment Share on other sites More sharing options...
HeffeD Posted December 22, 2007 Share Posted December 22, 2007 I like your additions, but I like the ease of of adding music to the station right from the player, and the Big_Daddy fix you use chops off the bottom of the player interface. I use the tweak to Big_Daddy's method that DanP2 suggests. Change: $sLink = $aMatches[0] to this: $sLink = StringReplace($aMatches[0], 'pandora.swf', 'pandora_mini.swf') HTH, Dan This gives you the "Guide Us..." menu bar. Link to comment Share on other sites More sharing options...
jwilson Posted December 22, 2007 Share Posted December 22, 2007 I've never added music like that, I always add music from the drop down menu on the "Your Stations" list. Interesting option for not playing a song for a month... Link to comment Share on other sites More sharing options...
HeffeD Posted December 22, 2007 Share Posted December 22, 2007 Interesting option for not playing a song for a month...Yeah, I actually use that option quite a bit. Sometimes it goes a bit crazy and decides you want to hear your thumbed up songs twice every hour. Ummm... I like the song, but let's not get carried away... Link to comment Share on other sites More sharing options...
itanic Posted October 5, 2009 Share Posted October 5, 2009 I copied jwilson's script above, but get the error message C:\Program Files\AutoIt3\Examples\Pandora.au3 (37) : ==> Variable used without being declared.: $Form1 = GUICreate("Pandora SnappyPlayer by JW", 640, 320,"","","", $WS_EX_TOOLWINDOW) $Form1 = GUICreate("Pandora SnappyPlayer by JW", 640, 320,"","","", ^ ERROR This thread is somewhat dated. Does the script still work? Link to comment Share on other sites More sharing options...
Sticky Posted October 6, 2009 Share Posted October 6, 2009 I copied jwilson's script above, but get the error message C:\Program Files\AutoIt3\Examples\Pandora.au3 (37) : ==> Variable used without being declared.: $Form1 = GUICreate("Pandora SnappyPlayer by JW", 640, 320,"","","", $WS_EX_TOOLWINDOW) $Form1 = GUICreate("Pandora SnappyPlayer by JW", 640, 320,"","","", ^ ERROR This thread is somewhat dated. Does the script still work? I'm guessing $WS_EX_TOOLWINDOW used to be included in Constants.au3 but has since moved to WindowsConstants.au3 Just add this to the very top: #include <WindowsConstants.au3> Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now