Hey my peeps, does anyone know how to get the menus events from like paltalk rooms

like this the code i am working with, but i am stock for now lol look at this

Code: Select all

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 PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Hwindow As Long
Private HMenu As Long
Private HSubMenu As Long
Private MenuID As Long



Private Sub Command3_Click()
    Hwindow = FindWindow(vbNullString, "my window class")
    HMenu = GetMenu(Hwindow)
    HSubMenu = GetSubMenu(HMenu, Level1)
    MenuID = GetMenuItemID(HSubMenu, Level2)
    PostMessage Hwindow, &H111, MenuID, 0
End Sub


I just like wanna use the close option from the menu, like if you go to file in a room there it gives you the choice to close group, i need that,

I am trying to create a new room fu**er lol this got me stuck

If u want to close the group lol why not close from the X On the top right

loco i got an idea look do theas step i can make them and get it for you but i am banned from rooms
1. download api spy
2. go to cont codes
3. slect clikc left mouse drag the cricle and get it on the close button int the bottem right hand side you wills see a close button and put the cricle there and grent code you will get the code for it

lol funny hacky, lol, but the truth is that i wanna learn about this one, how to get them menu events so like i can make like a control panelr, and room fu**er lol

Yo udg, I dint see the close group button, ah maybe cause i am trying to do it in the new paltalk

oh okay i thought it was the old one any way here is the for the old one

Code: Select all

Dim x As Long
Dim palbutton As Long

x = FindWindow("#32770", vbNullString)
palbutton = FindWindowEx(x, 0&, "palbutton", vbNullString)
palbutton = FindWindowEx(x, palbutton, "palbutton", vbNullString)
palbutton = FindWindowEx(x, palbutton, "palbutton", vbNullString)
palbutton = FindWindowEx(x, palbutton, "palbutton", vbNullString)
palbutton = FindWindowEx(x, palbutton, "palbutton", vbNullString)
palbutton = FindWindowEx(x, palbutton, "palbutton", vbNullString)
palbutton = FindWindowEx(x, palbutton, "palbutton", vbNullString)
palbutton = FindWindowEx(x, palbutton, "palbutton", vbNullString)
Call SendMessageLong(palbutton, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(palbutton, WM_LBUTTONUP, 0&, 0&)

If palbutton = 0 Then
    Msgbox "Error: Cannot find window"
    Exit Sub
End If



yeps thas for the old one, thanks

no problemm duno that api spy you can do alot of things with it

LOCO BRO Y DONT U USE THE SIMPLE API
TO CLOSE THE ROOM.... ITS ALOT EASIER...

Code: Select all

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10

Code: Select all

Private Sub SPBUTTON_Click()
Call SendMessage(PALROOM, WM_CLOSE, ByVal 0, ByVal 0)
End Sub

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

Code: Select all

'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 fu**er, 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

oh me so dum you teying to make a room fu**er for 7.0 i thought you was doing something els

ok loco bro. ill let u know the littta secrets of menuz.......
and how to use them in one single line.......
thats it!!!!!!!........ and on jan 1st 05......ill show u the method.
**only to u** bro.,, aiirite

lol its aigh udg, Its just one of my crazy ideas, I till need how to et in the room automatically ):

Hey i ment left mouse click when i said this

I need to do this to go to the room, but the only way i know now is by the senkeys {enter} thing again, lol so i need to figure this out and my room fu**er will be born

lol i was thinking of something else

Yo sp, u the man lol Man its funny but i am waiting for the first of jan, more then christmas itself lol cause of your releases lol

loco im waiting for your new proggie,