i cant wait for this tutorial

Pretty Easy really if for paltalk what you do is fellow the steps...

Open JK's API SPY 5.1...



Then...



Find the ''Set window's text''
when you have picked it we now wanna left mouse button down the circle bring it over the box you send your text to the paltalk room put that circle over that paltalk text box in the room where the text is put in and let go.

This is what you should see if you do like i said.


Now click the Generate Buttun this will make your code to send text to the room.

It should give you this if you have Paltalk Messenger 8.3

Code: Select all

Dim mywindowclass As Long
Dim wtlsplitterwindow As Long
Dim atld As Long
Dim atlaxwin As Long
Dim x As Long
Dim richedita As Long

mywindowclass = FindWindow("my window class", vbNullString)
wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
atld = FindWindowEx(wtlsplitterwindow, 0&, "atl:0053d798", vbNullString)
atlaxwin = FindWindowEx(atld, 0&, "atlaxwin71", vbNullString)
x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)
richedita = FindWindowEx(x, 0&, "richedit20a", vbNullString)
richedita = FindWindowEx(x, richedita, "richedit20a", vbNullString)
Call SendMessageByString(richedita, WM_SETTEXT, 0&, "The New Text")

If richedita = 0 Then
    Msgbox "Error: Cannot find window"
    Exit Sub
End If

Now from here we wanna go to get our API Text Viewer go to start All Programs or Programs depending on what OS you have find your... Microsoft Visual Studio 6.0 move too Microsoft Visual Studio 6.0 Tools then look in there for API Text Viewer open it then... click on file we wanna pick ''Load Text File'' then pick the "WIN32API" one now were ready to get the API's

Under Declares type in FindWindow and add it then type in FindWindowEx add that type in SendMessage add that. Now....

The menu where you see decalre drop down and pick... Constants add type in WM_SETTEXT now were pretty much done with the API for now but dont close it. copy your code and put it in a Module now we wanna find this code in the module

Code: Select all

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

change it to

Code: Select all

Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

where you see the SendMessage you are adding SendMessageByString

Now we wanna change this put of the code. that we got from the API Spy

Code: Select all

Call SendMessageByString(richedita, WM_SETTEXT, 0&, "The New Text")

change it to

Code: Select all

Call SendMessageByString(richedita, WM_SETTEXT, 0&, Text1.Text)

Remove the "The New Text" and change it to Text1.Text or whatever text box you wanna use to send your text from just add one text box if you new to this. and change it to Text1.Text

Everything is just about ready.

We now wanna add the code....

Code: Select all

Call SendMessageLong(richedita, WM_KEYDOWN, 13, 0&)

under

Code: Select all

Call SendMessageByString(richedita, WM_SETTEXT, 0&, Text1.Text)

we now wanna go back to our API Text Viewer and go to the Decalres and find and add SendMessage again then we wanna go back to the Constants and type in WM_KEYDOWN add your new stuff you add to your module make sure that if you did clear that API Text Viewer before you added theses that you go back up and do that part where i told you to change the SendMessageByString that you do again and also for your new SendMessage change it to SendMessageLong the API is all done we can move on to adding the command buttons and textboxs if you haven't already.

How to make a RoomSpammer out of what you just learned is easy.
from what i just told you all you need is to do the above first then add...

1 timer

2 command buttons

1 textbox

In the timer you wanna add the code you just were teach the send text code should be all like this if you did it right.

Code: Select all

Dim mywindowclass As Long
Dim wtlsplitterwindow As Long
Dim atld As Long
Dim atlaxwin As Long
Dim x As Long
Dim richedita As Long

mywindowclass = FindWindow("my window class", vbNullString)
wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
atld = FindWindowEx(wtlsplitterwindow, 0&, "atl:0053d798", vbNullString)
atlaxwin = FindWindowEx(atld, 0&, "atlaxwin71", vbNullString)
x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)
richedita = FindWindowEx(x, 0&, "richedit20a", vbNullString)
richedita = FindWindowEx(x, richedita, "richedit20a", vbNullString)
Call SendMessageByString(richedita, WM_SETTEXT, 0&, Text1.Text)
Call SendMessageLong(richedita, WM_KEYDOWN, 13, 0&)
If richedita = 0 Then
    Msgbox "Error: Cannot find window"
    Exit Sub
End If

The above is the code that gos into your timer1 to make a room spammer.


This Gos below in the module1

Code: Select all

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, lParam As Any) As Long
Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_SETTEXT = &HC
Public Const WM_KEYDOWN = &H100

Now if you have added the timer to your form1 click on it there is a menu to the right side yes? ok look for Enabled set it to False the go to Interval set it to ohhhh put in 300

now in your command1 button put Timer1.Enabled = "True"
now in your command2 button put Timer1.Enabled = "False"

True means start and false means stop just so you know
now were done with the room spammer if you did everything right you can try and run the app of compile you new project by click on file and make project thats in your vb6 software make sure its saved with the end .exe or it wont work. if i have left out anything i did this tut pretty fast this has to be one of my longest speeches in text ever... Good Luck.

Wow that was fast.... THANKS.... understood that
thanks for the time mate appreaciate it.

Cool by the way i like your lil image you made pretty funny. you make that i read in another topic you make graphics?

me? yup, work with photoshop,maya and aftereffects n stuff.. the norm

cool i find it kinda funny one of the people who uses my forum makes animes like that.

Whitch one is that

Dim ZaraByte As String could upload a sample project for it to help uu learn. This part is very confusing for me :

Under Declares type in FindWindow and add it then type in FindWindowEx add that type in SendMessage add that. Now....

The menu where you see decalre drop down and pick... Constants add type in WM_SETTEXT now were pretty much done with the API for now but dont close it. copy your code and put it in a Module now we wanna find this code in the module

i have no idea what to do here could u explain a little more .what to do in this window :

"Dim ZaraByte As String" Can You UpLoad the Described Project for me here.

Heres the Send Text Explain your not learning much from it because its just a code try learning the API Text Viewer!!

Thx Bro "Dim ZaraByte As String"
Actully i am not well educated regarding programming in vb..
i just have some knowledge of calculations & lil Knowledge of database... & unfortunaitly i never got a chance to work on API... I like to...But now in prectical life... & i hope u know the difficulties of Practicle life.

Anyway...thx for uploading this for me