It's a Snippet (part of module i'm writing) to deactivate/activate Keyboard and Mouse in many script to have a UserProof Script ;-)
CTRL+ALT+DEL reactivate both :-(
use strict;
use Win32::API;
# Constants _BlockInput parameter
sub LOCK {1};
sub UNLOCK {0};
######################################################################
+##
# Name : _BlockInput
+ #
#
+ #
# input : LOCK (1) = Lock Keyboard and Mouse
+ #
# UNLOCK (0) = Unlock Keyboard and Mouse
+ #
#
+ #
# !!! WARNING !!! a simple CTRL+ALT+DEL unblock all
+ #
######################################################################
+##
sub _BlockInput {
my $value = shift;
my $Library = "user32";
my $Function = "BlockInput";
my $ref_ParamsList = ['I'];
my $ReturnValue = 'I';
my $BlockInput = new Win32::API($Library, $Function, $ref_ParamsLi
+st, $ReturnValue) or die $^E;
$BlockInput->Call($value);
}
sub LockInput {
_BlockInput( LOCK );
}
sub UnlockInput {
_BlockInput( UNLOCK );
}
# Sample to use
print "START\n";
LockInput;
print "Try to move mouse and type keys ;-)\n";
sleep 5;
UnlockInput;
print "You are free now!\n";
print "END\n";
sleep 1;
exit;
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|