[VB.NET]鎖定鍵盤和滑鼠

[VB.Net]鎖定鍵盤和滑鼠

程式碼片段來自http://blog.blueshop.com.tw/hammerchou/archive/2008/10/21/57435.aspx，本站原創文章。

測試平台：vs2005+.net framework 2.0 + xpsp3

先加入此function：

Private Declare Function BlockInput Lib "user32" _
        (ByVal fBlock As Integer) As Integer

程式碼：

        BlockInput(True) ' 鎖
        System.Threading.Thread.Sleep(5000) ' 等5秒
        BlockInput(False) ' 開

這段程式碼利用user32內建的方法來鎖定滑鼠和鍵盤，從以上看來似乎是一起鎖定兩者的，若要只鎖定鍵盤或滑鼠可能要另尋辦法。

下載→　blockinput@wes-code.rar [GoogleDocs]　[Mediafire]