home *** CD-ROM | disk | FTP | other *** search
-
- SCRIPT CIXV32;
-
- /* the line below is needed for the MB_xxx constants used later. */
- #include "windows.inc"
-
- VAR CIXid,CIXpass:String;
-
- BEGIN
- ClrScr();
- Write('==================================================|');
- Write(' Calling Compulink Information Exchange (CIX) |');
- Write('==================================================|');
- IF FetchStr("CIX",CIXid,CIXpass) THEN
- IF Dial("CIXV32") THEN
- IF WaitFor("login: ",30) THEN
- Delay(1);
- Transmit('qix|');
- WaitFor('new user) ');
- Delay(1);
- Transmit(CIXid);
- WaitFor("Password: ");
- Delay(1);
- Transmit(CIXpass);
- ELSE
- Write("WaitFor('login:') failed.|");
- HangUp();
- END;
- ELSE
- Write("Dial attempt failed.|");
- END;
- ELSE
- /* This is how to display a nice Windows style alert box. */
- MessageBox(
- GetOdyWindow(), /* the window which is activated when message box closes */
- "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 */
- "CIX Script Error", /* alert box caption */
- MB_ICONSTOP+MB_OK /* we want a STOP icon, plus an 'OK' button. */
- );
- END;
- END;
-