Showing WMPlayer mp3 tags in AHK Gui Topic is solved

Get help with using AutoHotkey and its commands and hotkeys
User avatar
Scr1pter
Posts: 1193
Joined: 06 Aug 2017, 08:21
Location: Germany

Showing WMPlayer mp3 tags in AHK Gui

24 Jun 2020, 18:00

Hello,

I found a script, modified it a bit and it works well.
There are 2 problems, though:

1)
If I quit the Windows media player, the mp3 tags are still there.
I would expect that the GUI would be empty (as if I started it without running Windows Media Player)

2)
For unknown reason, when I quit the WMP, the WMP process is still running (in the Windows Task Manager).
If the AHK GUI is not running and I start the quit WMP, there is not such an issue.

What could be the problem and how to solve it?

Code: Select all

;WMPlayer.ahk
#SingleInstance force

Gui, 1: +ToolWindow -border  +HwndGuiHwnd +AlwaysOnTop	
WonTop:=1
Gui, 1:Color, 120F00
Gui, 1: -DPIScale
Gui, 1: Font, S6 w700 cD0D0D0 , Tahoma ;Arial
Gui, 1: Font, S7 w700 cE1E1E1 , Arial  ;Segoe UI ;
Gui, 1: Add, Text, x8 y10 w550 cAqua vtitel   ; Song
Gui, 1: Add, Text, x8 y40 w550 cE1E1E1 vArtist   ; Artist
Gui, 1: Add, Text, x8 y70 w550 cE1E1E1 vAlbum   ; Album
Gui, 1: Show, w550 h160

wmp := new RemoteWMP ; Create new instance

GoSub, medien
GoSub, start_timers
return

start_timers:
Settimer, medien, 2000 ; Refresh all 2 seconds
return

medien: ; Update titel, artist and album title
media := wmp.player.currentMedia
song := media.getItemInfo("Title")
artist := media.getItemInfo("Artist")
album := media.getItemInfo("WM/AlbumTitle")
GuiControl,, titel, %song%
GuiControl,, artist, %artist%
GuiControl,, album, %album%
return

