Skip to content

I need help getting paltalk room submenus

Viewing 15 posts - 1 through 15 (of 27 total)
  • Author
    Posts
  • #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 😈

    #190109
    H@CkY
    Member

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

    #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 🙂

    #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 🙂

    #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

    #190105
    Admin
    Administrator

    yeps thas for the old one, 🙂 thanks

    #190104
    UDG Clan
    Member

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

    #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
    #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

    #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

    #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)

    #190099
    Admin
    Administrator

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

    #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 🙂

    #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

    #190096
    CrAcKeR-NiNi
    Member

    loco im waiting for your new proggie, 😀

Viewing 15 posts - 1 through 15 (of 27 total)
  • You must be logged in to reply to this topic.