BlockInputEx UDF!

[ZiggyStardust]

I am writing a little program with a "Quit" routine and don't really want the users to know what it is so I made it a little difficult:

HotKeySet("^!+{ESC}", "Quit") ;crtl-alt-shift-esc

The problem I am having is getting _BlockInputEx to allow that combibation:

_BlockInputEx(1, "^!+{ESC}")

The quit routine works great until I invoke the InputEX(). Any idea what I am missing?

Edited April 14, 2012 by Melba23
Removed formatting rubbish from beginning of lost

[AussieTimmeh]

I have joined the forums specifically to start thanking those that have taken the time to help others like myself with great things like this.

Thank you for your work on this great include, I appreciate it.

[ZiggyStardust]

Still experiencing some wierd issues with the BlockInputEx. In addition to the issue mentioned above I have another oddity. This little program I am working on makes extensive use of BlockInputEx. Users testing it do so by simplely "banging" on the keyboard. Just typing every key rapidly and randomly. There have been several occassions where it gets to a point where the arrow keys start rotating the screen.

In searching I have found that the Intel Graphics Media Acceleration is running and present down by the clock. In looking at it the arrow keys do rotate the screen but have to be preceed by a ctrl-alt. Something the users are hitting is essentially setting the ctrl-alt keys as being in effect (held down) at which point the arrow keys rotate the screen because the ctrl-alt keys are "stuck" in the down position. Any ideas what the users could be hitting to allow the ctrl-alt keys to be stuck in the pressed position?

[ZiggyStardust]

I am going to beg, plead and offer my first born for some help. I love what this BlockInputEx is supposed to do but I am dying. In addition to the problems with the Quit sequence two posts above I have encountered yet another issue asked here on two occassions but never answered. I need to do a MouseClick() with the primary mouse button but can't seem to get the click through BlockInputEx(). Here is what I Have:

Global $BlockExempt = "{F5}|^{F5}|{LEFT}|{RIGHT}|{UP}|{DOWN}|{PGUP}|{PGDN}|{ENTER}|{MPDOWN}|{MPUP}"

_BlockInputEx(1, $BlockExempt)

The MouseClick() will will not work. _BlockInputEx blocks it. I have read the docs on BlockInputEx until I am blue in the face. I am missing something simple I just can't figure out what.

SOS! HELP! PLEASE I AM BEGGING!

[SHOAnimal]

@ZiggyStardust What you are trying to do may not be possible. The ability for your script to use send() and mousemove() or mouseclick() is not in the UDF. as for the key combo for your Quit you can exclude the keys you need and then use the combo, but each key can also be pressed individually though. I am going to look into things and see if i can try to come up with code to Fix the mouseclick issue as well as key combos, although i wouldn't get too excited as i am no pro with programming.

Edited July 6, 2012 by SHOAnimal

[zone97]

Hello, love this addon, but had an issue with it. I have a script that I use that forces the caps lock on while in a particular app. However the users have found that they can bypass this by using the shift key. I wanted to use your add on to fix this but found some issues.

1st, when i added the code, to turn it on and then off when out of the window, after a little while it would produce an application crash. It would work until then.

2nd, I only need to prevent the shifting of letters, not numbers or symbols.

here is the app without the changes (had to undo and didnt save what I had added sorry.)

expandcollapse popup

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=allcaps.ico
#AutoIt3Wrapper_Outfile=lockcaps.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#App by Frank Glover

#include

HotKeySet("^!Q", "_Quit")
HotKeySet("^!q", "_Quit")

Global $VK_CAPITAL = 0x14
Break(0)
Dim $version = "1.3a"
Local $hDLL = DllOpen("user32.dll")

Opt("SendCapslockMode", 0)

TraySetToolTip("LockCaps "&$version)

Global $PreviousCAPSOFF;CAPSLOCK OFF
While 1
WinWaitActive("[Class:ThunderRT6FormDC]")
$PreviousCAPSOFF = _GetCapslock() = 0
If $PreviousCAPSOFF Then Send("{CAPSLOCK on}")

While WinActive("[Class:ThunderRT6FormDC]")
Send("{CAPSLOCK on}")
Sleep(10)
WEnd
If $PreviousCAPSOFF Then Send("{CAPSLOCK off}")
WEnd

Func _GetCapslock()
Local $aRet = DllCall("user32.dll", "int", "GetKeyState", "int", $VK_CAPITAL)
Return $aRet[0]
EndFunc ;==>_GetCapslock

Func _Quit()
Exit
EndFunc ;==>_Quit

any help will be apreciated.

[MrCreatoR]

Update...

 

[v1.8 - 12.05.2013, 12:16]

* Fixed issue when some numeric keyboard keys was not blocked.
* Fixed issue when ALT+Tab was not blocked.

 

[JohnOne]

I've seen similar questions to this one asked "regarding windows" but as yet unanswered.

I'm wondering if it possible with your UDF's to accomplish the following...

Block UP DOWN LEFT RIGHT to all but autoit window.

The goal is to give these keys mouse functionality, but without interacting with any active windows such as scrolling a webpage or any other application specific tasks.

[AcidUser]

Hello!

Very useful script, thank you very much for your effort.

I think I have found a serious bug:

I can set exclusions for BlockInputEx like this:

