Minggu, 20 Februari 2011

Screen Freeze JOKE

Masih ada lagi nih hal iseng lainnya, silahkan coba script yang satu ini.

[Script Code] :

Private Declare Function GetDC Lib "user32" ( _
ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" ( _
ByVal hDestDC As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal hSrcDC As Long, _
ByVal xSrc As Long, _
ByVal ySrc As Long, _
ByVal dwRop As Long) As Long
Private Sub Form_Load()
Me.AutoRedraw = True 'so that the screen's image stays on the form
Me.Left = 0 'set the size
Me.Top = 0
Me.Width = Screen.Width
Me.Height = Screen.Height
BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, GetDC(0), 0, 0, vbSrcCopy
'copy the screens image onto the form so it will look frozen
Me.Visible = True
Do 'loop the stay on top thing so its always on top
Me.ZOrder 0
DoEvents
Loop
End Sub
'REMOVE THIS FOR ACTUAL USE OF JOKE \/ (so the user cant get out)
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
End 'this is here so you can try the code and still vote afterwards
'to make it even better disable ctrl+alt+del and alt+f4
'get api to keep the form ontop
End Sub

Tidak ada komentar:

Poskan Komentar