Mensajes

a ok seba123neo

Pero si lees bien dice Programación VB no Visual Basic 6, Yo pienso que deberian acomodarlo porque El Programa que uso se llama Visual Basic no Visual Basic.Net entonces nos confundimos.

Bueno ya se que tengo que postear es aqui, pero arreglen esa categoria por favor.

Gracias

Bueno pues eso del titulo tengo una Duda o mas Bien es algo que no se como hacerlo.

Tengo una Aplicacion Creada en VB2008 y Quiero que la aplicacion al darle a un Boton esa se Minimize en los iconos donde sale la hora del sistema creo que se llama windows tray?

Bueno eso Necesito esto urgente porfavor...

Gracias.

Bueh Gracias jejeje

Si Bueno skapunky Lo que pasa es que tampoco soy un King en Programacion ps, entonces hay cosas que no se xDD.

De todas formas voy a ver que consigo, Gracias por el Apunte.!

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 (vb) [Seleccionar] Expandir

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 (vb) [Seleccionar] Expandir

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 (vb) [Seleccionar] Expandir

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 (vb) [Seleccionar] Expandir

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


mmm Gracias Jubjub

Cualquier Ayuda sera Tomada en cuenta eh! 

mojolloyo20

No me Habia puesto en Mente eso de Adjuntar archivos en los Spams mmm el Codigo seria Facil Ahora mismo me pongo a echarle coco.

Tengo una duda Descargaron el Programa y lo usaron ya? lo que pasa es que quiero saber si este se compilo  correctamente y no marca ningun error, por fa avisenme por aqui. y de Una Me pongo con lo de Los Adjuntos...

See Ya!!!

Bueh ya yo lo pase no es gran Cosa tarde como 1 Hora y media, pero creo que deje un Asunto pendiente?

Despues de Decodificar el Ultimo codigo y Unirlo con la direccion oculta me da como resultado este enlace.

http://www.hackertest.net/gb22332/admin.php

Yo al Abrirlo me Aparece un Guestbook "Libro de Visitas" Le estuve dando mil vueltas a este, aunque yo creo que aqui la cosa si se pone mas hacker, o solo es un nivel para que nos quedemos hay, Alguien lo paso? si alguien lo paso me pongo a echarle cabeza ya!!!.

Gracias

Les dejo un Tip para un Nivel especifico

Usa la "Image-inacion"

No soy Muy Avanzado en el Visual Basic asi que no os podre decir con lujo de detalles todo lo que puse eh!!! xDD

Lo del SMTP
Si esta incluido en el Code de la ProgressBar del Form Principal

Dim SMTPServer As New SmtpClient("smtp.gmail.com")

El Puerto que utilizo es el del Gmail que es 587 "SMTPServer.Port = 587"

La ProgressBar Se Activa con un Timer que es Activado por el Button "Flood"

Cualquier duda me preguntan y si quieren les dejo el Source.

Por cierto Soporta cualquier Correo los que estan hay en amarillos era para no poner muchos, pero soporta cualquiera y lo asocia con su servidor SMTP Respectivo.

------------------------------------Este ya esta Descontinuado------------------------------------

Esta es la nueva version Actualizada...!!!

http://foro.elhacker.net/net/sigo_actualizando_mis_programas_ahora_el_spammer_v20_renovado_servidor_smtp-t265988.0.html

______________________________________________________________________________________

Buenas a Todos los Users de ElHacker.net, Bueno yo soy nuevo aqui en el foro asi que espero me traten bien xD.

Bueno aqui les Dejo un Pequeño Spammer que Cree yo en El VB.NET

"No me hago Responsable del mal Uso de este Programa"

____________________________________________________________________



------------------------------------ACTUALIZADO------------------------------------

La version 1.2 esta Descontinuada ya, ahora hice la Version Blaze, que Tiene soporte para enviar Adjuntos, y Por fin!!! le puse lo de los Threads, y ya no se tilda y manda correos por montones mas Rapido.

Cambios:
Nueva Interface
SIN PROGRESSBARS
No Carga nada
No se Tilda
Soporta Adjuntos
Soporta cualquier Correo electronico.

Bueno espero les Guste esta Nueva Version les dejo unas Pics y el Link para Descargar.



Descargar

------------------------------------ACTUALIZADO------------------------------------