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.
http://www.imfiles.com/paltalk/vb-tu ... t1409.html
one you read that you ready for the this

Ok you will need this tools besides visual basic

Rehack (program to explore exe programs)
http://www.imfiles.com/Software/Prog ... k_L66.html

JK's API SPY 5.1 (program to help you find info about open windows, such as a paltalk room)
http://www.imfiles.com/Software/Prog ... 1_L62.html

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 Files\Paltalk 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

Code: Select all

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

Code: Select all

Private Sub Command1_Click()

End Sub

Code: Select all

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

Code: Select all

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

Code: Select all

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

Code: Select all

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

Code: Select all

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.

How Hard is it 2 make a Paltalk Program, this is really complicat3ed man.

well depnds on how lazy you are man as i see you didn't pay much notice to what locohacker said you can make basic programs for paltalk by do what you says about use a API Spy till you get advanced... theres no cheating in learning programming.

great job Loco thanx for taking your to time to explain this is simple im sure new members can use this keep up the good work.....

god i need to stop lacking on sleep because my typing is poor sorry if you dont understand my post i been busy working and trying to help people with paltalk that i have been lacking sleep bad and my brain cant think that good. but what locohacker said is pretty easy to do if you read it and do like it says you can make a program fast using a API can make a send text like program my first paltalk program i made was a room spammer.

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

Code: Select all

Private Sub Command1_Click()

End Sub

Private Sub Form_Load()

End Sub


umm.....the code i get when i click on the form is this:

Code: Select all

Private Sub Form_Load()

End Sub


What's wrong ....i did all the steps exactly......im lost here...

also if i click on the command1 button i get this code:

Code: Select all

Private Sub Command1_Click()

End Sub

Private Sub Form_Load()

End Sub


Loco, did u mean to say click on the command1 button not the form? sounds like it...lol cus this is the code u said i should have now....


!!!Ah man...never mind...lol....now even if i click the button or the whole form i get the same code u mentioned....now its working...dont know why it was different before...hmmm...lol

when you put a control on a form, the code for it wont show up until you double click on the control...hence, you could have 400 controls on the form, but the code window is still blank...you can also access the code window by clicking this;


make sense?

thanks man...didnt know that....cool...i did it...it works!!!! Here is the prog i made....a sample thing for people to play with...lol

good job

congrats on ur first PT program

lol....no brainer.....

hey loco was'nt I the one who showed you and syxx that method with the resource hacker??

hehehe just thought i would add that ;O)

ah, hehe true well i first did something with ice code but i dint't know how he did it untyl u guys explain i t

and the good thing about this tutorial, you can do the same thing about sending vids, getting vids, sending msg's, almost anything, but its got mew wondering one thing, if we can do this, cant we make a prgm to see all of the vids in the room? without buying a blue green or gold nick? just see the vids using the strings to find the users in the room with vids up?

WTF a gold nick when did paltalk make a gold nick? can you please tell me