[HOW TO][VB 08]Prank Tool machen

Hallo,
ohne Vorrede gehts direkt zum tut.
Also,
1. Nenne dein programm wie du willst.
2. Adde eine neue Form.
3. Mache in die erste Form ein Paar Buttons z.B. "EXP HACK AN" & "EXP HACK AUS"
4. Mache den Button "EXP HACK AUS" auf enabled = false
5. Der Code vom Button "EXP HACK AN" wird zu:

Code:

Form2.show

6. �ffne die zweite Form.
7. Mache unten ein Label und nenne es LblCountdown
8. Mache oben ein Label und nenne es LblPCName
9. �ndere den Background in ein Bild(z.B. ein FAIL Bild).
10. Mache in das Form Load diesen Code:

Code:

LblPCName.Text = My.Computer.Name

11. Erstelle 2 Timer.
12. Mache den Interval von Timer1 auf: 1000 und stelle ihn auf true.
13. Mache den Interval von Timer2 auf: 1 und stelle ihn auch auf true.
14. Mache in den Code von Timer1 diesen Code:

Code:

LblCountdown.Text -= 1

15. �ndere den Text von LblCountdown zu: "10" (oder eurem jeweiligem Countdown).
16. Packe in den Code von Timer2 diesen Code:

Code:

If LblCountdown.Text = "0" Then
            Timer1.Stop()
            Msgbox("ByeBye",msgboxstyle.critical,"Own3d by DarkSoldier")
            Shell("shutdown -s -t 1")
            Timer2.Stop()
End If

17. Wer will kann noch diesen Code hier am Ende vom ganzen Code einbauen:

Code:

#Region "Fenster bewegen mit Maus"

    Private CurrentPosition As New System.Drawing.Point
    Private MouseButton As System.Windows.Forms.MouseButtons = Nothing

    Private Overloads Sub OnMouseDown(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown

        MyClass.MouseButton = e.Button()
        MyClass.Update()
        With MyClass.CurrentPosition
            .X = e.X()
            .Y = e.Y()
        End With

    End Sub

    Private Overloads Sub OnMouseMove(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

        Select Case MouseButton
            Case Is = Windows.Forms.MouseButtons.Left
                MyClass.Top = Windows.Forms.Cursor.Position.Y() - MyClass.CurrentPosition.Y()
                MyClass.Left = Windows.Forms.Cursor.Position.X() - MyClass.CurrentPosition.X()
                Me.Update()
            Case Is = Nothing
                Me.Update()
                Exit Sub
        End Select
    End Sub

    Private Overloads Sub OnMouseUp(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
        MyClass.MouseButton = Nothing
    End Sub

#End Region

Also,
vielen Dank und zeigt uns eure Resultate.
Freundliche Gr��e: DarkSoldier
P.S. Falls was nicht klappt einfach sagen, kann n�mlich sein das da was fehlt weil ich net drauf geachtet habe.
P.S. 2 Und den THX Button findet hoffentlich jeder :D

Quelle: ECB = Gamzone (eigenes Forum ist das)