Simple Spam Bot [Source Code]

[skepter]

Ok well, here is a source code of a simple spam bot, some things need to be debugged but it works fine.

Private Sub cmdstart_Click()
Timer1.Enabled = True
Timer1.interval = Val(interval.Text)
interval.Enabled = True
Text.Enabled = True
End Sub

Private Sub cmdstop_Click()
Timer1.Enabled = False
interval.Enabled = True
Text.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim SendKeys(lblcolor.Caption + lbleffect.Caption + text.text + " -" + text2.text + "-")
SendKeys = "{Enter}"
End Sub

Private Sub cmdexit_Click()
End
End Sub

and yes I know, its noobish, but its what I got for sendkeys. I'll keep working on my own and add more features.

[Mr. Hasselhoff]

Don't forget this is for Visual Basic 6.

If I can find, I have a tutorial on how to do a spammer for AIM or anything else using API methods, meaning you can send spam even when its not the active window nor windowed, can be minimized.

[anonymouse187]

ROFL, TWolves, thats so easy, I'll write that code right now... You use the FindWindow thinggy and so on, I have it saved as a .txt file, I'll post it in a minute.

EDIT: Found it on MSDN.


' Get a handle to an application window.
Declare Auto Function FindWindow Lib "USER32.DLL" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As IntPtr

' Activate an application window.
Declare Auto Function SetForegroundWindow Lib "USER32.DLL" _
(ByVal hWnd As IntPtr) As Boolean

' Send a series of key presses to the Calculator application.
Private Sub button1_Click(ByVal sender As Object, _
ByVal e As EventArgs) Handles button1.Click

' Get a handle to the Calculator application. The window class
' and window name were obtained using the Spy++ tool.
Dim calculatorHandle As IntPtr = FindWindow("SciCalc", "Calculator")

' Verify that Calculator is a running process.
If calculatorHandle = IntPtr.Zero Then
MsgBox("Calculator is not running.")
Return
End If

' Make Calculator the foreground application and send it
' a set of calculations.
SetForegroundWindow(calculatorHandle)
SendKeys.SendWait("111")
SendKeys.SendWait("*")
SendKeys.SendWait("11")
SendKeys.SendWait("=")
End Sub


EDIT Again: Forgot, that opens the window up, I'll get the correct code.

[Mr. Hasselhoff]

Yeah buts its an actual tutotiral, nto just posting code. FOr every line of code, they have about 5 explaining it.

[anonymouse187]

http://pscode.com/vb/scripts/ShowCode.asp?txtCodeId=41158&lngWId=1

Figured someone would want to see it.

[Mr. Hasselhoff]

Thats different, thats using tocSock. Quit veering of topic dousche.

[anonymouse187]

I know...