home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1995 #6 / CDD_6_95.ISO / cdd / winanw / hawin / newsnet.c < prev    next >
C/C++ Source or Header  |  1994-12-07  |  3KB  |  116 lines
  1. /* This program newsnet.c created by Hilgraeve and assigned to the NewsNet session */
  2. /* runs an automated logon script for connecting to NewNet.                        */
  3.  
  4. /*    $Revision: 1.1 $  */
  5. /*    $Date: 1994/11/08 11:59:37 $  */
  6.  
  7. /* Define main function, which is always the starting point of C programs. */
  8. /* (The term "void" indicates that the function returns no value.) */
  9. void main()
  10.     {
  11.     /* Declare variables */
  12.     long ScriptHandle;
  13.     int ReturnValue;
  14.     char Buffer[128], LogLine[128];
  15.  
  16.     /* Initialize variables */
  17.     ReturnValue = 0;
  18.     ScriptHandle = 0;
  19.  
  20.     /* Establish a link between this script program and HyperACCESS */
  21.     ScriptHandle = haInitialize(0,0,0,0);
  22.  
  23.     /* Exit if intialization of link with HyperACCESS failed */
  24.     if (ScriptHandle == 0) exit();
  25.  
  26.     /* Set local echo on */
  27.     haSetLocalEcho(ScriptHandle, 1);
  28.  
  29.     /* Type a '@' then <enter> */
  30.     if (ReturnValue >= 0)
  31.         ReturnValue = haTypeText(ScriptHandle, 0, "@");
  32.  
  33.     /* Pause */
  34.     if (ReturnValue >= 0)
  35.         haSleep(ScriptHandle, 1000L);
  36.  
  37.     /* Type a  <enter> */
  38.     if (ReturnValue >= 0)
  39.         ReturnValue = haTypeText(ScriptHandle, 0, "\r");
  40.  
  41.     /* Wait for one of three prompts possible with Tymenet or Telenet */
  42.     if (ReturnValue >= 0)
  43.         ReturnValue = haWaitForPrompt(ScriptHandle, 3, "ERMINAL=\0r name: \0identifier", 300L, 32000L);
  44.  
  45.     /* If Tymenet do this block */
  46.     if (ReturnValue == 0)
  47.         {
  48.         /* Type an <enter> */
  49.         ReturnValue = haTypeText(ScriptHandle, 0, "\r");
  50.  
  51.         /* Wait for a prompt */
  52.         if (ReturnValue >= 0)
  53.             ReturnValue = haWaitForPrompt(ScriptHandle, 1, "\r\n\r\n@", 300L, 32000L);
  54.  
  55.         /* Type text to request Newsnet */
  56.         if (ReturnValue >= 0)
  57.             ReturnValue = haTypeText(ScriptHandle, 0, "c net\r");
  58.  
  59.         /* Set local echo to off */
  60.         if (ReturnValue >= 0)
  61.             ReturnValue = haSetLocalEcho(ScriptHandle, 0);
  62.         }
  63.     /* If Telenet do this block */
  64.     else
  65.         {
  66.         /* Type an 'a' */
  67.         ReturnValue = haTypeText(ScriptHandle, 0, "a");
  68.  
  69.         /* Wait for a prompt */
  70.         if (ReturnValue >= 0)
  71.             ReturnValue = haWaitForPrompt(ScriptHandle, 1, "log in: ", 300L, 32000L);
  72.  
  73.         /* Type text requesting Newsnet */
  74.         if (ReturnValue >= 0)
  75.             ReturnValue = haTypeText(ScriptHandle, 0, "net\r");
  76.  
  77.         /* Set local echo to off */
  78.         if (ReturnValue >= 0)
  79.             ReturnValue = haSetLocalEcho(ScriptHandle, 0);
  80.         }
  81.  
  82.     /* Wait for a prompt */
  83.     if (ReturnValue >= 0)
  84.         ReturnValue = haWaitForPrompt(ScriptHandle, 1, " on\r\n-->", 300L, 32000L);
  85.  
  86.     /* Get User ID value from Runtime Values dialog box */
  87.     if (ReturnValue >= 0)
  88.         ReturnValue = haGetRuntimeValue(ScriptHandle, 2, 1, 128, Buffer);
  89.  
  90.     /* Add value to logline */
  91.     if (ReturnValue >= 0)
  92.         {
  93.         strcat(LogLine, "ID ");
  94.         strncat(LogLine, Buffer, strlen(Buffer)-1);
  95.         }
  96.  
  97.     /* Get Password value from Runtime Values dialog box */
  98.     if (ReturnValue >= 0)
  99.         ReturnValue = haGetRuntimeValue(ScriptHandle, 3, 1, 128, Buffer);
  100.  
  101.     /* Add a comma, then the password value to the logline */
  102.     if (ReturnValue >= 0)
  103.         {
  104.         strcat(LogLine, " ");
  105.         strcat(LogLine, Buffer);
  106.         }
  107.  
  108.     /* Type the logline */
  109.     if (ReturnValue >= 0)
  110.         ReturnValue = haTypeText(ScriptHandle, 0, LogLine);
  111.  
  112.     /* Terminate link between HyperACCESS and script program */
  113.     haTerminate(ScriptHandle, 0);
  114.     }
  115.  
  116.