Getting currently playing WMP

[nake89 0]

I have been trying to get the currently playing song from WMP for hours.

I have searched the forum but nothing has worked for me.

I am using the beta version. Could someone please help.

I would just like to get the song and the artist and then make

autoit type it to notepad or anywhere. Thank you.

$oWMP = ObjCreate("wmplayer.ocx")

$oWMPcontrols = $oWMP.controls

msgbox(0, "omg", $oWMPcontrols.currentItem)

That doesnt work... None of things I have tried works.

And yes I have WMP on.

[Lakes 241]

There is a really easy way to do this now, goto http://www.microsoft.com/windowsxp/downloa.../wm_create.mspx

this has a Blog plug-in that that Displays the track info in the Title Bar which auto can read from.

HTH

[fong1sky 0]

Any method I can get the current play time?

Edited February 9, 2007 by fong1sky

[Kip 5]

From CFire's script:

Func WMStartPlayer()
    If $pObj = 0 Then 
        $pObj = ObjCreate("WMPlayer.ocx")
    Else
        SetError(1)
    EndIf
EndFunc

Func WMOpenFile($sFilename)
    If $pObj <> 0 Then Return $pObj.newMedia($sFilename)
    If $pObj = 0 Then SetError(1)
EndFunc

Func WMPlay($sFilename)
    If $pObj <> 0 Then 
        $pObj.url = $sFilename
        While Not WMGetState() = "Playing"
            Sleep(100)
        WEnd
    EndIf
    If $pObj = 0 Then SetError(1)
EndFunc

Func WMGetPosition()
    If $pObj <> 0 Then Return $pObj.controls.currentPosition
    If $pObj = 0 Then SetError(1)
EndFunc

Func WMGetArtist($sObj)
    Return $sObj.GetItemInfo("Artist")
EndFunc

Func WMGetTitle($sObj)
    Return $sObj.GetItemInfo("Title")
EndFunc

Edited May 3, 2007 by kip