Kali ini saya memakai vb.net 2008
bagi yang belum mempunyai vb.net bisa download di bawah ini :
VB.NET 2008
VB.NET 2010
kalo sudah di download buka vb.net kalian
[+] klik File > New Project
[+] Klik Windows Forms Application > lalu isikan name dan klik OK
maka akan keluar form design nya
[+] Lalu klik kanan di toolbox > Choose items
bagi yang belum mempunyai vb.net bisa download di bawah ini :
VB.NET 2008
VB.NET 2010
kalo sudah di download buka vb.net kalian
[+] klik File > New Project
[+] Klik Windows Forms Application > lalu isikan name dan klik OK
maka akan keluar form design nya
[+] Lalu klik kanan di toolbox > Choose items
[+] download dulu MSWINSCK.OCX >
Klik tab COM Components > Browse > pilih lokasi MSWINSCK.OCX tadi > ok
[+] tambahkan Komponen
2 Button
1 Textbox
1 AxWinsock
jadi seperti gambar di bawah ini :
Klik tab COM Components > Browse > pilih lokasi MSWINSCK.OCX tadi > ok
[+] tambahkan Komponen
2 Button
1 Textbox
1 AxWinsock
jadi seperti gambar di bawah ini :
dan klik kanan di form > view code > delete semua nya lalu paste kan code di bawah
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "Nama Komputer : " & System.Environment.MachineName
TextBox1.AppendText(Environment.NewLine & "Nama OS : " & My.Computer.Info.OSFullName)
TextBox1.AppendText(Environment.NewLine & "IP Komputer : " & AxWinsock1.LocalIP)
TextBox1.AppendText(Environment.NewLine & "Port Komputer : " & AxWinsock1.LocalPort)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("EMAIL ANDA", "PASSWORD ANDA") 'pakai gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("EMAIL ANDA")
mail.To.Add("EMAIL ANDA")
mail.Subject = "data komputer"
mail.Body = TextBox1.Text & ", "
smtpServer.Send(mail)
MsgBox("Sukses silahkan cek email!")
End Sub
End Class
Note : yang berwarna merah ganti dengan login email kalian
Dan coba di jalankan ( f5 ) , lalu klik Tampilkan Data , maka textbox akan menampilkan data komputer, lalu klik KIRIM , maka komputer akan mengirim isi textbox ke email ente
cek di inbox email ente
cara di atas juga bisa dibuat jadi keylogger, phising send email dll