| User since: |
Mar 26, 2002 at 03:32 UTC
(23 years ago) |
[Account disabled]
| Last here: |
Jul 11, 2015 at 10:59 UTC
(10 years ago) |
| Experience: |
9777
|
| Level: | Prior (17) |
| Writeups: |
1582
|
| Location: | n/a |
| User's localtime: |
May 13, 2025 at 05:01 -11
|
| Scratchpad: |
View
|
| For this user: | Search nodes |
|
<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);
|
