Public Class Form1
Sub message()
If TextBox1.Text = "" And TextBox2.Text = "" Then
MsgBox("Ada kotak yang belum diisi")
End If
If TextBox1.Text = "" And TextBox2.Text <> "" Then
MsgBox("Kotak nomer 1 belum diisi")
End If
If TextBox1.Text <> "" And TextBox2.Text = "" Then
MsgBox("Kotak nomer 2 belum diisi")
End If
If TextBox1.Text <> "" And TextBox2.Text <> "" And NumericUpDown1.Value <> 0 And NumericUpDown2.Value <> 0 Then
Timer1.Interval = NumericUpDown2.Value
Timer1.Start()
End If
If TextBox1.Text <> "" And TextBox2.Text <> "" And NumericUpDown1.Value = 0 And NumericUpDown2.Value <> 0 Then
MsgBox("Jumlah Spam harus lebih dari 0")
End If
If TextBox1.Text <> "" And TextBox2.Text <> "" And NumericUpDown1.Value <> 0 And NumericUpDown2.Value = 0 Then
MsgBox("Interval harus lebih dari 0")
End If
If TextBox1.Text <> "" And TextBox2.Text <> "" And NumericUpDown1.Value = 0 And NumericUpDown2.Value = 0 Then
MsgBox("Interval dan Jumlah Spam harus lebih dari 0")
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
message()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If NumericUpDown1.Value = 0 Then
Timer1.Stop()
Me.Show()
Else
NumericUpDown1.Value -= 1
If RadioButton1.Checked Then
MsgBox(TextBox1.Text, MsgBoxStyle.Information, TextBox2.Text)
End If
If RadioButton2.Checked Then
MsgBox(TextBox1.Text, MsgBoxStyle.Critical, TextBox2.Text)
End If
If RadioButton3.Checked Then
MsgBox(TextBox1.Text, MsgBoxStyle.AbortRetryIgnore, TextBox2.Text)
End If
If RadioButton4.Checked Then
MsgBox(TextBox1.Text, MsgBoxStyle.ApplicationModal, TextBox2.Text)
End If
If RadioButton5.Checked Then
MsgBox(TextBox1.Text, MsgBoxStyle.Exclamation, TextBox2.Text)
End If
If RadioButton6.Checked Then
MsgBox(TextBox1.Text, MsgBoxStyle.MsgBoxHelp, TextBox2.Text)
End If
If RadioButton7.Checked Then
MsgBox(TextBox1.Text, MsgBoxStyle.MsgBoxRight, TextBox2.Text)
End If
If RadioButton8.Checked Then
MsgBox(TextBox1.Text, MsgBoxStyle.MsgBoxRtlReading, TextBox2.Text)
End If
If RadioButton9.Checked Then
MsgBox(TextBox1.Text, MsgBoxStyle.MsgBoxSetForeground, TextBox2.Text)
End If
If RadioButton10.Checked Then
MsgBox(TextBox1.Text, MsgBoxStyle.OkOnly, TextBox2.Text)
End If
If RadioButton11.Checked Then
MsgBox(TextBox1.Text, MsgBoxStyle.Question, TextBox2.Text)
End If
If RadioButton12.Checked Then
MsgBox(TextBox1.Text, MsgBoxStyle.YesNoCancel, TextBox2.Text)
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox1.Text = "" And TextBox2.Text = "" Then
MsgBox("Ada kotak yang belum diisi")
End If
If TextBox1.Text = "" And TextBox2.Text <> "" Then
MsgBox("Kotak nomer 1 belum diisi")
End If
If TextBox1.Text <> "" And TextBox2.Text = "" Then
MsgBox("Kotak nomer 2 belum diisi")
End If
If TextBox1.Text <> "" And TextBox2.Text <> "" And NumericUpDown1.Value <> 0 And NumericUpDown2.Value <> 0 Then
Me.Hide()
Timer1.Interval = NumericUpDown2.Value
Timer1.Start()
End If
If TextBox1.Text <> "" And TextBox2.Text <> "" And NumericUpDown1.Value = 0 And NumericUpDown2.Value <> 0 Then
MsgBox("Jumlah Spam harus lebih dari 0")
End If
If TextBox1.Text <> "" And TextBox2.Text <> "" And NumericUpDown1.Value <> 0 And NumericUpDown2.Value = 0 Then
MsgBox("Interval harus lebih dari 0")
End If
If TextBox1.Text <> "" And TextBox2.Text <> "" And NumericUpDown1.Value = 0 And NumericUpDown2.Value = 0 Then
MsgBox("Interval dan Jumlah Spam harus lebih dari 0")
End If
End Sub
Private Sub SpammingProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpammingProgramToolStripMenuItem.Click
Form2.Show()
End Sub
Private Sub SpammingTextToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpammingTextToolStripMenuItem.Click
Form3.Show()
End Sub
End Class
Comments