class RemoteWMP
{
  __New()  
  {
    static IID_IOleClientSite := "{00000118-0000-0000-C000-000000000046}", IID_IOleObject := "{00000112-0000-0000-C000-000000000046}"
    Process, Exist, wmplayer.exe
    if !ErrorLevel
    {
      song =
      artist =
      album = 
      ;throw Exception("wmplayer.exe is not running")
    }
    if !this.player := ComObjCreate("WMPlayer.OCX.7")
    {
      throw Exception("Failed to get WMPlayer.OCX.7 object")
    }       
    this.rms := IWMPRemoteMediaServices_CreateInstance()
    this.ocs := ComObjQuery(this.rms, IID_IOleClientSite)
    this.ole := ComObjQuery(this.player, IID_IOleObject)
    DllCall(NumGet(NumGet(this.ole+0)+3*A_PtrSize), "Ptr", this.ole, "Ptr", this.ocs)
  }   
  __Delete()  
  {
    if !this.player
    {
      return
    }
    DllCall(NumGet(NumGet(this.ole + 0) + 3 * A_PtrSize), "Ptr", this.ole, "Ptr", 0)
    for k, obj in [this.ole, this.ocs, this.rms]
    {
      ObjRelease(obj)
    }       
    this.player := ""
  }  
  Jump(sec)  
  {
    this.player.Controls.currentPosition += sec
  }   
  TogglePause()  
  {
    if (this.player.playState = 3)  ; Playing = 3
    {
      this.player.Controls.pause()
    }       
    else
    {
      this.player.Controls.play()
    }       
  } 
  SetRate(value := 1.0)  
  {
    VarSetCapacity(rate, 8, 0)
    NumPut(value, rate, "Double")
    this.player.settings.rate := ComObject(0x4005, &rate)
  }
}
IWMPRemoteMediaServices_CreateInstance()
{
  static vtblUnk, vtblRms, vtblIsp, vtblOls, vtblPtrs := 0, size := (A_PtrSize + 4) * 4 + 4
  if !VarSetCapacity(vtblUnk)  
  {
    extfuncs := ["QueryInterface", "AddRef", "Release"]
    VarSetCapacity(vtblUnk, extfuncs.Length() * A_PtrSize)

    for i, name in extfuncs
    {
      NumPut(RegisterCallback("IUnknown_" . name), vtblUnk, (i - 1) * A_PtrSize)
    }         
  }
  if !VarSetCapacity(vtblRms) 
  {
    extfuncs := ["GetServiceType", "GetScriptableObject", "GetCustomUIMode"]

    VarSetCapacity(vtblRms, (3 + extfuncs.Length()) * A_PtrSize)
    DllCall("ntdll\RtlMoveMemory", "Ptr", &vtblRms, "Ptr", &vtblUnk, "Ptr", A_PtrSize * 3)

    for i, name in extfuncs
    {
      NumPut(RegisterCallback("IWMPRemoteMediaServices_" . name, "Fast"), vtblRms, (2 + i) * A_PtrSize)
    }         
  }
  if !VarSetCapacity(vtblIsp) 
  {
    VarSetCapacity(vtblIsp, 4 * A_PtrSize)
    DllCall("ntdll\RtlMoveMemory", "Ptr", &vtblIsp, "Ptr", &vtblUnk, "Ptr", A_PtrSize * 3)
    NumPut(RegisterCallback("IServiceProvider_QueryService", "Fast"), vtblIsp, A_PtrSize * 3)
  }
  if !VarSetCapacity(vtblOls) 
  {
    extfuncs := ["SaveObject", "GetMoniker", "GetContainer", "ShowObject", "OnShowWindow", "RequestNewObjectLayout"]
    VarSetCapacity(vtblOls, (3 + extfuncs.Length()) * A_PtrSize)
    DllCall("ntdll\RtlMoveMemory", "Ptr", &vtblOls, "Ptr", &vtblUnk, "Ptr", A_PtrSize * 3)

    for i, name in extfuncs
    {
      NumPut(RegisterCallback("IOleClientSite_" . name, "Fast"), vtblOls, (2 + i) * A_PtrSize)
    }         
  }
  if !vtblPtrs
  {
    vtblPtrs := [&vtblUnk, &vtblRms, &vtblIsp, &vtblOls]
  }
  pObj := DllCall("GlobalAlloc", "UInt", 0, "Ptr", size, "Ptr")
  
  for i, ptr in vtblPtrs 
  {
    off := A_PtrSize*(i - 1) + 4 * (i - 1)
    NumPut(ptr, pObj + 0, off, "Ptr")
    NumPut(off, pObj + 0, off + A_PtrSize, "UInt")
  }
  NumPut(1, pObj + 0, size - 4, "UInt")
  return pObj
}
IUnknown_QueryInterface(this_, riid, ppvObject)
{
  static IID_IUnknown, IID_IWMPRemoteMediaServices, IID_IServiceProvider, IID_IOleClientSite
  if !VarSetCapacity(IID_IUnknown)  
  {
    VarSetCapacity(IID_IUnknown, 16), VarSetCapacity(IID_IWMPRemoteMediaServices, 16)
                 , VarSetCapacity(IID_IServiceProvider, 16), VarSetCapacity(IID_IOleClientSite, 16)
    DllCall("ole32\CLSIDFromString", "WStr", "{00000000-0000-0000-C000-000000000046}", "Ptr", &IID_IUnknown)
    DllCall("ole32\CLSIDFromString", "WStr", "{CBB92747-741F-44FE-AB5B-F1A48F3B2A59}", "Ptr", &IID_IWMPRemoteMediaServices)
    DllCall("ole32\CLSIDFromString", "WStr", "{6d5140c1-7436-11ce-8034-00aa006009fa}", "Ptr", &IID_IServiceProvider)
    DllCall("ole32\CLSIDFromString", "WStr", "{00000118-0000-0000-C000-000000000046}", "Ptr", &IID_IOleClientSite)
  }   
  if DllCall("ole32\IsEqualGUID", "Ptr", riid, "Ptr", &IID_IUnknown) 
  {
    off := NumGet(this_ + 0, A_PtrSize, "UInt")
    NumPut(this_ - off, ppvObject + 0, "Ptr")
    IUnknown_AddRef(this_)
    return 0 ; S_OK
  }
  if DllCall("ole32\IsEqualGUID", "Ptr", riid, "Ptr", &IID_IWMPRemoteMediaServices) 
  {
    off := NumGet(this_ + 0, A_PtrSize, "UInt")
    NumPut((this_ - off) + (A_PtrSize + 4), ppvObject + 0, "Ptr")
    IUnknown_AddRef(this_)
    return 0 ; S_OK
  }
  if DllCall("ole32\IsEqualGUID", "Ptr", riid, "Ptr", &IID_IServiceProvider) 
  {
    off := NumGet(this_ + 0, A_PtrSize, "UInt")
    NumPut((this_ - off)+((A_PtrSize + 4) * 2), ppvObject + 0, "Ptr")
    IUnknown_AddRef(this_)
    return 0 ; S_OK
  }
  if DllCall("ole32\IsEqualGUID", "Ptr", riid, "Ptr", &IID_IOleClientSite)  
  {
    off := NumGet(this_ + 0, A_PtrSize, "UInt")
    NumPut((this_ - off) + ((A_PtrSize + 4) * 3), ppvObject + 0, "Ptr")
    IUnknown_AddRef(this_)
    return 0 ; S_OK
  }
  NumPut(0, ppvObject + 0, "Ptr")
  return 0x80004002 ; E_NOINTERFACE
}
IUnknown_AddRef(this_)
{
  off := NumGet(this_ + 0, A_PtrSize, "UInt")
  iunk := this_ - off
  NumPut((_refCount := NumGet(iunk + 0, (A_PtrSize + 4) * 4, "UInt") + 1), iunk + 0, (A_PtrSize + 4) * 4, "UInt")
  return _refCount
}
IUnknown_Release(this_) 
{
  off := NumGet(this_ + 0, A_PtrSize, "UInt")
  iunk := this_ - off
  _refCount := NumGet(iunk + 0, (A_PtrSize + 4) * 4, "UInt")
  if (_refCount > 0) 
  {
    NumPut(--_refCount, iunk + 0, (A_PtrSize + 4) * 4, "UInt")
    if (_refCount == 0)
    {
      DllCall("GlobalFree", "Ptr", iunk, "Ptr")
    }       
  }
  return _refCount
}
IWMPRemoteMediaServices_GetServiceType(this_, pbstrType)
{
  NumPut(DllCall("oleaut32\SysAllocString", "WStr", "Remote", "Ptr"), pbstrType + 0, "Ptr")
  return 0
}
IWMPRemoteMediaServices_GetScriptableObject(this_, pbstrName, ppDispatch)
{
  return 0x80004001
}
IWMPRemoteMediaServices_GetCustomUIMode(this_, pbstrFile)
{
  return 0x80004001
}
IServiceProvider_QueryService(this_, guidService, riid, ppvObject)
{
  return IUnknown_QueryInterface(this_, riid, ppvObject)
}
Thanks for any help and best regards
Please use [code][/code] when posting code!
Keyboard: Logitech G15 FE - Mice: Logitech G9 FE, G502 FE, G602, Jelly Comb Touchpad - OS: Windows 10 Pro 64 Bit - AHK version: 1.1.32.00
teadrinker
Posts: 1735
Joined: 29 Mar 2015, 09:41
Contact:

