autoit屏蔽键盘和鼠标的源码

cross523 贡献于2014-09-06

作者 赵红飞  创建于2012-04-28 06:30:00   修改者赵红飞  修改于2012-04-28 06:31:00字数1568

文档摘要:屏蔽键盘和鼠标的autoit源码除密碼:135246,定議些Hotkey,鍵盤就沒作用了,鼠標你可以用MouseMove(),循環移到角落
关键词:

屏蔽键盘和鼠标的autoit源码 除密碼: 135246, 定議些Hotkey,鍵盤就沒作用了,鼠標你可以用MouseMove(),循環移到角落 break(0) #include #include #include 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")

下载文档到电脑,查找使用更方便

文档的实际排版效果,会与网站的显示效果略有不同!!

需要 2 金币 [ 分享文档获得金币 ] 0 人已下载

下载文档