Blockinput unter Vista

[autoit]

GUICreate("")
$Button = GUICtrlCreateButton("Blockinput an",50,50)
GUISetState()

[/autoit] [autoit][/autoit] [autoit]

Global $_BlockInput_mPos

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button
Run("Notepad.exe")
WinWait("Unbenannt - Editor")
WinActivate("Unbenannt - Editor")
ToolTip("Blockinput an")
_BlockInput(1)
$t = TimerInit()
Do
Sleep(10)
Until TimerDiff($t) > 5000
_BlockInput(0)
ToolTip("Blockinput aus")
Case -3
Exit
EndSwitch
WEnd
Func _BlockInput($iParam)
If $iParam > 1 Or $iParam < 0 Then Return
Switch $iParam
Case 1
For $i = 97 to 122 ; A - Z
Execute('HotKeySet("{'&Chr($i)&'}","_BlockInput_Key")')
Next
For $i = 0 to 9 ; 0 - 9
Execute('HotKeySet("{'&$i&'}","_BlockInput_Key")')
Next
HotKeySet("{TAB}","_BlockInput_Key")
HotKeySet("{PAUSE}","_BlockInput_Key")
HotKeySet("{SPACE}","_BlockInput_Key")
HotKeySet("{ENTER}","_BlockInput_Key")
Global $_BlockInput_mPos = MouseGetPos()
AdlibRegister("_BlockInput_TrapMouse",100)
Case 0
For $i = 97 to 122
Execute('HotKeySet("{'&Chr($i)&'}")')
Next
For $i = 0 to 9 ; 0 - 9
Execute('HotKeySet("{'&$i&'}"')
Next
HotKeySet("{TAB}")
HotKeySet("{PAUSE}")
HotKeySet("{SPACE}")
HotKeySet("{ENTER}")
AdlibUnRegister("_BlockInput_TrapMouse")
EndSwitch
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _BlockInput_TrapMouse()
MouseMove($_BlockInput_mPos[0],$_BlockInput_mPos[1],0)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _BlockInput_Key()
Sleep(10)
EndFunc

[/autoit]