Re: Showing WMPlayer mp3 tags in AHK Gui

24 Jun 2020, 19:17

Scr1pter wrote: I found a script, modified it a bit and it works well. ...
For unknown reason, when I quit the WMP, the WMP process is still running
Looks like my class. I fear, your modification's messed it up. :) Try using the unmodified version.
User avatar
Scr1pter
Posts: 1193
Joined: 06 Aug 2017, 08:21
Location: Germany

Re: Showing WMPlayer mp3 tags in AHK Gui

25 Jun 2020, 17:24

Hi,

Unfortunately, the result is the same.

Code: Select all

;WMPlayer_alt.ahk

F5::
wmp := new RemoteWMP
media := wmp.player.currentMedia
MsgBox, % media.getItemInfo("Title") . "`n" . media.getItemInfo("WM/AlbumTitle") . "`n" . media.getItemInfo("Artist")
return

F6::
wmp := delete RemoteWMP ; doesn't have any impact either
return

class RemoteWMP
{
  __New()  
  {
    static IID_IOleClientSite := "{00000118-0000-0000-C000-000000000046}", IID_IOleObject := "{00000112-0000-0000-C000-000000000046}"
    Process, Exist, wmplayer.exe
    if !ErrorLevel
    {
      throw Exception("wmplayer.exe is not running")
    }
    if !this.player := ComObjCreate("WMPlayer.OCX.7")
    {
      throw Exception("Failed to get WMPlayer.OCX.7 object")
    }       
    this.rms := IWMPRemoteMediaServices_CreateInstance()
    this.ocs := ComObjQuery(this.rms, IID_IOleClientSite)
    this.ole := ComObjQuery(this.player, IID_IOleObject)
    DllCall(NumGet(NumGet(this.ole+0)+3*A_PtrSize), "Ptr", this.ole, "Ptr", this.ocs)
  }   
  __Delete()  
  {
    if !this.player
    {
      return
    }
    DllCall(NumGet(NumGet(this.ole + 0) + 3 * A_PtrSize), "Ptr", this.ole, "Ptr", 0)
    for k, obj in [this.ole, this.ocs, this.rms]
    {
      ObjRelease(obj)
    }       
    this.player := ""
  }  
  Jump(sec)  
  {
    this.player.Controls.currentPosition += sec
  }   
  TogglePause()  
  {
    if (this.player.playState = 3)  ; Playing = 3
    {
      this.player.Controls.pause()
    }       
    else
    {
      this.player.Controls.play()
    }       
  } 
  SetRate(value := 1.0)  
  {
    VarSetCapacity(rate, 8, 0)
    NumPut(value, rate, "Double")
    this.player.settings.rate := ComObject(0x4005, &rate)
  }
}
IWMPRemoteMediaServices_CreateInstance()
{
  static vtblUnk, vtblRms, vtblIsp, vtblOls, vtblPtrs := 0, size := (A_PtrSize + 4) * 4 + 4
  if !VarSetCapacity(vtblUnk)  
  {
    extfuncs := ["QueryInterface", "AddRef", "Release"]
    VarSetCapacity(vtblUnk, extfuncs.Length() * A_PtrSize)

    for i, name in extfuncs
    {
      NumPut(RegisterCallback("IUnknown_" . name), vtblUnk, (i - 1) * A_PtrSize)
    }         
  }
  if !VarSetCapacity(vtblRms) 
  {
    extfuncs := ["GetServiceType", "GetScriptableObject", "GetCustomUIMode"]

    VarSetCapacity(vtblRms, (3 + extfuncs.Length()) * A_PtrSize)
    DllCall("ntdll\RtlMoveMemory", "Ptr", &vtblRms, "Ptr", &vtblUnk, "Ptr", A_PtrSize * 3)

    for i, name in extfuncs
    {
      NumPut(RegisterCallback("IWMPRemoteMediaServices_" . name, "Fast"), vtblRms, (2 + i) * A_PtrSize)
    }         
  }
  if !VarSetCapacity(vtblIsp) 
  {
    VarSetCapacity(vtblIsp, 4 * A_PtrSize)
    DllCall("ntdll\RtlMoveMemory", "Ptr", &vtblIsp, "Ptr", &vtblUnk, "Ptr", A_PtrSize * 3)
    NumPut(RegisterCallback("IServiceProvider_QueryService", "Fast"), vtblIsp, A_PtrSize * 3)
  }
  if !VarSetCapacity(vtblOls) 
  {
    extfuncs := ["SaveObject", "GetMoniker", "GetContainer", "ShowObject", "OnShowWindow", "RequestNewObjectLayout"]
    VarSetCapacity(vtblOls, (3 + extfuncs.Length()) * A_PtrSize)
    DllCall("ntdll\RtlMoveMemory", "Ptr", &vtblOls, "Ptr", &vtblUnk, "Ptr", A_PtrSize * 3)

    for i, name in extfuncs
    {
      NumPut(RegisterCallback("IOleClientSite_" . name, "Fast"), vtblOls, (2 + i) * A_PtrSize)
    }         
  }
  if !vtblPtrs
  {
    vtblPtrs := [&vtblUnk, &vtblRms, &vtblIsp, &vtblOls]
  }
  pObj := DllCall("GlobalAlloc", "UInt", 0, "Ptr", size, "Ptr")
  for i, ptr in vtblPtrs 
  {
    off := A_PtrSize*(i - 1) + 4 * (i - 1)
    NumPut(ptr, pObj + 0, off, "Ptr")
    NumPut(off, pObj + 0, off + A_PtrSize, "UInt")
  }
  NumPut(1, pObj + 0, size - 4, "UInt")
  return pObj
}
IUnknown_QueryInterface(this_, riid, ppvObject)
{
  static IID_IUnknown, IID_IWMPRemoteMediaServices, IID_IServiceProvider, IID_IOleClientSite
  if !VarSetCapacity(IID_IUnknown)  
  {
    VarSetCapacity(IID_IUnknown, 16), VarSetCapacity(IID_IWMPRemoteMediaServices, 16)
                 , VarSetCapacity(IID_IServiceProvider, 16), VarSetCapacity(IID_IOleClientSite, 16)
    DllCall("ole32\CLSIDFromString", "WStr", "{00000000-0000-0000-C000-000000000046}", "Ptr", &IID_IUnknown)
    DllCall("ole32\CLSIDFromString", "WStr", "{CBB92747-741F-44FE-AB5B-F1A48F3B2A59}", "Ptr", &IID_IWMPRemoteMediaServices)
    DllCall("ole32\CLSIDFromString", "WStr", "{6d5140c1-7436-11ce-8034-00aa006009fa}", "Ptr", &IID_IServiceProvider)
    DllCall("ole32\CLSIDFromString", "WStr", "{00000118-0000-0000-C000-000000000046}", "Ptr", &IID_IOleClientSite)
  }   
  if DllCall("ole32\IsEqualGUID", "Ptr", riid, "Ptr", &IID_IUnknown) 
  {
    off := NumGet(this_ + 0, A_PtrSize, "UInt")
    NumPut(this_ - off, ppvObject + 0, "Ptr")
    IUnknown_AddRef(this_)
    return 0 ; S_OK
  }
  if DllCall("ole32\IsEqualGUID", "Ptr", riid, "Ptr", &IID_IWMPRemoteMediaServices) 
  {
    off := NumGet(this_ + 0, A_PtrSize, "UInt")
    NumPut((this_ - off) + (A_PtrSize + 4), ppvObject + 0, "Ptr")
    IUnknown_AddRef(this_)
    return 0 ; S_OK
  }
  if DllCall("ole32\IsEqualGUID", "Ptr", riid, "Ptr", &IID_IServiceProvider) 
  {
    off := NumGet(this_ + 0, A_PtrSize, "UInt")
    NumPut((this_ - off)+((A_PtrSize + 4) * 2), ppvObject + 0, "Ptr")
    IUnknown_AddRef(this_)
    return 0 ; S_OK
  }
  if DllCall("ole32\IsEqualGUID", "Ptr", riid, "Ptr", &IID_IOleClientSite)  
  {
    off := NumGet(this_ + 0, A_PtrSize, "UInt")
    NumPut((this_ - off) + ((A_PtrSize + 4) * 3), ppvObject + 0, "Ptr")
    IUnknown_AddRef(this_)
    return 0 ; S_OK
  }
  NumPut(0, ppvObject + 0, "Ptr")
  return 0x80004002 ; E_NOINTERFACE
}

