VB6 Prank Project

VB6 Prank Project

Here you will learn to make very simple Programe to prank you classmates or friends

This Is a visual basic 6.0 project

1.      Start a New Project

File -> New Project -> Stenderd EXE

2.      Add label and a timer to your Form and set its intervel to 10

3.      Now its time to add some tricks to your Form.

Set Form1 Border style to “0-None” and WindowsState to “2-Maximized”

After doing this you need to add codes to your Prank Application

set below link picture as form picture
Download picture

4.      Insert code given bellow into General from Code window

<copy code after this line> 

Private Declare Sub SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cX As Long, ByVal cY As Long, ByVal wFlags As Long)

Const HWND_TOPMOST = -1

Const HWND_NOTOPMOST = -2

Const SWP_NOSIZE = &H1

Const SWP_NOMOVE = &H2

Const SWP_NOACTIVATE = &H10

Const SWP_SHOWWINDOW = &H40

Public Function WindowOnTop(OnOff As Boolean)

Select Case OnOff

Case True:

SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE

Case False:

SetWindowPos Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE

End Select

End Function

Private Sub Form_Load()

Label1.Visible = True

End Sub

Private Sub Timer1_Timer()

WindowOnTop True

Label1.Caption = Label1.Caption + 1

If Label1.Caption = "1000" Then

MsgBox "Hahahaha! You Pranked man"

Timer1.Enabled = False

Unload Me

End If

End Sub

< code ended before this line>

Now when your Friend Run the Application he will see Blue Screen of death .

there is no way out but waiting about 10 Sec.

after 10 sec prank ends up.

Screen Shot:

Share your Experience with us in comments