BlockInputEx(1,"{F1}|{F2}")

This works fine.

However when I press CTRL+ALT+DEL (on Windows 7) - Windows Security window opens, then I press "Cancel" to close this window. And after this Input does not work as specified in this UDF description.

The problem is that after "CTRL+ALT+DEL" BlockInputEx exclusions (F1 and F2) also do not work!

Could this be somehow solved ? I've tried digging into code but did not understand where exclusions might be lost after CTRL+ALT+DEL.

P.S: I thought it was problem in my code, but after checking on UDF example - "Example - Exclude usage.au3" behavior was the same.

Thank you in advance for help!

Edited August 13, 2013 by AcidUser

[AcidUser]

anyone has experienced same problem ?   

[FireFox]

Hi,

Please wait at least 24 hours before bumping.

Br, FireFox.

[FireFox]

This example works for me (even after pressing Ctrl+Alt+Del) :

#include <BlockInputEx.au3>

;================== Exclude usage Example ==================

HotKeySet("{F1}", "_Quit")
HotKeySet("{F2}", "_Quit")

;All keyboard keys and mouse clicks are blocked except these keys: 0x1B = {ESC}, 0x70 = "{F1}", 0x71 = "{F2}", 0x72 = "{F3}"
;~ _BlockInputEx(1, "0x1B|0x70|0x71|0x72")
_BlockInputEx(1, "{F1}|{F2}")

;This is only for testing, so if anything go wrong, the script will exit after 10 seconds.
AdlibRegister("_Quit", 10000)

While 1
Sleep(100)
WEnd

Func _Quit()
Exit
EndFunc

[AcidUser]

Hi, Firefox, thanks for responding.

I test scripts on a VmWare Virtual Machine "Windows 7". Physical PC is Windows 8.

So maybe that bug is on VmWare only, I'll check that and report back.

One significant difference between Physical PC and Virtual Machine is that VMware works with "CTRL + ALT + INSERT" key mapping instead of traditional "CTRL + ALT + DEL".

[AcidUser]

Hello,

I can confirm that this problem happens on virtual machines.

I used "Windows 7 x64" on VMware and after CTRL+ALT+DEL pressed "BlockInputEx" exclusion keys do not work anymore.

Posting this, due to more skilled Autoit guru might consider to fix this.

Thanks.

[lancebh]

Hello All,

ControlGetPos

ControlClick

ControlSend

Send

MouseClick

...(and more)

These all tend to allow the mouse to move (just a small amount, but enough to cause issues with my script).

Is there any suggestions to fix this?

Any help is welcome 

[Jorin]

I dont really understand how to use the blockinputex function. Should i use the blockinputex.au3 and start my script from line 443 and leave the rest as it is?

[Melba23]

Jorin,

The UDF is just an include file - so make sure you have saved the BlockInputEx.au3 file in the same folder as your script, add

#include <BlockInputEx.au3>

at the top of your script and you can use the various fuctions within it without problem.

If you think that you might want to use the UDF in several scripts, you might want to read the Adding UDFs to AutoIt and SciTE tutorial in the Wiki to see how you can best do this.

M23

[Jorin]

So I want to block all input for the ninite.exe window. Yesterday I have been struggeling with this a while, but I dont seem to get close to the solution. Could anyone help me out with this? The way it is now, no input is blocked.

#include <BlockInputEx.au3>

If Not $CMDLINE[0] Then
    RunAs('***', '****', '****', 5, '"' & @AutoItExe & '" /AutoIt3ExecuteScript "' & @ScriptFullPath & '" /restart')
    If @error Then MsgBox(0x30, @ScriptName, 'Failed RunAs')
ElseIf $CMDLINE[1] = '/restart' Then
    ShellExecute('"' & @ScriptDir & '\Ninite.exe"')
    If @error Then
        MsgBox(0x30, @ScriptName, 'Failed to execute "' & @ScriptDir & '\Ninite.exe"')
        Exit 1
    EndIf
    ;
    While 1
        If Not ProcessExists('Ninite.exe') Then Exit 1
        WinSetTrans ( "Preparing", "", 0 )
WinWait("[REGEXPCLASS:Ninite.*]")
   $hNinite_Wnd = WinGetHandle("[REGEXPCLASS:Ninite.*]")
_BlockInputEx(1, "", "", $hNinite_Wnd)
        $text = WinGetText("Ninite", "")
        If StringInStr($text, "Finished.",1) Then
            ExitLoop
_BlockInputEx(0, "", "", $hNinite_Wnd)
        EndIf
        Sleep(500)
    WEnd
    Sleep(1000)
    ControlClick("Ninite", "", "[ID:2]")
Else
    MsgBox(0x30, @ScriptName, 'Only /restart parameter is accepted')
EndIf

Edited November 20, 2013 by Jorin

[Jorin]

I just copied   Example #1 (hWindows usage):   from the first post.

When I change _BlockInputEx(3, "", "", $hNotepad_Wnd) to _BlockInputEx(1, "", "", $hNotepad_Wnd) I noticed that it is not only blocking the notepad input. But is blocking all input for everything.

I removed AdlibRegister("_Quit", 10000) and I ended up resetting the VM because mouse and keyboard where blocked

[Jorin]

Any help would be really appriciated