IUnknown_AddRef(this_)
{
  off := NumGet(this_ + 0, A_PtrSize, "UInt")
  iunk := this_ - off
  NumPut((_refCount := NumGet(iunk + 0, (A_PtrSize + 4) * 4, "UInt") + 1), iunk + 0, (A_PtrSize + 4) * 4, "UInt")
  return _refCount
}
IUnknown_Release(this_) 
{
  off := NumGet(this_ + 0, A_PtrSize, "UInt")
  iunk := this_ - off
  _refCount := NumGet(iunk + 0, (A_PtrSize + 4) * 4, "UInt")
  if (_refCount > 0) 
  {
    NumPut(--_refCount, iunk + 0, (A_PtrSize + 4) * 4, "UInt")
    if (_refCount == 0)
    {
      DllCall("GlobalFree", "Ptr", iunk, "Ptr")
    }       
  }
  return _refCount
}
IWMPRemoteMediaServices_GetServiceType(this_, pbstrType)
{
  NumPut(DllCall("oleaut32\SysAllocString", "WStr", "Remote", "Ptr"), pbstrType + 0, "Ptr")
  return 0
}
IWMPRemoteMediaServices_GetScriptableObject(this_, pbstrName, ppDispatch)
{
  return 0x80004001
}
IWMPRemoteMediaServices_GetCustomUIMode(this_, pbstrFile)
{
  return 0x80004001
}
IServiceProvider_QueryService(this_, guidService, riid, ppvObject)
{
  return IUnknown_QueryInterface(this_, riid, ppvObject)
}
Cheers!
Please use [code][/code] when posting code!
Keyboard: Logitech G15 FE - Mice: Logitech G9 FE, G502 FE, G602, Jelly Comb Touchpad - OS: Windows 10 Pro 64 Bit - AHK version: 1.1.32.00
teadrinker
Posts: 1735
Joined: 29 Mar 2015, 09:41
Contact:

