problem locking the mic using code

hi all. I used to use this code to lock the mic but for some reason it is not working.
probably I need to change 33239 but i don’t know how to get it !! I want this to work for paltalk 9.2. Hope some one help me.Thanks

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Const WM_COMMAND = &H111

Private Sub Command17_Click()
Dim window As Long

window = FindWindow("DlgGroupChat Window Class", vbNullString)
PostMessage window, WM_COMMAND, 33239, 0
End Sub