Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

BUU

by BUU (Prior)
on Mar 26, 2002 at 03:32 UTC ( #154315=user: print w/replies, xml ) Need Help??

<3 wassercraaaaretats


l33t monitor code from coruscate

#!c:/perl/bin/perl -w $|++; use strict; use Win32::API; sub MONITOR_ON () { -1 } sub MONITOR_STANDBY () { 1 } sub MONITOR_OFF () { 2 } Win32::API->Import('user32', 'SendMessageA', 'NNNN', 'N'); Win32::API->Import('user32', 'FindWindowA', 'PP', 'N'); my $hwnd = FindWindowA('Shell_TrayWnd', 0); SendMessageA($hwnd, 0x112, 0xF170, MONITOR_STANDBY); sleep 6; SendMessageA($hwnd, 0x112, 0xF170, MONITOR_OFF); sleep 6; SendMessageA($hwnd, 0x112, 0xF170, MONITOR_ON);

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
[Your Mother]: "Tick Twister."
[1nickt]: My sister lives in the Sydney suburbs (carved out of the bush) and they have the Paralysis tick -- leavs you quadriplegic!
[perldigious]: Hmm, thanks Lotus1... perldigious scribbles note to buy lots of opossums as "pets" in the future to hang around outside his property. :-P
[1nickt]: You must twist and pull! If you burn, use tea tree oil etc, the tick barfs (inside your blood vessel) and you get all the loevely bacteria in his gut transferred to yours.
[1nickt]: tweesers work just fine
[hippo]: Hope everyone else is enjoying their lunch too.
[1nickt]: However, note that it takes between 2 and 4 hours for a tick to be able to start transmitting bacteria. So even if it has burrowed in and started eating, if you get it soon you should be OK.
[perldigious]: 1nickt: No more red meat! It would be more humane to just kill you, wouldn't it! :-)
[1nickt]: Just don't make it barf.
[1nickt]: perldigious that's exactly what my stepson says.

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (14)
As of 2017-05-24 13:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?