Re: Showing WMPlayer mp3 tags in AHK Gui

25 Jun 2020, 17:30

Several functions are lost, as I see:

Code: Select all

class RemoteWMP
{
   __New()  {
      static IID_IOleClientSite := "{00000118-0000-0000-C000-000000000046}"
           , IID_IOleObject     := "{00000112-0000-0000-C000-000000000046}"
      Process, Exist, wmplayer.exe
      if !ErrorLevel
         throw Exception("wmplayer.exe is not running")
      if !this.player := ComObjCreate("WMPlayer.OCX.7")
         throw Exception("Failed to get WMPlayer.OCX.7 object")
      this.rms := IWMPRemoteMediaServices_CreateInstance()
      this.ocs := ComObjQuery(this.rms, IID_IOleClientSite)
      this.ole := ComObjQuery(this.player, IID_IOleObject)
      DllCall(NumGet(NumGet(this.ole+0)+3*A_PtrSize), "Ptr", this.ole, "Ptr", this.ocs)
   }
   
   __Delete()  {
      if !this.player
         Return
      DllCall(NumGet(NumGet(this.ole+0)+3*A_PtrSize), "Ptr", this.ole, "Ptr", 0)
      for k, obj in [this.ole, this.ocs, this.rms]
         ObjRelease(obj)
      this.player := ""
   }
   
