<?xml version="1.0" encoding="windows-1252"?>
<node id="154315" title="BUU" created="2002-03-25 22:32:26" updated="2004-01-23 05:48:57">
<type id="15">
user</type>
<author id="154315">
BUU</author>
<data>
<keywords>
<keyword rating="">
clutter</keyword>
<keyword rating="">
box</keyword>
<keyword rating="">
troll</keyword>
</keywords>
<field name="doctext">
[id://351729| &lt;3 wassercraaaaretats] &lt;br&gt;&lt;br&gt;&lt;br&gt;

l33t monitor code from [coruscate]
&lt;code&gt;#!c:/perl/bin/perl -w
$|++;

use strict;
use Win32::API;

sub MONITOR_ON () { -1 }
sub MONITOR_STANDBY () { 1 }
sub MONITOR_OFF () { 2 }

Win32::API-&gt;Import('user32', 'SendMessageA', 'NNNN', 'N'); 
Win32::API-&gt;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);&lt;/code&gt;</field>
<field name="lasttime">
2012-09-30 21:45:20</field>
<field name="experience">
9710</field>
<field name="user_scratchpad">
358555</field>
<field name="imgsrc">
0</field>
<field name="timeformat">
</field>
<field name="numwriteups">
1577</field>
<field name="location">
</field>
<field name="timezone">
-11</field>
<field name="codewrapoff">
</field>
<field name="codewraplength">
81</field>
<field name="codeautowrap">
</field>
<field name="codeprefix">
</field>
<field name="codebig">
on</field>
</data>
</node>
