Auto Tunes

[ConsultingJoe]

expandcollapse popup

#include <GUIConstants.au3>
#include <Misc.au3>
$win = WinGetTitle( "" )
$pos = WinGetPos( $win )
$Object = ObjCreate("iTunes.Application")
$Form1 = GUICreate("auto tunes", 45, 15, $pos[2]+$pos[0]-(@DesktopWidth/10), $pos[1]+4, BitOR ($WS_POPUP,$WS_BORDER))
$Button1 = GUICtrlCreateButton("<<", 0, 0, 15, 15, 0)
$Button2 = GUICtrlCreateButton(">", 15, 0, 15, 15, 0)
$Button3 = GUICtrlCreateButton(">>", 30, 0, 15, 15, 0)
GUISetState(@SW_SHOW)
WinActivate( $win )
AdlibEnable( "move" )
While 1
    $nMsg = GUIGetMsg()
    Select
        Case $GUI_EVENT_CLOSE = $nMsg
            Exit
        Case $Button1 = $nMsg Or _IsPressed("B1")
            $Object.PreviousTrack
        Case $Button2 = $nMsg Or _IsPressed("B3")
            $Object.PlayPause
            Sleep(300)
        Case $Button3 = $nMsg Or _IsPressed("B0")
            $Object.NextTrack
    EndSelect
WEnd
Func move()
    WinSetOnTop( HWnd($Form1), "", 1 )
    $win = WinGetTitle( "" )
    If $win = "Program Manager" Or $win = "Start Menu"  Then
        WinMove( HWnd($Form1), "", @DesktopWidth-@DesktopWidth/18, @DesktopHeight-@DesktopHeight/15)
    ElseIf $win = "auto tunes" Or $win = "" Then
        ;do nothing
    Else
        $pos = WinGetPos( $win )
        WinMove( HWnd($Form1), "", $pos[2]+$pos[0]-(@DesktopWidth/10), $pos[1]+4 )
    EndIf
EndFunc

Edited November 25, 2006 by www.CyberZeroCool.com

[nico666]

nice

Works fine with me

[the DtTvB]

Looks good, too bad I don't have iTunes.

[Zephir]

hehe nice idea. i like it. works fine... except when u switch to desktop the gui is sometiomes there and sometimes not.

[GaryFrost]

http://www.autoitscript.com/forum/index.ph...c=32734&hl=

[James]

I like this, its really simple and great.

[ConsultingJoe]

http://www.autoitscript.com/forum/index.ph...c=32734&hl=

@gafrost

That is a cool program but this is supposed to be simpler

@ALL

Thanks guys, I will work on the desktop thing.

Edited November 25, 2006 by www.CyberZeroCool.com

[ConsultingJoe]

Updated code: check first post.

When your on the desktop or start menu it will site by the clock.

When you are on auto tuner or a window with no name it will not do anything.

let me know if there are problems with placement. My screen is 1280X1024

[James]

Thats better, but my screen res is at 1400 x 1050

[ConsultingJoe]

Thats better, but my screen res is at 1400 x 1050

what is the problem with your? it should work on all screens.

UPDATED AGAIN: check first post.

I remove the pause and changed the play to "PlayPause"

AND...

I add the ability to play, pause, next, and previous from your keyboard media keys. I tunes already has this but you have to be in i tunes for it to work. Now it always works.