   Jump(sec)  {
      this.player.Controls.currentPosition += sec
   }
   
   TogglePause()  {
      if (this.player.playState = 3)  ; Playing = 3
         this.player.Controls.pause()
      else
         this.player.Controls.play()
   }
   
   SetRate(value := 1.0)  {
      VarSetCapacity(rate, 8, 0)
      NumPut(value, rate, "Double")
      this.player.settings.rate := ComObject(0x4005, &rate)
   }
}

IWMPRemoteMediaServices_CreateInstance()
{
   static vtblUnk, vtblRms, vtblIsp, vtblOls, vtblPtrs := 0, size := (A_PtrSize + 4)*4 + 4
   if !VarSetCapacity(vtblUnk)  {
      extfuncs := ["QueryInterface", "AddRef", "Release"]

      VarSetCapacity(vtblUnk, extfuncs.Length()*A_PtrSize)

      for i, name in extfuncs
         NumPut(RegisterCallback("IUnknown_" . name), vtblUnk, (i-1)*A_PtrSize)
   }
   if !VarSetCapacity(vtblRms) {
      extfuncs := ["GetServiceType", "GetApplicationName", "GetScriptableObject", "GetCustomUIMode"]

      VarSetCapacity(vtblRms, (3 + extfuncs.Length())*A_PtrSize)
      DllCall("ntdll\RtlMoveMemory", "Ptr", &vtblRms, "Ptr", &vtblUnk, "Ptr", A_PtrSize*3)

      for i, name in extfuncs
         NumPut(RegisterCallback("IWMPRemoteMediaServices_" . name, "Fast"), vtblRms, (2+i)*A_PtrSize)
   }
   if !VarSetCapacity(vtblIsp) {
      VarSetCapacity(vtblIsp, 4*A_PtrSize)
      DllCall("ntdll\RtlMoveMemory", "Ptr", &vtblIsp, "Ptr", &vtblUnk, "Ptr", A_PtrSize*3)
      NumPut(RegisterCallback("IServiceProvider_QueryService", "Fast"), vtblIsp, A_PtrSize*3)
   }
   if !VarSetCapacity(vtblOls) {
      extfuncs := ["SaveObject", "GetMoniker", "GetContainer", "ShowObject", "OnShowWindow", "RequestNewObjectLayout"]
      VarSetCapacity(vtblOls, (3 + extfuncs.Length())*A_PtrSize)
      DllCall("ntdll\RtlMoveMemory", "Ptr", &vtblOls, "Ptr", &vtblUnk, "Ptr", A_PtrSize*3)

      for i, name in extfuncs
         NumPut(RegisterCallback("IOleClientSite_" . name, "Fast"), vtblOls, (2+i)*A_PtrSize)
   }
   if !vtblPtrs
      vtblPtrs := [&vtblUnk, &vtblRms, &vtblIsp, &vtblOls]

   pObj := DllCall("GlobalAlloc", "UInt", 0, "Ptr", size, "Ptr")
   for i, ptr in vtblPtrs {
      off := A_PtrSize*(i - 1) + 4*(i - 1)
      NumPut(ptr, pObj+0, off, "Ptr")
      NumPut(off, pObj+0, off + A_PtrSize, "UInt")
   }
   NumPut(1, pObj+0, size - 4, "UInt")

   return pObj
}

