- This topic has 26 replies, 7 voices, and was last updated 19 years ago by H@CkY.
-
AuthorPosts
-
December 22, 2004 at 10:22 pm #190083AdminAdministrator
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 #190109H@CkYMemberIf u want to close the group lol why not close from the X On the top right
December 22, 2004 at 11:46 pm #190108UDG ClanMemberloco 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 #190107AdminAdministratorlol 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 #190106UDG ClanMemberoh 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 #190105AdminAdministratoryeps thas for the old one, 🙂 thanks
December 24, 2004 at 2:45 am #190104UDG ClanMemberno problemm duno that api spy you can do alot of things with it
December 24, 2004 at 4:20 am #190103Project SPMemberLOCO 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 = &H10Private Sub SPBUTTON_Click()
Call SendMessage(PALROOM, WM_CLOSE, ByVal 0, ByVal 0)
End SubDecember 24, 2004 at 5:45 am #190102AdminAdministratorLol 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 Subso 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 #190101UDG ClanMemberoh 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 #190100Project SPMemberok 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 #190099AdminAdministratorlol 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 #190098AdminAdministratorHey 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 #190097AdminAdministratorYo 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 #190096CrAcKeR-NiNiMemberloco im waiting for your new proggie, 😀
-
AuthorPosts
Related
- You must be logged in to reply to this topic.