论坛 › 『 提问交流 』 › 求屏蔽键盘鼠标代码！

q115643492 发表于 2010-5-31 11:25:47

求屏蔽键盘鼠标代码！

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

tianya1631 发表于 2010-5-31 11:38:08

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

q115643492 发表于 2010-5-31 11:49:43

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

yarsye 发表于 2010-5-31 14:02:38

这是个问题 关注中

Tony_wistron 发表于 2010-6-3 16:34:56

解除密碼: 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 then
$x= $CmdLine
$y= $CmdLine
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 <> 8or $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 发表于 2010-6-3 21:05:31

:face (13):我对楼上的景仰有如滔滔江水,绵绵不绝

rtytext 发表于 2010-6-4 09:35:23

不是太好吧:face (8):

lin0308 发表于 2010-6-4 16:18:00

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

查看完整版本: 求屏蔽键盘鼠标代码！