home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 8 / CDACTUAL8.iso / share / os2 / varios / hyperacc / haos2d.z / GENIE.CMD < prev    next >
Encoding:
Text File  |  1996-07-02  |  1.6 KB  |  54 lines
  1. /* This program genie.cmd created by Hilgraeve and assigned to the Genie     */
  2. /* phonebook entry runs an automated logon script for connecting to Genie.   */
  3.  
  4. /*    $Revision: 1.1 $  */
  5. /*    $Date: 1996/07/02 14:53:53 $  */
  6.  
  7. /* Text within slashes and asterisks (like this line) are comments. */
  8. /* Parse the command line for arguments passed to this program */
  9. PARSE ARG pipename
  10.  
  11. /* Register external functions with REXX */
  12. CALL RxFuncAdd 'haLoadFuncs', 'HAP_AUTO', 'RxhaLoadFuncs'
  13. CALL haLoadFuncs
  14.  
  15. /* Establish a link between this script program and HyperACCESS */
  16. scripthandle = 0
  17. scripthandle = haInitialize(1, pipename)
  18.  
  19. DROP pipename
  20. /* Process only if link with HyperACCESS was successful */
  21. IF scripthandle <> 0 THEN
  22.     DO
  23.     /* Initialize useful variables */
  24.     cr = '0D'x
  25.     lf = '0A'x
  26.     returnvalue = 0
  27.  
  28.     /* Type three 'h's then <enter> */
  29.     IF returnvalue >= 0 THEN
  30.         returnvalue = haTypeText(scripthandle, 0, 'hhh'cr)
  31.  
  32.     /* Wait for id/password prompt */
  33.     IF returnvalue >= 0 THEN
  34.         returnvalue = haWaitForPrompt(scripthandle, 1, 'U#=', 300, 16000)
  35.  
  36.     /* Get/prompt for User ID value from Runtime Values dialog box */
  37.     IF returnvalue >= 0 THEN
  38.         returnvalue = haGetRuntimeValue(scripthandle, 2, 1, 128, 'idval')
  39.  
  40.     /* Get/prompt for Password value from Runtime Values dialog box */
  41.     IF returnvalue >= 0 THEN
  42.         returnvalue = haGetRuntimeValue(scripthandle, 3, 1, 128, 'passval')
  43.  
  44.     /* Type the logline */
  45.     IF returnvalue >= 0 THEN
  46.         ReturnValue = haTypeText(scripthandle, 0, idval','passval||cr)
  47.             
  48.     /* Terminate link between HyperACCESS and script program */
  49.     CALL haTerminate scripthandle
  50.     END
  51.  
  52. DROP scripthandle
  53. CALL haDropFuncs
  54.