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

當你想要惡搞你朋友時可以寫這個程式來嚇嚇他
程式碼執行後就會很像當機一樣～很好玩！
而運作原理是利用 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 雲端硬碟

下載連接：下載點  （如何下載？）

延伸閱讀：[進階版] 將鍵盤、滑鼠全部封鎖！第二代 ！！