Coding ObjGet() on Win Media Player Issue

[WoodGrain 2]

Hi All,

I've coded the small script below, but it can't seem to get the instance of Windows Media player as it keeps going to @error, I've not used com objects before so any assistance would be appreciate. I already have WMP open and minimised. I retrieved "WMPlayerApp" from the AutoIT info tool, I've included a copy below.

I'm using these sources:
https://msdn.microsoft.com/en-us/library/dd564085.aspx
https://msdn.microsoft.com/en-us/library/dd564018.aspx

$oWMP = ObjGet("", "WMPlayerApp")
If @error Then
   MsgBox(0, "Can't get WMP", "Couldn't connect to the WMP instance")
   Exit
EndIf

$wmpPlayState = $oWMP.playState
MsgBox(0, "Play State", $wmpPlayState)

$wmpSongName = $oWMP.currentMedia.name
MsgBox(0, "Play State", $wmpSongName)

I've also seen references to the below, but I want to get an existing open WMP:

ObjCreate("wmplayer.OCX")

and have looked at the WMP.udf but can't see how it will do either of the functions I've coded above.

Quote

>>>> Window <<<<
Title:    Windows Media Player
Class:    WMPlayerApp
Position:    -7, -7
Size:    1295, 697
Style:    0x17CF0000
ExStyle:    0x00040100
Handle:    0x000000000008060C

>>>> Control <<<<
Class:    
Instance:    
ClassnameNN:    
Name:    
Advanced (Class):    
ID:    
Text:    
Position:    
Size:    
ControlClick Coords:    
Style:    
ExStyle:    
Handle:    

>>>> Mouse <<<<
Position:    713, 2
Cursor ID:    2
Color:    0x8DC8FB

>>>> StatusBar <<<<

>>>> ToolsBar <<<<

>>>> Visible Text <<<<
WMPAppHost
LibraryContainer
View Toolbar
Command Toolbar
Search
PrimaryListView
Library Treeview
List Pane Right Toolbar
List Pane Command Bar
Unsaved list
PlayHistory Back Toolbar
PlayHistory Forward Toolbar
BasketListView

>>>> Hidden Text <<<<
Search Edit Box
Details Pane
Library Navigation Pane
Now Playing list

 

Edited December 18, 2016 by WoodGrain

[WoodGrain 2]

Or if there's a way of doing with the UDF I'm happy to do that too.

[water 2,629]

Add a COM error handler es described in the help file for ObjEvent to get more detailed error information.

[water 2,629]

Use ObjGet to access a running instance and ObjCreate to create a new one. So I suggest:

$oWMP = ObjGet("", "wmplayer.OCX") ; Connect to a running instance
If @error or Not IsObj($oWMP) Then
    $oWMP = ObjCreate("wmplayer.OCX")
    If @error or Not IsObj($oWMP) Then Exit MsgBox(0, "Error", "Could not create object. @error = " & @error & ", @extended = " & @extended)
EndIf

 

[WoodGrain 2]

Thanks, I've only recently started using @error, good to know I can get more info this way. I added @error to my code and it returned -2147352570 and extended is 0 even though WMP is running minimised. I left out the ObjCreate as I just want to get the current details if WMP is running.

I'm running WMP 12 if that makes any difference?

$oWMP = ObjGet("", "wmplayer.OCX")
If @error Then
   MsgBox(0, "Can't get WMP", "Couldn't connect to the WMP instance:" & @CRLF & @error & @CRLF & @extended)
   Exit
EndIf

$wmpPlayState = $oWMP.playState
MsgBox(0, "Play State", $wmpPlayState)

$wmpSongName = $oWMP.currentMedia.name
MsgBox(0, "Play State", $wmpSongName)

Thanks.

[water 2,629]

This return value stands for (0x80020006): Unknown name.

[WoodGrain 2]

Ok, so it brings me back to getting this correct:

ObjGet("", "wmplayer.OCX")

"wmplayer.ocx" I assume is incorrect?
In my original post the info tool said the class was WMPlayerApp?

[trancexx 1,025]

Window class name has nothing to to with this. Where did you get the idea it does??

Anyway, ObjGet() used like this will get you reference to the object registered in the ROT (google if you don't know what that is). If the object is not registered there the function will fail. My guess is that's happening here.

[WoodGrain 2]

Hi Trancexx,

From the help file: ObjGet ( "filename" [, "classname" [, instance]] )
Have I misread it?

Ok, I've googled ROT, and have used a ROT Viewer to retrieve the attached information, but it doesn't mean much to me, not sure how to determine what the objects are?

Thanks.