Make Email Sender

Tools :

1. Microsoft Visual Basic 2008
2. PC/Laptop
3. Koneksi Internet(buat ngetes berhasil apa kga gan)

1. Buat project baru di VB 2008
2. 1 Form 1 Form Login
3. Setting di Project agan

4. Paste kode ini pada button OK di form login

If txtPassword.Text <> "" Then
                        msgConf = MsgBox("Anda Yakin sudah memasukan ID & Password dengan benar?", MsgBoxStyle.YesNo, "Konfirmasi")
                        Select Case msgConf
                                Case vbYes
                                        Form1.Show()
                                        Me.Hide()

5. Lalu tambahkan 3 Text box dan 1 Button Kira" begini

5. Paste kode ini pada button Form Utama (Form1)

MailFrom.From = New MailAddress(Login1.txtEmail.Text)
                MailFrom.To.Add(txtRecv.Text)
                MailFrom.Body = txtPesan.Text
                MailFrom.Subject = txtJudul.Text
                'SMTP
                SMTP.EnableSsl = True
                SMTP.Port = "587"
                SMTP.Host = "smtp.gmail.com"
                SMTP.Credentials = New Net.NetworkCredential(Login1.txtEmail.Text, Login1.txtPassword.Text)
                SMTP.Send(MailFrom)
                MsgBox("Mail Sended ^^")

6. Paste code ini juga di paling atas 

Imports System.Net.Mail
Public Class Form1
        Dim MailFrom As New MailMessage
        Dim SMTP As New SmtpClient

7. Compile

Code di atas bisa di tambah code keylogger


tambahan,,
send attachmet.

tambah 1 Textbox berinama "txtattachmnet"
Paste kode ini pada button OK di form login

Dim attachment As New System.Net.Mail.Attachment(txtattachmnet.Text)
                Mail.Attachments.Add(attachment)

jadi kaya seperti ini kira-kira

MailFrom.From = New MailAddress(Login1.txtEmail.Text)
                                MailFrom.To.Add(txtRecv.Text)
                                MailFrom.Body = txtPesan.Text
                                MailFrom.Subject = txtJudul.Text
                                'SMTP
                                Dim attachment As New System.Net.Mail.Attachment(txtattachmnet.Text)
                                'isi txtattachmnet.Text >>>  C:\blah\blah.txt(.rar, .exe, .txt)
                                Mail.Attachments.Add(attachment)

                                SMTP.EnableSsl = True
                                SMTP.Port = "587"
                                SMTP.Host = "smtp.gmail.com"
                                SMTP.Credentials = New Net.NetworkCredential(Login1.txtEmail.Text, Login1.txtPassword.Text)
                                SMTP.Send(MailFrom)
                                MsgBox("Mail Sended ^^")

di global jangan lupa tambah

Imports System.Net.Mail.Attachment

tinggal diatur aja gan,, suka-suka ente..
NB : gunakan

Try
' isi sc nya
Catch ex As Exception
End Try