Like

Auto Talker/Spammer | VB

Platform:  Visual Basic
Published  Mar 12, 2011
Updated  Mar 12, 2011
560  3
This will be a pain in the ass to post so I'll just provide pictures to compare.

I created this GUI when I was bored, it's just an example of how it could be.


This is the GUI that matches the snippet:


Public Class Form1
Dim multiplyfactor As Integer = 1000
Private Sub stopfunction()
GroupBox8.Enabled = True
Button2.Enabled = False
Button2.ForeColor = Color.Black
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
NumericUpDown1.Enabled = True
NumericUpDown2.Enabled = True
NumericUpDown3.Enabled = True
NumericUpDown4.Enabled = True
Button2.Enabled = True
GroupBox1.Enabled = True
CheckBox6.Enabled = True
Button1.Enabled = True
CheckBox5.Enabled = True
Label5.Enabled = True
Label7.Text = "0"
Label8.Text = "0"
Label9.Text = "0"
Label10.Text = "0"
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button2.Enabled = True
Button2.ForeColor = Color.Red
GroupBox1.Enabled = False
CheckBox6.Enabled = False
Button1.Enabled = False
CheckBox5.Enabled = False
Label5.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
NumericUpDown1.Enabled = False
NumericUpDown2.Enabled = False
NumericUpDown3.Enabled = False
NumericUpDown4.Enabled = False
Dim startafter As Integer = Convert.ToDecimal(TextBox2.Text) * 1000
If CheckBox5.Checked = True Then
Threading.Thread.Sleep(startafter)

