Programming a spambot

[Rotten]

Hiya dudes, does anybody know a way to make program to (for example) write text "lol" to place where you have your writing symbol u know, and it would also press enter itself?

[Arce]

I'm not sure I understand what you're asking...

[iFone]

I think what he's trying to say is, how would you make a bot that repeats a message entered in a text box, but thats just how I read it.

[Don Pwnious]

well then isn't it a typical text box? i dnt know, but are you try to use a instant messenger to spam bot like a sexbot or something?

[MarauderIIC]

http://msdn2.microsoft.com/en-us/library/ms171548.aspx

Scroll to 'To send a keystroke to a different application'

Edit: Disclaimer - I do not support malicious spambots =p

[jtst1]

Get visual basic 8
here is my source code, i'm not a real good programmer, if one at all, but i've been working on a multiapplication and a spam bot just happens to be in it =p
o, one last thing i know the picture says "use space" i'm still working on that.

Code: Select all

Public Class Autotyper

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Interval = TextBox2.Text
        SendKeys.Send(TextBox1.Text)
        If CheckBox1.Checked = True Then
            SendKeys.Send("{enter}")
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

    End Sub

    Private Sub Autotyper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

also here is a screen shot:

[dandymcgee]

Use autoit! http://www.autoitscript.com

Use "Insert" as a hotkey to send "LINE OF TEXT" and then Enter.

Code: Select all

HotKeySet("{Ins}", "SendKeys")

While 1
	Sleep(10)
WEnd

Func SendKeys()
	Send("LINE OF TEXT {Enter}")
EndFunc