http://qs321.pair.com?node_id=154315

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