Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement