Jump to content

Pandora/Autoit Mashup 2.1

ConsultingJoe

By ConsultingJoe,
in AutoIt Example Scripts

 Share

Recommended Posts

GWmellon Wayfarer

GWmellon

Posted
Posted (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 by GWmellon
Link to comment
Share on other sites
  • Moderators
big_daddy Universalist

big_daddy

Posted
  • Moderators
Posted

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
frostfel Seeker

frostfel

Posted
Posted

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
  • Moderators
big_daddy Universalist

big_daddy

Posted
  • Moderators
Posted

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
  • 3 weeks later...
jwilson Seeker

jwilson

Posted
Posted

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

#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
jwilson Seeker

jwilson

Posted
Posted

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

#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
HeffeD Adventurer

HeffeD

Posted
Posted

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
HeffeD Adventurer

HeffeD

Posted
Posted

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
  • 1 year later...
itanic Seeker

itanic

Posted
Posted

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
Sticky Wayfarer

Sticky

Posted
Posted

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

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...