home *** CD-ROM | disk | FTP | other *** search
/ Computerworld 1996 March / Computerworld_1996-03_cd.bin / idg_cd3 / aplikace / komunika / odywin2 / ody2wevj.lzh / CIXV32.SCR < prev    next >
Encoding:
Text File  |  1995-02-03  |  1.4 KB  |  42 lines
  1.  
  2. SCRIPT CIXV32;
  3.  
  4. /* the line below is needed for the MB_xxx constants used later. */
  5. #include "windows.inc"
  6.  
  7. VAR CIXid,CIXpass:String;
  8.  
  9. BEGIN
  10.      ClrScr();
  11.      Write('==================================================|');
  12.      Write('   Calling Compulink Information Exchange (CIX)   |');
  13.      Write('==================================================|');
  14.      IF FetchStr("CIX",CIXid,CIXpass) THEN
  15.          IF Dial("CIXV32") THEN
  16.              IF WaitFor("login: ",30) THEN
  17.                 Delay(1);
  18.                 Transmit('qix|');
  19.                 WaitFor('new user) ');
  20.                 Delay(1);
  21.                 Transmit(CIXid);
  22.                 WaitFor("Password: ");
  23.                 Delay(1);
  24.                 Transmit(CIXpass);
  25.                ELSE
  26.                  Write("WaitFor('login:') failed.|");
  27.                  HangUp();
  28.              END;
  29.            ELSE
  30.              Write("Dial attempt failed.|");
  31.          END;
  32.        ELSE
  33.          /* This is how to display a nice Windows style alert box. */
  34.          MessageBox(
  35.             GetOdyWindow(), /* the window which is activated when message box closes */
  36.             "The PASSWORD.ODY file does not contain a 'CIX' entry. Please see the README.TXT file for info on how to fix this!", /* text in box */
  37.             "CIX Script Error", /* alert box caption */
  38.             MB_ICONSTOP+MB_OK  /* we want a STOP icon, plus an 'OK' button. */
  39.          );
  40.      END;
  41. END;
  42.