如何去監看播放軟體目前播放的時間點??

下面這個播放軟體的滑軌



我想要在我的程式中按照這個滑軌的位置 觸發一些事件

所以我想要得到這個滑軌的參數 

我用spy++觀察了一下窗口的信息

<00031> 00020E46 S WM_PSD_ENVSTAMPRECT wParam:00000001 lParam:00000001 <<<1
<00032> 00020E46 R WM_PSD_ENVSTAMPRECT lResult:00000000
<00033> 00020E46 S WM_PSD_PAGESETUPDLG wParam:00000000 lParam:00000000
<00034> 00020E46 R WM_PSD_PAGESETUPDLG lResult:00000001
<00035> 00020E46 S WM_PSD_ENVSTAMPRECT wParam:00000001 lParam:00000002 <<<2
<00036> 00020E46 R WM_PSD_ENVSTAMPRECT lResult:00000000
<00037> 00020E46 S WM_PSD_PAGESETUPDLG wParam:00000000 lParam:00000000
<00038> 00020E46 R WM_PSD_PAGESETUPDLG lResult:00000002
<00039> 00020E46 S WM_PSD_ENVSTAMPRECT wParam:00000001 lParam:00000003 <<<3 獲取 WM_PSD_ENVSTAMPRECT 的lParam值
<00040> 00020E46 R WM_PSD_ENVSTAMPRECT lResult:00000000
<00041> 00020E46 S WM_PSD_PAGESETUPDLG wParam:00000000 lParam:00000000

似乎可以從WM_PSD_ENVSTAMPRECT 中的lParam值 來得到此滑軌目前時間點的位置 跟信息

請問一下 我該在VB 裡用哪個API來得到WM_PSD_ENVSTAMPRECT 中的lParam值呢?

'======================================================

'获取当前播放进度

'======================================================

Public Function GetMusicPos() As Long

 Dim RefStr As String * 80

 mciSendString "status MyAlias position", RefStr, 80, 0

 GetMusicPos = Val(RefStr)

End Function

'======================================================

嗨 xiaoyao961 大大

不太懂你給的這些代碼的功能 

 mciSendString "status MyAlias position", RefStr, 80, 0 這句是幹嘛用的阿?

我該怎麼實作? 我是要用自己寫的VB程式 去監看播放軟體的 

不是要自己寫個播放軟體哦