home *** CD-ROM | disk | FTP | other *** search
- ;...........................Start of Script..............................
- ;This script is designed for use with TPG Internet login procedures
- ;
- ; Main entry point to script
- ;
- proc main
- ; Delay for 3 seconds first to allow host time
- ; to send initial characters.
- delay 1
- ; prod the Communications server with a carriage return
- transmit "^M"
- ; Wait for the login prompt before entering
- ; the user ID
- waitfor "sername:"
- ;delay 2
- ; $USERID contains the Username taken from the Connect screen
- transmit $USERID
- transmit "^M"
- ; Send the password which was entered in the connect screen
- waitfor "assword:"
- ;delay 2
- transmit $PASSWORD
- transmit "^M"
- ; Wait while the Comms server verifys the Username & Password
- ; after which the menu is displayed
- ; If you find the choice prompt is slow to appear, activate "delay 2" and "transmit
- ; "^M"" so that the script waits for 2 seconds and then enters a second
- ; carrage return to repeat the prompt.
- ;delay 2
- ;transmit "^M"
- waitfor "hoice:"
- ; Choose PPP connection
- ;delay 2
- transmit "ppp"
- transmit "^m"
- delay 1
- endproc
- ;...........................End of Script..............................