求屏蔽键盘鼠标代码！

q115643492

BlockInput(1) 可以实现，但按下crel+alt+del 就解除了。
论坛上有很多挂机锁代码，看不懂。我也不需要那么多。只要屏蔽键盘鼠标就行
还是请各位大侠支招！谢谢了！

tianya1631

都屏蔽了，怎么解锁。。。

q115643492

不需要解锁，我设置的延时多少秒后结束该进程达到解锁目的

yarsye

这是个问题 关注中

Tony_wistron

解除密碼: 135246, 定議些Hotkey,鍵盤就沒作用了,鼠標你可以用MouseMove(),循環移到角落

break(0)
#include <Process.au3>
#include <GUIConstants.au3>
#include <file.au3>
HotKeySet("a", "ShowMessage")
HotKeySet("b", "ShowMessage")
HotKeySet("c", "ShowMessage")
HotKeySet("d", "ShowMessage")
HotKeySet("e", "ShowMessage")
HotKeySet("f", "ShowMessage")
HotKeySet("g", "ShowMessage")
HotKeySet("h", "ShowMessage")
HotKeySet("i", "ShowMessage")
HotKeySet("j", "ShowMessage")
HotKeySet("k", "ShowMessage")
HotKeySet("l", "ShowMessage")
HotKeySet("m", "ShowMessage")
HotKeySet("n", "ShowMessage")
HotKeySet("o", "ShowMessage")
HotKeySet("p", "ShowMessage")
HotKeySet("q", "ShowMessage")
HotKeySet("r", "ShowMessage")
HotKeySet("s", "ShowMessage")
HotKeySet("t", "ShowMessage")
HotKeySet("u", "ShowMessage")
HotKeySet("v", "ShowMessage")
HotKeySet("w", "ShowMessage")
HotKeySet("x", "ShowMessage")
HotKeySet("y", "ShowMessage")
HotKeySet("z", "ShowMessage")
HotKeySet("{BS}", "ShowMessage")
HotKeySet("{DEL}", "ShowMessage")
HotKeySet("{LEFT}", "ShowMessage")
HotKeySet("{RIGHT}", "ShowMessage")
HotKeySet("{LSHIFT}", "ShowMessage")
HotKeySet("{RSHIFT}", "ShowMessage")

Dim $x , $y
if $CmdLine[0]>0 then
  $x= $CmdLine[1]
  $y= $CmdLine[2]
  Else
   $x=0
   $y=0
  endif
$bLoop = 1
  
  WinActivate ("Keyboad"," ")


Func ShowMessage()
  dim $test=1
  EndFunc
  
While $bLoop = 1

;Run("mouse.exe", "")
$input = InputBox("Keyboad", " "," ","*",200,30,$x,$y )
;$input = InputBox("Password box", "Please type in correct password and click OK","","*")
$verify = StringLeft($input, 6)



; If $long <> 8  or $verify <> "@" Then
if $verify <> "135246" Then
            MsgBox(4096, "Error", "Password is wrong")
$long = StringLen($input)
        Else
                        $bLoop = 0
                EndIf
sleep(1500)
wend
;ProcessClose("mouse.exe")

ceoguang

我对楼上的景仰有如滔滔江水,绵绵不绝

rtytext

不是太好吧

lin0308

5楼的代码实在是简单易懂