End If
If CheckBox3.Checked = True Then
Timer1.Interval = Convert.ToDecimal(TextBox3.Text) * multiplyfactor
Timer1.Start()
End If
If CheckBox1.Checked = True Then
Timer2.Interval = Convert.ToDecimal(TextBox5.Text) * multiplyfactor
Timer2.Start()
End If
If CheckBox2.Checked = True Then
Timer3.Interval = Convert.ToDecimal(TextBox6.Text) * multiplyfactor
Timer3.Start()
End If
If CheckBox4.Checked = True Then
Timer4.Interval = Convert.ToDecimal(TextBox8.Text) * multiplyfactor
Timer4.Start()
End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If CheckBox10.Checked = True And CheckBox10.Enabled = True Then
Label7.Text = Label7.Text + 1
If Label7.Text >= Convert.ToDecimal(TextBox10.Text) And CheckBox10.Enabled = True Then
Timer1.Stop()
Label7.Text = "0"
If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False And Timer4.Enabled = False Then
stopfunction()
End If
End If
End If
If CheckBox14.Checked = True And CheckBox14.Enabled = True Then
Label14.Text = Label14.Text + 1
If Label14.Text > 30 Then
Label14.ForeColor = Color.Orange
End If
If Label14.Text > 50 Then
Label14.ForeColor = Color.Red
End If
End If
If CheckBox16.Enabled = True Then
Label15.Text = Label15.Text + 1
End If
If Label15.Text > 200 Then
Label15.ForeColor = Color.Orange
End If
If Label15.Text > 500 Then
Label15.ForeColor = Color.Red
End If
SendKeys.Send(TextBox1.Text & "{ENTER}")
End Sub

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

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If CheckBox9.Checked = True And CheckBox9.Enabled = True Then
Label8.Text = Label8.Text + 1
If Label8.Text >= Convert.ToDecimal(TextBox11.Text) And CheckBox9.Enabled = True Then
Timer2.Stop()
Label8.Text = "0"
If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False And Timer4.Enabled = False Then
stopfunction()
End If
End If
End If
If CheckBox13.Checked = True And CheckBox13.Enabled = True Then
Label13.Text = Label13.Text + 1
If Label13.Text > 30 Then
Label13.ForeColor = Color.Orange
End If
If Label13.Text > 50 Then
Label13.ForeColor = Color.Red
End If
End If
If CheckBox16.Enabled = True Then
Label15.Text = Label15.Text + 1
End If
If Label15.Text > 200 Then
Label15.ForeColor = Color.Orange
End If
If Label15.Text > 500 Then
Label15.ForeColor = Color.Red
End If
SendKeys.Send(TextBox4.Text & "{ENTER}")
End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
If CheckBox11.Checked = True And CheckBox11.Enabled = True Then
Label9.Text = Label9.Text + 1
If Label9.Text >= Convert.ToDecimal(TextBox12.Text) And CheckBox11.Enabled = True Then
Timer3.Stop()
Label9.Text = "0"
If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False And Timer4.Enabled = False Then
stopfunction()
End If
End If
End If
If CheckBox15.Checked = True And CheckBox15.Enabled = True Then
Label12.Text = Label12.Text + 1
If Label12.Text > 30 Then
Label12.ForeColor = Color.Orange
End If
If Label12.Text > 50 Then
Label12.ForeColor = Color.Red
End If
End If
If CheckBox16.Enabled = True Then
Label15.Text = Label15.Text + 1
End If
If Label15.Text > 200 Then
Label15.ForeColor = Color.Orange
End If
If Label15.Text > 500 Then
Label15.ForeColor = Color.Red
End If
SendKeys.Send(TextBox7.Text & "{ENTER}")
End Sub

Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
If CheckBox8.Checked = True And CheckBox8.Enabled = True Then
Label10.Text = Label10.Text + 1
If Label10.Text >= Convert.ToDecimal(TextBox13.Text) And CheckBox8.Enabled = True Then
Timer4.Stop()
Label10.Text = "0"
If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False And Timer4.Enabled = False Then
stopfunction()
End If
End If
End If
If CheckBox12.Checked = True And CheckBox12.Enabled = True Then
Label11.Text = Label11.Text + 1
If Label11.Text > 30 Then
Label11.ForeColor = Color.Orange
End If
If Label11.Text > 50 Then
Label11.ForeColor = Color.Red
End If
End If
If CheckBox16.Enabled = True Then
Label15.Text = Label15.Text + 1
End If
If Label15.Text > 200 Then
Label15.ForeColor = Color.Orange
End If
If Label15.Text > 500 Then
Label15.ForeColor = Color.Red
End If
SendKeys.Send(TextBox9.Text & "{ENTER}")
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim num_characters As Integer
Dim i As Integer
Dim txt1 As String
Dim ch As Integer
Randomize()
num_characters = Convert.ToDecimal(NumericUpDown1.Text)
For i = 1 To num_characters
ch = Int((26 + 26 + 10) * Rnd())
If ch < 26 Then
txt1 = txt1 & Chr(ch + Asc("A"))
ElseIf ch < 2 * 26 Then
ch = ch - 26
txt1 = txt1 & Chr(ch + Asc("a"))
Else
ch = ch - 26 - 26
txt1 = txt1 & Chr(ch + Asc("0"))
End If
Next i
TextBox1.Text = txt1
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim num_characters As Integer
Dim i As Integer
Dim txt1 As String
Dim ch As Integer
Randomize()
num_characters = Convert.ToDecimal(NumericUpDown2.Text)
For i = 1 To num_characters
ch = Int((26 + 26 + 10) * Rnd())
If ch < 26 Then
txt1 = txt1 & Chr(ch + Asc("A"))
ElseIf ch < 2 * 26 Then
ch = ch - 26
txt1 = txt1 & Chr(ch + Asc("a"))
Else
ch = ch - 26 - 26
txt1 = txt1 & Chr(ch + Asc("0"))
End If
Next i
TextBox4.Text = txt1
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim num_characters As Integer
Dim i As Integer
Dim txt1 As String
Dim ch As Integer
Randomize()
num_characters = Convert.ToDecimal(NumericUpDown3.Text)
For i = 1 To num_characters
ch = Int((26 + 26 + 10) * Rnd())
If ch < 26 Then
txt1 = txt1 & Chr(ch + Asc("A"))
ElseIf ch < 2 * 26 Then
ch = ch - 26
txt1 = txt1 & Chr(ch + Asc("a"))
Else
ch = ch - 26 - 26
txt1 = txt1 & Chr(ch + Asc("0"))
End If
Next i
TextBox7.Text = txt1
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim num_characters As Integer
Dim i As Integer
Dim txt1 As String
Dim ch As Integer
Randomize()
num_characters = Convert.ToDecimal(NumericUpDown4.Text)
For i = 1 To num_characters
ch = Int((26 + 26 + 10) * Rnd())
If ch < 26 Then
txt1 = txt1 & Chr(ch + Asc("A"))
ElseIf ch < 2 * 26 Then
ch = ch - 26
txt1 = txt1 & Chr(ch + Asc("a"))
Else
ch = ch - 26 - 26
txt1 = txt1 & Chr(ch + Asc("0"))
End If
Next i
TextBox9.Text = txt1
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim num_characters As Integer
Dim i As Integer
Dim txt1 As String
Dim ch As Integer
Randomize()
num_characters = Convert.ToDecimal(NumericUpDown1.Text)
For i = 1 To num_characters
ch = Int((26 + 26 + 10) * Rnd())
If ch < 26 Then
txt1 = txt1 & Chr(ch + Asc("A"))
ElseIf ch < 2 * 26 Then
ch = ch - 26
txt1 = txt1 & Chr(ch + Asc("a"))
Else
ch = ch - 26 - 26
txt1 = txt1 & Chr(ch + Asc("0"))
End If
Next i
TextBox1.Text = txt1

