vb 鎖定鍵盤並使用 VB 程式碼鎖定鍵盤和滑鼠

問房東，什麼是殘疾人屬性???您使用的是 VB6 嗎？

我會給你乙個答案供參考，我會給你很多建議

按您提供的方式鎖定鍵盤和滑鼠，只需將 form1 設定為與螢幕一樣大即可。 然後，將其 borderstyle 屬性的值更改為 0（無邊框），以便您不能使用 movement。 呵呵，但是你可以切換，然後加乙個計時器，秒檢測滑鼠不在某處，如果沒有，立即將滑鼠移到這個地方，這樣滑鼠再次被鎖定。

但是我不知道如何鎖定按鈕。 因為系統中的某些熱鍵可以切換和關閉程式。 例如：ait + f4

由於Microsoft早就發布了針對性的系統補丁，現在很難實現！

hhook = setwindowshookex(wh_keyboard, addressof _

mykbhfunc, ,public function mykbhfunc(byval icode as long, _

byval wparam as long, byval lparam as long) as long

mykbhfunc = 1 '意思是心雲森禮的資訊是要受到懲罰的，效果是把紐扣都吃掉了。

end function

但它不會滑動，可以鎖定安靜型別 alt+tab

加入樂趣：

private sub form_load()= true

end sub

private sub form_keypress(key as integer)

鎖定字符集 = abca"您可以將要鎖定的任何鍵或字元放入該字串中。

key = iif（instr（locked character set， chr（key）） 0， 0， key）。

end sub

當我們平時按“Ctrl+Alt+del”組合鍵時，我們可以顯示使用者選項，包括任務管理器、鎖定計算機、更改 Windows 密碼、登出 Windows、關機等選項。 這些選項非常重要，我們可以在組策略中阻止它們，以防止其他人執行這些選項。 首先是“使用者設定管理模板系統Ctrl+Alt+del選項”分支，該分支下有四個策略：“刪除任務管理器、刪除鎖定的電腦、刪除更改密碼、刪除登出”，雙擊需要阻止的專案，會彈出乙個設定對話方塊，在對話方塊中選擇“啟用選項”。

Shift <>0 等，不支援 Key Down 事件，所以你只能另闢蹊徑！

攔截鍵盤訊息到鍵盤掛鉤，你看這個。

使用 ASCII 程式碼判斷 嘗試一下

直接將 text1 的 locked 屬性設定為 true，或使用以下 **：

true 還原輸入。

false