On Thu, 2003-07-03 at 15:55, [EMAIL PROTECTED] wrote: > Does anyone have a good way to disable the keyboard & mouse whilst an installation > is underway, I need to stop my users interferring whilst their machine is building. > > I have tried with an autoit script that uses the internal command to lock out the > keyboard etc, but it 'pinches' the odd keystroke being sent by other scripts causing > them to fail. > > Any ideas most welcome HKEY_LOCAL_MACHINE/System/CurrentControlSet/services/Kbdclass/ HKEY_LOCAL_MACHINE/System/CurrentControlSet/services/Mouclass/
are the keys for enabling and disabling the keyboard and mouse. set the value to REG_DWORD 4 to disable keyboard/mouse support and REG_DWORD 1 to enable .. after setting the values you have to reboot the machine in order to achieve the desired behaviour. see attached part of a perl script. wolfgang -- Wolfgang Borst <[EMAIL PROTECTED]> GPG/PGP key 4107B17B
sub km_support { my $enable = shift; my $rc=1; my %reg; use Win32::TieRegistry (Delimiter => '/', TiedHash => \%reg); my $k_key = 'HKEY_LOCAL_MACHINE/System/CurrentControlSet/services/Kbdclass/'; my $m_key = 'HKEY_LOCAL_MACHINE/System/CurrentControlSet/services/Mouclass/'; my $val; if($enable) { $val="0x0001"; } else { $val="0x0004"; } if ( ! ($reg{$k_key}->{'Start'} = [ $val , "REG_DWORD"] ) ) { logfacility "Unable to set $k_key/Start to $val: $^E"; $rc-=1; } if ( ! ($reg{$m_key}->{'Start'} = [ $val , "REG_DWORD"] ) ) { logfacility "Unable to set $m_key/Start to $val: $^E"; $rc-=1; } return $rc; }
signature.asc
Description: This is a digitally signed message part