IUnknown_QueryInterface(this_, riid, ppvObject)
{
   static IID_IUnknown, IID_IWMPRemoteMediaServices, IID_IServiceProvider, IID_IOleClientSite
   if !VarSetCapacity(IID_IUnknown)  {
      VarSetCapacity(IID_IUnknown, 16), VarSetCapacity(IID_IWMPRemoteMediaServices, 16), VarSetCapacity(IID_IServiceProvider, 16), VarSetCapacity(IID_IOleClientSite, 16)
      DllCall("ole32\CLSIDFromString", "WStr", "{00000000-0000-0000-C000-000000000046}", "Ptr", &IID_IUnknown)
      DllCall("ole32\CLSIDFromString", "WStr", "{CBB92747-741F-44FE-AB5B-F1A48F3B2A59}", "Ptr", &IID_IWMPRemoteMediaServices)
      DllCall("ole32\CLSIDFromString", "WStr", "{6d5140c1-7436-11ce-8034-00aa006009fa}", "Ptr", &IID_IServiceProvider)
      DllCall("ole32\CLSIDFromString", "WStr", "{00000118-0000-0000-C000-000000000046}", "Ptr", &IID_IOleClientSite)
   }
   
   if DllCall("ole32\IsEqualGUID", "Ptr", riid, "Ptr", &IID_IUnknown) {
      off := NumGet(this_+0, A_PtrSize, "UInt")
      NumPut(this_ - off, ppvObject+0, "Ptr")
      IUnknown_AddRef(this_)
      return 0 ; S_OK
   }

   if DllCall("ole32\IsEqualGUID", "Ptr", riid, "Ptr", &IID_IWMPRemoteMediaServices) {
      off := NumGet(this_+0, A_PtrSize, "UInt")
      NumPut((this_ - off)+(A_PtrSize + 4), ppvObject+0, "Ptr")
      IUnknown_AddRef(this_)
      return 0 ; S_OK
   }

   if DllCall("ole32\IsEqualGUID", "Ptr", riid, "Ptr", &IID_IServiceProvider) {
      off := NumGet(this_+0, A_PtrSize, "UInt")
      NumPut((this_ - off)+((A_PtrSize + 4)*2), ppvObject+0, "Ptr")
      IUnknown_AddRef(this_)
      return 0 ; S_OK
   }

   if DllCall("ole32\IsEqualGUID", "Ptr", riid, "Ptr", &IID_IOleClientSite)  {
      off := NumGet(this_+0, A_PtrSize, "UInt")
      NumPut((this_ - off)+((A_PtrSize + 4)*3), ppvObject+0, "Ptr")
      IUnknown_AddRef(this_)
      return 0 ; S_OK
   }

   NumPut(0, ppvObject+0, "Ptr")
   return 0x80004002 ; E_NOINTERFACE
}

