Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use X11::SendEvent;
$win = X11::SendEvent->new(win => ["Crystal Space Application"]);
$win->SendKeycode(119);
  2. or download this
    Use of uninitialized value in string eq at /usr/lib/perl5/vendor_perl/
+5.8.8/X11/Protocol.pm line 535.
Use of uninitialized value in string eq at /usr/lib/perl5/vendor_perl/
+5.8.8/X11/Protocol.pm line 536.
...
Use of uninitialized value in pack at /usr/lib/perl5/vendor_perl/5.8.8
+/X11/Protocol.pm line 541.
Use of uninitialized value in pack at /usr/lib/perl5/vendor_perl/5.8.8
+/X11/Protocol.pm line 541.
Use of uninitialized value in pack at /usr/lib/perl5/vendor_perl/5.8.8
+/X11/Protocol.pm line 541.