Skip to content

I need help getting paltalk room submenus

Viewing 15 posts - 1 through 15 (of 27 total)
1 2
  • Author
    Posts
  • December 22, 2004 at 10:22 pm #190083
    Admin
    Administrator

    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

    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 fucker lol this got me stuck ๐Ÿ˜ˆ

    December 22, 2004 at 11:04 pm #190109
    H@CkY
    Member

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

    December 22, 2004 at 11:46 pm #190108
    UDG Clan
    Member

    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 ๐Ÿ™‚

    December 23, 2004 at 12:56 pm #190107
    Admin
    Administrator

    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 fucker lol ๐Ÿ™‚

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

    December 23, 2004 at 4:49 pm #190106
    UDG Clan
    Member

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

    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
    December 23, 2004 at 5:15 pm #190105
    Admin
    Administrator

    yeps thas for the old one, ๐Ÿ™‚ thanks

    December 24, 2004 at 2:45 am #190104
    UDG Clan
    Member

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

    December 24, 2004 at 4:20 am #190103
    Project SP
    Member

    LOCO BRO Y DONT U USE THE SIMPLE API
    TO CLOSE THE ROOM…. ITS ALOT EASIER… ๐Ÿ™‚

    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
    Private Sub SPBUTTON_Click()
    
Call SendMessage(PALROOM, WM_CLOSE, ByVal 0, ByVal 0)
    
End Sub
    December 24, 2004 at 5:45 am #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

    December 24, 2004 at 11:06 am #190101
    UDG Clan
    Member

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

    December 24, 2004 at 1:11 pm #190100
    Project SP
    Member

    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 ๐Ÿ™‚ ๐Ÿ˜€ ๐Ÿ˜ˆ ๐Ÿ™‚ 8)

    December 24, 2004 at 1:12 pm #190099
    Admin
    Administrator

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

    December 24, 2004 at 2:04 pm #190098
    Admin
    Administrator

    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 fucker will be born ๐Ÿ™‚

    lol i was thinking of something else ๐Ÿ™‚

    December 24, 2004 at 2:06 pm #190097
    Admin
    Administrator

    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

    December 24, 2004 at 10:12 pm #190096
    CrAcKeR-NiNi
    Member

    loco im waiting for your new proggie, ๐Ÿ˜€

  • Author
    Posts

Related

Viewing 15 posts - 1 through 15 (of 27 total)
1 2