Skip to content

Reply To: I need help getting paltalk room submenus

#190102
Admin
Administrator

Lol thanks sp, I was going to use that, but I came up with a crazy Idea for like another program like a quick launcher, and I found this code that works great for like closing the room for example check it

'Option Explicit
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetMenu Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetMenuItemID Lib "User32" (ByVal hMenu As Long, ByVal _
nPos As Long) As Long
Private Declare Function GetSubMenu Lib "User32" (ByVal hMenu As Long, ByVal _
nPos As Long) As Long
Private Declare Function SendMessageA Lib "User32" (ByVal hWnd As Long, ByVal _
wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindowEx Lib "User32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal _
lpsz2 As String) As Long

Const WM_COMMAND = &H111
Const WM_SETTEXT = &HC

Private Sub CommandButton1_Click()
Dim hWnd As Long
Dim hMainMenu As Long
Dim hMenu As Long
Dim MenuID As Long
hWnd = FindWindow("my window class", vbNullString)
If hWnd = 0 Then Exit Sub
hMainMenu = GetMenu(hWnd) ' get main menu handle
hMenu = GetSubMenu(hMainMenu, 0) ' first submenu (File)
MenuID = GetMenuItemID(hMenu, 4) ' 2nd item (Open)
X& = SendMessageA(hWnd, WM_COMMAND, MenuID, ByVal 0&) ' The program stop here to recieve command through dialog box that I don't want
End Sub

so I can use the code and make like a control panel for all the menu actions of the room, but I still wanna finish the room fucker, 🙂 so this is what I am missing,

Your chatsend method for the new paltalk 🙂 cause I am still using the old senkeys {enter} thing which is not real stable.

And this action That I need to do to enter te room, check this pic