Dim txt2 As String
num_characters = Convert.ToDecimal(NumericUpDown2.Text)
For i = 1 To num_characters
ch = Int((26 + 26 + 10) * Rnd())
If ch < 26 Then
txt2 = txt2 & Chr(ch + Asc("A"))
ElseIf ch < 2 * 26 Then
ch = ch - 26
txt2 = txt2 & Chr(ch + Asc("a"))
Else
ch = ch - 26 - 26
txt2 = txt2 & Chr(ch + Asc("0"))
End If
Next i
TextBox4.Text = txt2

Dim txt3 As String
num_characters = Convert.ToDecimal(NumericUpDown3.Text)
For i = 1 To num_characters
ch = Int((26 + 26 + 10) * Rnd())
If ch < 26 Then
txt3 = txt3 & Chr(ch + Asc("A"))
ElseIf ch < 2 * 26 Then
ch = ch - 26
txt3 = txt3 & Chr(ch + Asc("a"))
Else
ch = ch - 26 - 26
txt3 = txt3 & Chr(ch + Asc("0"))
End If
Next i
TextBox7.Text = txt3

Dim txt4 As String
num_characters = Convert.ToDecimal(NumericUpDown4.Text)
For i = 1 To num_characters
ch = Int((26 + 26 + 10) * Rnd())
If ch < 26 Then
txt4 = txt4 & Chr(ch + Asc("A"))
ElseIf ch < 2 * 26 Then
ch = ch - 26
txt4 = txt4 & Chr(ch + Asc("a"))
Else
ch = ch - 26 - 26
txt4 = txt4 & Chr(ch + Asc("0"))
End If
Next i
TextBox9.Text = txt4
End Sub

Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
If CheckBox5.Checked = True Then
TextBox2.Enabled = True
Label5.Enabled = True
Else
TextBox2.Enabled = False
Label5.Enabled = False
End If
End Sub

Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
If CheckBox6.Checked = True Then
TopMost = True
Else
TopMost = False
End If
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim site As String = "http://www.hackforums.net/member.php?action=profile&uid=647993"
Process.Start(site)
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = True Then
multiplyfactor = 1
End If
End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
If RadioButton4.Checked = True Then
multiplyfactor = 1
End If
End Sub

Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
If RadioButton6.Checked = True Then
multiplyfactor = 1
End If
End Sub

Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged
If RadioButton8.Checked = True Then
multiplyfactor = 1
End If
End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then
multiplyfactor = 1000
End If
End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
If RadioButton3.Checked = True Then
multiplyfactor = 1000
End If
End Sub

Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
If RadioButton5.Checked = True Then
multiplyfactor = 1000
End If
End Sub

Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged
If RadioButton7.Checked = True Then
multiplyfactor = 1000
End If
End Sub

Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
If CheckBox7.Checked = True Then
CheckBox8.Enabled = True
CheckBox9.Enabled = True
CheckBox10.Enabled = True
CheckBox11.Enabled = True
If CheckBox8.Checked = True Then
TextBox13.Enabled = True
Label6.Enabled = True
End If
If CheckBox9.Checked = True Then
TextBox11.Enabled = True
Label3.Enabled = True
End If
If CheckBox10.Checked = True Then
TextBox10.Enabled = True
Label2.Enabled = True
End If
If CheckBox11.Checked = True Then
TextBox12.Enabled = True
Label4.Enabled = True
End If
Else
CheckBox8.Enabled = False
CheckBox9.Enabled = False
CheckBox10.Enabled = False
CheckBox11.Enabled = False
TextBox10.Enabled = False
TextBox11.Enabled = False
TextBox12.Enabled = False
TextBox13.Enabled = False
Label2.Enabled = False
Label3.Enabled = False
Label4.Enabled = False
Label6.Enabled = False
End If
End Sub

Private Sub CheckBox10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox10.CheckedChanged
If CheckBox10.Checked = True Then
TextBox10.Enabled = True
Label2.Enabled = True
Else
TextBox10.Enabled = False
Label2.Enabled = False
End If
End Sub

Private Sub CheckBox9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox9.CheckedChanged
If CheckBox9.Checked = True Then
TextBox11.Enabled = True
Label3.Enabled = True
Else
TextBox11.Enabled = False
Label3.Enabled = False
End If
End Sub

