Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: Re: Keyboard Lights

by Rudif (Hermit)
on Oct 01, 2001 at 01:59 UTC ( [id://115765]=note: print w/replies, xml ) Need Help??


in reply to Re: Keyboard Lights
in thread Keyboard Lights

True enough, this script works on Win2k / AS Perl 628 and so does the one-liner

#! perl -w
use strict;
use Win32::OLE;
my $wshShell = Win32::OLE->new('WScript.shell');
$wshShell->sendkeys("{NUMLOCK}");

__END__

perl -MWin32::OLE -e "Win32::OLE->new('WScript.shell')->sendkeys('{NUM
+LOCK}')"

[download]
Rudif

Replies are listed 'Best First'.
Re: Re: Re: Keyboard Lights
by Foggy Bottoms (Monk) on Jun 19, 2003 at 10:01 UTC
    It works fine on NT4 as well and it's kinda cool too. But how d'ya know whether the lines turned off ?
    Heureux qui, comme Ulysse, a fait un beau voyage Ou comme celui-là qui conquit la Toison, Et puis est retourné plein d'usage et raison, Vivre entre ses parents le reste de son âge!

    J. du Bellay, poëte angevin

[reply]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://115765]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others chanting in the Monastery: (7)
As of 2024-04-18 07:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found