屏蔽键盘和鼠标的autoit源码
除密碼: 135246, 定議些Hotkey,鍵盤就mousemove是什么键沒作用了,鼠標你可以用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("", "")
$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("")

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。