[frostfel]

This is real simple script creates GUI with a embedded internet explorer show pandora.com. I made the embedded ie 1024x1024 then positioned it so that it only showed the radio

Update 2.0: Added minimize to tray and exit from tray
Update 2.1: Changed the way the GUI gets msg

[ code='text' ]    ( ExpandCollapse - Popup )

#Region;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=pandora.ico
#AutoIt3Wrapper_outfile=Pandora.exe
#AutoIt3Wrapper_Res_Description=Mini Pandora Radio
#AutoIt3Wrapper_Res_Fileversion=2.0.0.0
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Icon_Add=..\favicon.ico
; Mini Pandora Radio
; Created By: Frostfel
#include <GUIConstants.au3>
#Include <Constants.au3>
#include <IE.au3>
Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)
Opt("GUIOnEventMode", 1)
Opt("WinTitleMatchMode", 3)

TraySetToolTip("Pandora Radio")
TraySetState(2)
$PanTask = _IECreateEmbedded()
$Pandora = GUICreate("Pandora Radio", 608, 242)
$PanGUI = GUICtrlCreateObj($PanTask, -62, -136, 1024, 1024)

GUISetState(@SW_SHOW, $Pandora)
_IENavigate ($PanTask, "http://www.pandora.com", 0)
$TrayMenu_Exit = TrayCreateItem("Exit")
TraySetClick(8)

Func Tray_Exit()
    Exit
EndFunc
Func Tray_Restore()
    GUISetState(@SW_SHOW, $Pandora)
    TraySetState(2)
    GUISetState(@SW_RESTORE, $Pandora)
EndFunc

Func GUI_Exit()
    Exit
EndFunc

Func GUI_Hide()
    GUISetState(@SW_HIDE, $Pandora)
    TraySetState(1)
EndFunc

TrayItemSetOnEvent($TrayMenu_Exit, "Tray_Exit")
TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "Tray_Restore")
GUISetOnEvent($GUI_EVENT_CLOSE, "GUI_Exit")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "GUI_Hide")

While 1
    Sleep(1000000)
WEnd

This post has been edited by frostfel: 09 October 2007 - 09:04 PM

[gseller]

I like it, everything just stays in the gui. LOL Cool! :dance:

[frostfel]

gesller, on Sep 21 2007, 10:52 PM, said:

I like it, everything just stays in the gui. LOL Cool! :dance:

thxs

[JamesBrooks]

Cool!!!!

Offtopic
Just thought I mention 1542 hours on Wow? OMFG!!!!! Thats crazy what level are you? I dont play it but thats just ridiculous!

[wangbu]

cool :D

[AlmarM]

You sould see my Entire Gaming History ^^

Gameplay Hours
Game Past 7 Days Total v
Wolfenstein: Enemy Territory < 1 hour 792 hours
MapleStory - 234 hours
2Moons - 102 hours
World of Warcraft 3 hours 63 hours
Call of Duty 2 Multiplayer < 1 hour 28 hours
Enemy Territory - QUAKE Wars Demo 14 hours 21 hours
The Lord of the Rings - The Battle for Middle-Earth - 12 hours
Battlefield 2 Demo - 10 hours
Trickster Revolution - 10 hours
GunZ: The Duel - 8 hours
Soldier of Fortune - 6 hours
Return to Castle Wolfenstein Single Player - 6 hours
Call of Duty 2 Single Player - 5 hours
ijji GunZ - 4 hours
Warcraft III - The Frozen Throne - 3 hours
Warcraft III - 2 hours
Brothers in Arms - 2 hours
PokerStars.com - 1 hour
Call of Duty 2 Single Player Demo - 1 hour
CABAL Online (Europe) - < 1 hour
Rollercoaster Tycoon - < 1 hour
Return to Castle Wolfenstein Multiplayer - < 1 hour
Pinball - < 1 hour
Solitaire - < 1 hour
C&C Generals - Zero Hour - < 1 hour

My Xfire Profile :P

[frostfel]

Thxs for replys everyone
I have 70 Hunter

[Achilles]

Quote

Dear Pandora Visitor,

We are deeply, deeply sorry to say that due to licensing constraints, we can no longer allow access to Pandora for most listeners located outside of the U.S. We will continue to work diligently to realize the vision of a truly global Pandora, but for the time being we are required to restrict its use. We are very sad to have to do this, but there is no other alternative.

<_< Oh well...

[Jon]

JamesB, on Sep 22 2007, 10:31 AM, said:

Cool!!!!

Offtopic
Just thought I mention 1542 hours on Wow? OMFG!!!!! Thats crazy what level are you? I dont play it but thats just ridiculous!

2640 :whistle:

[Nahuel]

Dear Pandora Visitor,

We are deeply, deeply sorry to say that due to licensing constraints, we can no longer allow access to Pandora for most listeners located outside of the U.S. We will continue to work diligently to realize the vision of a truly global Pandora, but for the time being we are required to restrict its use. We are very sad to have to do this, but there is no other alternative.
same here :(

[BrettF]

Jon, on Sep 23 2007, 04:30 AM, said:

2640 :whistle:

Never played it :P

[RazerM]

Nice script.

[frostfel]

Update 2.0: Added minimize to tray and exit from tray

[Skizmata]

Thanks Frostfel! Good work, I actually use this constantly at work. IE and Firefox are seen as signs of non-productive activity by my peers however the Pandora icon (I swiped pandora,s icon and compiled your script) is not.

The only problem I have is sometimes it wont redraw the frame when it gains focus and you have to drag your mouse around making it refresh areas. Anyone have any ideas for fixing this? If I knew of a IE function to tell it to redraw it would be easy enough but I'm new to this and haven't done anything with IE manipulation.

Again, Thanks and good work!

[Rasmus]

worked for me, just could'nt sign in, but i dont guess thats a probem your app makes ;D thx usefull, and unpointless :D