home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 Mobile / Chip_Mobile_2001.iso / palm / system / _palmemu / palmemu.exe / Scripting / Perl / SkipStartup.pl < prev   
Text File  |  2000-01-27  |  1KB  |  32 lines
  1. ########################################################################
  2. #
  3. #    File:            SkipStartup.pl
  4. #
  5. #    Purpose:        Skip the Palm V startup application.
  6. #
  7. #    Description:    Run this script to skip past the application that
  8. #                    automatically starts when cold-booting a Palm V
  9. #                    (or Palm IIIx).  It generates the appropriate
  10. #                    pen events to "tap past" the initial forms.
  11. #
  12. ########################################################################
  13.  
  14. use EmRPC;            # EmRPC::OpenConnection, CloseConnection
  15. use EmFunctions;
  16. use EmUtils;        # TapPenSync, TapButtonSync
  17.  
  18.  
  19. EmRPC::OpenConnection(6415, "localhost");
  20.  
  21.     TapPenSync (100, 100);            # Tap past first setup screen
  22.     TapPenSync (100, 100);            # Tap past second setup screen
  23.  
  24.     TapPenSync (10, 10);            # First tap in pen calibration screen
  25.     TapPenSync (160-10, 160-10);    # Second tap in pen calibration screen
  26.     TapPenSync (80, 60);            # Confirmation tap in pen calibration screen
  27.  
  28.     TapButtonSync ("Next");            # Tap Next button
  29.     TapButtonSync ("Done");            # Tap Done button
  30.  
  31. EmRPC::CloseConnection();
  32.