[VB2008] Aplicación Molesta (Virus de Broma)

Poska

_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

Anghios

Si quieres que quede mejor haz

ControlBox.hide

o en su defecto, si no funciona

Controlbox.enabled = false

Volcom

Perdon por revivir este hilo que tiene tanto tiempo pero esque nunca habia usado Virtual Basic. Tengo un par de dudas:

1º- Donde sale lo de formborderstyle?
2º- Donde se guarda la aplicacion?

Uso Virtual Basic 2010. Gracias de antemano.

Anghios

1-Selecciona el Form1 y a la derecha, en opciones te debe salir.
2-

En Mis Documentos\Visual Studio 2010\Projects\nombre del proyecto\nombre del proyecto\bin\debug