Jump to content

Auto Tunes


ConsultingJoe
 Share

Recommended Posts

#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 by www.CyberZeroCool.com

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Link to comment
Share on other sites

@gafrost

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

@ALL

Thanks guys, I will work on the desktop thing.

Edited by www.CyberZeroCool.com

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Link to comment
Share on other sites

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

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Link to comment
Share on other sites

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.

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

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

  • Recently Browsing   0 members

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