Jump to content

Mini Pandora Radio 2.0

frostfel

By frostfel,
in AutoIt Example Scripts

 Share

Recommended Posts

frostfel Seeker

frostfel

Posted
Posted (edited)

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

#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
Edited by frostfel
Link to comment
Share on other sites
AlmarM Universalist

AlmarM

Posted
Posted

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 :)

Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Link to comment
Share on other sites
Achilles Universalist

Achilles

Posted
Posted

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...

My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list]
Link to comment
Share on other sites
Nahuel Universalist

Nahuel

Posted
Posted

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 :)

Link to comment
Share on other sites
BrettF Universalist

BrettF

Posted
Posted

2640 :)

Never played it :)
Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version!
Link to comment
Share on other sites
RazerM Universalist

RazerM

Posted
Posted

Nice script.

My Programs:AInstall - Create a standalone installer for your programUnit Converter - Converts Length, Area, Volume, Weight, Temperature and Pressure to different unitsBinary Clock - Hours, minutes and seconds have 10 columns each to display timeAutoIt Editor - Code Editor with Syntax Highlighting.Laserix Editor & Player - Create, Edit and Play Laserix LevelsLyric Syncer - Create and use Synchronised Lyrics.Connect 4 - 2 Player Connect 4 Game (Local or Online!, Formatted Chat!!)MD5, SHA-1, SHA-256, Tiger and Whirlpool Hash Finder - Dictionary and Brute Force FindCool Text Client - Create Rendered ImageMy UDF's:GUI Enhance - Enhance your GUIs visually.IDEA File Encryption - Encrypt and decrypt files easily! File Rename - Rename files easilyRC4 Text Encryption - Encrypt text using the RC4 AlgorithmPrime Number - Check if a number is primeString Remove - remove lots of strings at onceProgress Bar - made easySound UDF - Play, Pause, Resume, Seek and Stop.
Link to comment
Share on other sites
  • 3 weeks later...
Skizmata Prodigy

Skizmata

Posted
Posted

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!

AutoIt changed my life.

Link to comment
Share on other sites
  • 2 months later...

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...