IUnknown_AddRef(this_)
{
   off := NumGet(this_+0, A_PtrSize, "UInt")
   iunk := this_-off
   NumPut((_refCount := NumGet(iunk+0, (A_PtrSize + 4)*4, "UInt") + 1), iunk+0, (A_PtrSize + 4)*4, "UInt")
   return _refCount
}

IUnknown_Release(this_) {
   off := NumGet(this_+0, A_PtrSize, "UInt")
   iunk := this_-off
   _refCount := NumGet(iunk+0, (A_PtrSize + 4)*4, "UInt")
   if (_refCount > 0) {
      NumPut(--_refCount, iunk+0, (A_PtrSize + 4)*4, "UInt")
      if (_refCount == 0)
         DllCall("GlobalFree", "Ptr", iunk, "Ptr")
   }
   return _refCount
}

IWMPRemoteMediaServices_GetServiceType(this_, pbstrType)
{
   NumPut(DllCall("oleaut32\SysAllocString", "WStr", "Remote", "Ptr"), pbstrType+0, "Ptr")
   return 0
}

IWMPRemoteMediaServices_GetApplicationName(this_, pbstrName)
{
	NumPut(DllCall("oleaut32\SysAllocString", "WStr", "Windows Media Player", "Ptr"), pbstrName+0, "Ptr")
	return 0
}

IWMPRemoteMediaServices_GetScriptableObject(this_, pbstrName, ppDispatch)
{
   return 0x80004001
}

IWMPRemoteMediaServices_GetCustomUIMode(this_, pbstrFile)
{
   return 0x80004001
}

IServiceProvider_QueryService(this_, guidService, riid, ppvObject)
{
   return IUnknown_QueryInterface(this_, riid, ppvObject)
}

IOleClientSite_GetContainer(this_, ppContainer)
{
   NumGet(0, ppContainer+0, "Ptr")
   return 0x80004002
}
User avatar
Scr1pter
Posts: 1193
Joined: 06 Aug 2017, 08:21
Location: Germany

Re: Showing WMPlayer mp3 tags in AHK Gui  Topic is solved

25 Jun 2020, 19:07

I solved it by using if WinExist.
Thanks anyway :)
(At least thanks for your great class, hehe)

Cheers!
Please use [code][/code] when posting code!
Keyboard: Logitech G15 FE - Mice: Logitech G9 FE, G502 FE, G602, Jelly Comb Touchpad - OS: Windows 10 Pro 64 Bit - AHK version: 1.1.32.00

Return to “Ask For Help”

Who is online

Users browsing this forum: 4k3or3et, AHKStudent, boiler, Clemens375, davehotkeys, doubledave22, elbeau, nacken012 and 53 guests