Music Tooltip

[TECH]

I need some help.

Im trying to create a tooltip that will show what music I am listening to. I.e. if Im listening to Boom Boom Pow by B.E.P. I want the music to show in a tootip in the left corner. I already got the top corner part but I need to create a ??variable?? to show what song Im listening to.

Any help will be greatly appreciated.

Thnx

[James]

Wow, you narrowed that down well....

What music player do you use?

James

[TECH]

  On 1/31/2010 at 9:47 PM, 'JamesBrooks said:

Wow, you narrowed that down well....

What music player do you use?

James

wow sarcasm nice

i use WMP V 11

Edited January 31, 2010 by TECH

[James]

Dim $objWMP = ObjCreate("WMPlayer.OCX")
If @error Then
    MsgBox(0, @ScriptName, "Erm... Problem!")
EndIf

Dim $last, $new

$last = _WMP_GetSongName()

While 1
    If $last <> $new Then
        $new = _WMP_GetSongName()
        $last = $new

        TrayTip(@ScriptName, $new & " - " & _WMP_GetSongArtist(), 10)
    EndIf
WEnd

Func _WMP_GetSongName()
    Local $firstMedia = $objWMP.mediaCollection.getAll().item(0)
    $objWMP.currentMedia = $firstMedia
    
    Return $objWMP.CurrentMedia.Name
EndFunc   ;==>_WMP_GetSongName

Func _WMP_GetSongArtist()
    Local $firstMedia = $objWMP.mediaCollection.getAll().item(0)
    $objWMP.currentMedia = $firstMedia
    
    Return $objWMP.CurrentMedia.getItemInfo("artist")
EndFunc

That's a start...

Edited January 31, 2010 by JamesBrooks

[TECH]

  On 1/31/2010 at 10:22 PM, 'JamesBrooks said:

Dim $objWMP = ObjCreate("WMPlayer.OCX")
If @error Then
    MsgBox(0, @ScriptName, "Erm... Problem!")
EndIf

Dim $last, $new

$last = _WMP_GetSongName()

While 1
    If $last <> $new Then
        $new = _WMP_GetSongName()
        $last = $new

        TrayTip(@ScriptName, $new & " - " & _WMP_GetSongArtist(), 10)
    EndIf
WEnd

Func _WMP_GetSongName()
    Local $firstMedia = $objWMP.mediaCollection.getAll().item(0)
    $objWMP.currentMedia = $firstMedia
    
    Return $objWMP.CurrentMedia.Name
EndFunc   ;==>_WMP_GetSongName

Func _WMP_GetSongArtist()
    Local $firstMedia = $objWMP.mediaCollection.getAll().item(0)
    $objWMP.currentMedia = $firstMedia
    
    Return $objWMP.CurrentMedia.getItemInfo("artist")
EndFunc

That's a start...

haha thnx...

now just to figure out how to change the song or get what song from a playlist hmmm....

are their any really good tuts that you know of or have done??