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";
+