Reply To: Next we will learn how to use JK’s API SPY 5.1 to send text

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

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

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

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

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

change it to

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….

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

under

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.

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

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.