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