How to make a program for paltalk

Aigh peeps, I going to show you how to make a program for paltalk the easy way 🙂

First you should at list read this post first to know the basics of visual basic.

VB Tutorials Part 1 – Making My first Program

one you read that you ready for the this 😉

Ok you will need this tools besides visual basic

Rehack (program to explore exe programs)

JK’s API SPY 5.1 (program to help you find info about open windows, such as a paltalk room)

aigh get then tool I going to show u how to use them for paltalk, first lets do some easy, we going to use a comand buttom to do this action in a paltalk room, you know when u are in a room and u want to show your cam you do it by clicking on the My cam button on the room or by clicking on actions then clicking on send my video.

In this first program we going to use the second one (clicking on actions then clicking on send my video)

Aigh lets get ready first we need to get the menu number, lol you might be thinking how in hell i do that easy by using reshack 😉

Aigh open reshack
In reshack click on files then click on open, there you will have to look for the paltalk.exe will should be located on this dir C:Program FilesPaltalk Messenger aigh there you will see paltalk.exe select it and press ok, now your reshack screen should be fill like this

Cool now lets look for this menu button numer 🙂 click on the folder that says Menu then there click on the folder with the number 238 it should open the show something that look like a flower with a the number 1033 click on that now your right box should be fill and reshack yould look like this

Aigh to get to the menu number we looking for you have to scroll down and you will find the highlight number as you see on that pic, and the number next to MENUITEM “Send My Video”, this is the number we going to use for our porgram the number 33027 🙂

ok now we ready to make the program, first open vb ofcourse lol the start a new standard.exe

On the form we will add a command button you should know how to dod this if you read tutorial 1 😉

okie now before we communicate with the paltalk window we always need to ad a module, a module is a part of the vb code wich hold apis and other stuff, anyways to add a module to the project we do this in vb click on project on the top menu then on add module then a module screen should pop up just click on ok.

Now this is usually the one module code you will always use when it comes to paltalk programing, add this to the module

 

Option Explicit

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public 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
Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Public Declare Function SendMessageLong& Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long
Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
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 PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Const WM_SETTEXT = &HC
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const VK_SPACE = &H20
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_CLOSE = &H10

It looks messy but dont get scare just copy and paste that in the module 🙂

Ok now click on form1 on the top rightbox under forms, or if you see the form just click on it, click on the form anywhere and this a screen with this code should pop up

 

Private Sub Command1_Click()

End Sub

 

 

Private Sub Form_Load()

End Sub

 

Aigh we need to enter some more declaration, to do so do this click on the top right drop menu and select on General, I am talking about this

You see where it says general that what should be selected then right on top of where it says Private Sub Command1_Click() you add this

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
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
Const WM_COMMAND = &H111

Aigh next click on the form again then on the command buttom on the command buttom put this code

 

Dim window As Long

On Error Resume Next
window = FindWindow("my window class", vbNullString)
PostMessage window, WM_COMMAND, 33027, 0

 

You see the number 33027 thas the menu button we got using reshack 🙂 that where we put it to create the menu item action 🙂

so now it should look like this

 

Private Sub Command1_Click()
Dim window As Long

On Error Resume Next
window = FindWindow("my window class", vbNullString)
PostMessage window, WM_COMMAND, 33027, 0
End Sub

 

And the full code on the form should look like this

 

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
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
Const WM_COMMAND = &H111
Private Sub Command1_Click()
Dim window As Long

On Error Resume Next
window = FindWindow("my window class", vbNullString)
PostMessage window, WM_COMMAND, 33027, 0
End Sub

Private Sub Form_Load()

End Sub

 

Now give it a try to see if it works 🙂 and you are done lol

Next we will learn how to use JK’s API SPY 5.1 to send text to paltalk rooms. 🙂