Source Code Screen Freeze Joke

Agus Saputra - Selamat datang di blogger Agus Saputra .

lelucon kecil sejuk yang membuatnya tampak seperti layar membeku, dan tetap di atas sehingga tidak ada yang berhasil. silahkan ** SUARA **! menggunakan kode mengatur BorderStyle bentuk yang dipilih untuk tidak ada, kemudian masukkan kode, lalu menjalankannya. klik untuk keluar dari prog

Perjanjian:
Dengan menggunakan kode ini, Anda setuju dengan persyaratan berikut ...

     Anda dapat menggunakan kode ini dalam program Anda sendiri (dan mungkin kompilasi menjadi sebuah program dan mendistribusikannya dalam format dikompilasi untuk bahasa yang memungkinkan) secara bebas dan tanpa biaya.
     Anda TIDAK MUNGKIN mendistribusikan ulang kode ini (misalnya untuk situs web) tanpa izin tertulis dari penulis asli. Kegagalan untuk melakukannya adalah pelanggaran hukum hak cipta.
     Anda dapat membuat link ke kode ini dari situs web lain, tapi HANYA jika tidak dibungkus dalam bingkai.
     Anda akan mematuhi pembatasan hak cipta tambahan yang penulis mungkin telah ditempatkan dalam kode atau deskripsi kode itu.

    
'**************************************
' Name: _Screen Freeze JOKE
' Description:a cool little joke that makes it look like the screen is froze, and it stays on top so nothing works. please **VOTE**!!!!
to use the code set the selected form's borderstyle to none, then insert code, then run it. just click to get out of the prog
' By: poop_4_brains
'
' Inputs:open the prog
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=32939&lngWId=1'for details.'**************************************

'Screen Freeze Joke
'by Kevin Fleet
'March 21, 2002
'(KEVCOM)
'******************
'api functions to draw
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