| User since: |
Mar 26, 2002 at 03:32 UTC
(22 years ago) |
[Account disabled]
| Last here: |
Jul 11, 2015 at 10:59 UTC
(8 years ago) |
| Experience: |
9769
|
| Level: | Prior (17) |
| Writeups: |
1582
|
| Location: | n/a |
| User's localtime: |
Dec 10, 2023 at 05:06 -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);
|