Private Sub CheckBox11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox11.CheckedChanged
If CheckBox11.Checked = True Then
TextBox12.Enabled = True
Label4.Enabled = True
Else
TextBox12.Enabled = False
Label4.Enabled = False
End If
End Sub

Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged
If CheckBox8.Checked = True Then
TextBox13.Enabled = True
Label6.Enabled = True
Else
TextBox13.Enabled = False
Label6.Enabled = False
End If
End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox3.Checked = True Then
TextBox1.Enabled = True
TextBox3.Enabled = True
GroupBox4.Enabled = True
Else
TextBox1.Enabled = False
TextBox3.Enabled = False
GroupBox4.Enabled = False
End If
End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
TextBox4.Enabled = True
TextBox5.Enabled = True
GroupBox5.Enabled = True
Else
TextBox4.Enabled = False
TextBox5.Enabled = False
GroupBox5.Enabled = False
End If
End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then
TextBox6.Enabled = True
TextBox7.Enabled = True
GroupBox6.Enabled = True
Else
TextBox6.Enabled = False
TextBox7.Enabled = False
GroupBox6.Enabled = False
End If
End Sub

Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
If CheckBox4.Checked = True Then
TextBox8.Enabled = True
TextBox9.Enabled = True
GroupBox7.Enabled = True
Else
TextBox8.Enabled = False
TextBox9.Enabled = False
GroupBox7.Enabled = False
End If
End Sub

Private Sub CheckBox16_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox16.CheckedChanged
If CheckBox16.Checked = True Then
Label15.Visible = True
CheckBox12.Enabled = True
CheckBox13.Enabled = True
CheckBox14.Enabled = True
CheckBox15.Enabled = True
If CheckBox14.Checked = True Then
Label14.Enabled = True
Button9.Enabled = True
End If
If CheckBox13.Checked = True Then
Label13.Enabled = True
Button10.Enabled = True
End If
If CheckBox15.Checked = True Then
Label12.Enabled = True
Button11.Enabled = True
End If
If CheckBox12.Checked = True Then
Label11.Enabled = True
Button12.Enabled = True
End If
Else
Label15.Visible = False
CheckBox12.Enabled = False
CheckBox13.Enabled = False
CheckBox14.Enabled = False
CheckBox15.Enabled = False
Label11.Enabled = False
Label12.Enabled = False
Label13.Enabled = False
Label14.Enabled = False
Button9.Enabled = False
Button10.Enabled = False
Button11.Enabled = False
Button12.Enabled = False
End If
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Label14.Text = "0"
Label14.ForeColor = Color.White
End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Label13.Text = "0"
Label13.ForeColor = Color.White
End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Label12.Text = "0"
Label12.ForeColor = Color.White
End Sub

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Label11.Text = "0"
Label11.ForeColor = Color.White
End Sub

Private Sub CheckBox14_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox14.CheckedChanged
If CheckBox14.Checked = True Then
Label14.Enabled = True
Button9.Enabled = True
Else
Label14.Enabled = False
Button9.Enabled = False
End If
End Sub

Private Sub CheckBox13_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox13.CheckedChanged
If CheckBox13.Checked = True Then
Label13.Enabled = True
Button10.Enabled = True
Else
Label13.Enabled = False
Button10.Enabled = False
End If
End Sub

Private Sub CheckBox15_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox15.CheckedChanged
If CheckBox15.Checked = True Then
Label12.Enabled = True
Button11.Enabled = True
Else
Label12.Enabled = False
Button11.Enabled = False
End If
End Sub

Private Sub CheckBox12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox12.CheckedChanged
If CheckBox12.Checked = True Then
Label11.Enabled = True
Button12.Enabled = True
Else
Label11.Enabled = False
Button12.Enabled = False
End If
End Sub

Private Sub Label15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label15.Click

End Sub

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
Label11.Text = "0"
Label12.Text = "0"
Label13.Text = "0"
Label14.Text = "0"
Label15.Text = "0"
Label11.ForeColor = Color.Black
Label12.ForeColor = Color.Black
Label13.ForeColor = Color.Black
Label14.ForeColor = Color.Black
Label15.ForeColor = Color.Black
End Sub

Comments

Sign in to comment.
BigSteve   -  Mar 16, 2012
[url] http://picpaste.com/fail.JPG [/url] image of all this code failing
 Respond  
Bielie   -  Mar 25, 2011
Looks cool please make it in to an exe file to run it. :)
 Respond  
Merbo   -  Mar 12, 2011
Post a file, getting the source isnt too swell for those with different builds of an OS. Try posting the .vb or .vbs or compiled .exe.
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.