Hi all,

How would I make a text flooder in visual basic?

It's not for paltalk, It's for another application.

A tutorial would be great, Or simple how to edit a bit of code. I have the class name of the application I am talking about.

Cya.

Ah I was gonna show u how to do it on paltalk but it might be totaly different yo see we use this code in a module to send text to the paltalk room

Code: Select all

Function RoomSend(Sendit As String)
Dim mywindowclass As Long
Dim wtlsplitterwindow As Long
Dim atlb As Long
Dim atlaxwin As Long
Dim X As Long
Dim richedita As Long
Dim toolbarwindow As Long
Dim wtlbitmapbutton 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)
atlb = FindWindowEx(wtlsplitterwindow, 0&, "atl:0053b788", vbNullString)
atlaxwin = FindWindowEx(atlb, 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&, Sendit$)

If richedita = 0 Then
    Exit Function
End If

Do
    DoEvents
    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)
atlb = FindWindowEx(wtlsplitterwindow, 0&, "atl:0053b788", vbNullString)
atlaxwin = FindWindowEx(atlb, 0&, "atlaxwin71", vbNullString)
    X = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)
    toolbarwindow = FindWindowEx(X, 0&, "toolbarwindow32", vbNullString)
    wtlbitmapbutton = FindWindowEx(toolbarwindow, 0&, "wtl_bitmapbutton", vbNullString)
    Call SendMessageLong(wtlbitmapbutton, WM_LBUTTONDOWN, 0&, 0&)
    Call SendMessageLong(wtlbitmapbutton, WM_LBUTTONUP, 0&, 0&)
Loop Until wtlbitmapbutton <> 0
End Function

then on a timer we call it like this

Code: Select all

Call RoomSend(Text1.Text)

where text1 is where you put the messege its a mess lol

but can you tell us the windows handle to see if I can change it so it works for that program or can u give us the link to the program I might be able to do a quick flooder for ya by next week

Thanks for the reply mate,

Here is the handle for the place/ textbox where you send text through RichEdit20T.

I'm sure Paltalk is different!

If you could help in anyway that would be great.

Thanks mate

Ah it sounds like is close to the paltalk code hey but whas the ehole window handle where the richt20 is, and whats the program

locohacker wrote:Ah it sounds like is close to the paltalk code hey but whas the ehole window handle where the richt20 is, and whats the program

Chat application made by a friend.

umm okie, but i need to check it can u pm it to me