diff options
author | dscho <dscho> | 2005-01-14 14:44:49 +0000 |
---|---|---|
committer | dscho <dscho> | 2005-01-14 14:44:49 +0000 |
commit | 7ad74688557216e70c749ec567f17604c82bf9c6 (patch) | |
tree | 7085a9e9236f7e8ef615b1fa7147528729ef7b24 /VisualNaCro/recorder.pl | |
parent | 2cd3c824c6422ae9cfc9dd8fcdbd5601c3edd9c0 (diff) | |
download | libvncserver-7ad74688557216e70c749ec567f17604c82bf9c6.zip libvncserver-7ad74688557216e70c749ec567f17604c82bf9c6.tar.gz |
VisualNacro, a visual macro recorder for VNC. Alpha version
Diffstat (limited to 'VisualNaCro/recorder.pl')
-rw-r--r-- | VisualNaCro/recorder.pl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/VisualNaCro/recorder.pl b/VisualNaCro/recorder.pl new file mode 100644 index 0000000..023ae26 --- /dev/null +++ b/VisualNaCro/recorder.pl @@ -0,0 +1,27 @@ +#!/usr/bin/perl + +use nacro; + +$vnc=nacro::initvnc("localhost",5900,5923); + +print $vnc; + +# give it a chance to get a first screen update + +print nacro::waitforupdate($vnc,.4); + +print STDERR "Now\n"; + +print nacro::sendmouse($vnc,90,250,0); + +print nacro::sendkey($vnc,ord('a'),-1); +print nacro::sendkey($vnc,ord('a'),0); + +print nacro::sendmouse($vnc,100,10,0); + +print nacro::savepnm($vnc,"hallo.pnm",50,50,300,200); + +nacro::process($vnc,3); + +print"\n"; + |