2013年5月14日 星期二

[惡作劇] 將鍵盤、滑鼠全部封鎖!

當你想要惡搞你朋友時可以寫這個程式來嚇嚇他
程式碼執行後就會很像當機一樣~很好玩!
而運作原理是利用 user32 內建的方法來鎖定滑鼠和鍵盤

解除方法非常簡單~
只要開啟工作管理員可解除鎖定唷!

解除鎖定:Ctrl + Alt + Delete 

程式碼 VB
Declare Function BlockInput Lib "user32" (ByVal fBlockIt As Long) As Long

    Private Sub Form1_Load(ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles MyBase.Load

        BlockInput( True)

    End Sub


VB 說明
一、「BlockInput( True)」True 是全部鎖定,反之改成 False 就變成解除囉~


附件
檔案名稱:VB Warehouse_BlockInput.rar
檔案大小:138 KB
適用平台:VB 2010
儲存空間:Google 雲端硬碟
下載連接:下載點  (如何下載?