RotMG Simple spam bot
Simple spam bot
Haven't found any spam bots other than some on hack clients so i made my own.
It's a really simple one, you can set the Text 1 and Text 2 and the Interval in ms.
Virus scans :
http://virusscan.jotti.org/en/scanre...33afa10545a073
https://www.metascan-online.com/en/s...31a878e4db7fb4
Source code ( VB ) :
Public Class Form1
Dim abc As Integer = 1
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If Timer1.Enabled = True Then
Timer1.Stop()
Button2.Text = ("Start")
Else : Timer1.Start()
Button2.Text = ("Stop")
End If
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If abc = 1 Then
SendKeys.Send("{Enter}")
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{Enter}")
Else
SendKeys.Send("{Enter}")
SendKeys.Send(TextBox2.Text)
SendKeys.Send("{Enter}")
End If
If abc = 0 Then
abc = 1
Else : abc = 0
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Interval = TextBox3.Text
End Sub
End Class
Screen :
http://i.imgur.com/apV6Ikk.jpg
Warning, you can't use your computer if this program is running.
Haven't found any spam bots other than some on hack clients so i made my own.
It's a really simple one, you can set the Text 1 and Text 2 and the Interval in ms.
Virus scans :
http://virusscan.jotti.org/en/scanre...33afa10545a073
https://www.metascan-online.com/en/s...31a878e4db7fb4
Source code ( VB ) :
Source Code
Public Class Form1
Dim abc As Integer = 1
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If Timer1.Enabled = True Then
Timer1.Stop()
Button2.Text = ("Start")
Else : Timer1.Start()
Button2.Text = ("Stop")
End If
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If abc = 1 Then
SendKeys.Send("{Enter}")
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{Enter}")
Else
SendKeys.Send("{Enter}")
SendKeys.Send(TextBox2.Text)
SendKeys.Send("{Enter}")
End If
If abc = 0 Then
abc = 1
Else : abc = 0
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Interval = TextBox3.Text
End Sub
End Class
Screen :
http://i.imgur.com/apV6Ikk.jpg
Warning, you can't use your computer if this program is running.
Originally Posted by grosmouton
