home *** CD-ROM | disk | FTP | other *** search
/ .net 1999 December / netCD65.iso / pc / Software / VirtualA / 16bit / vaper16.exe / %MYDIR% / CIXTEL.SCR < prev    next >
Encoding:
Text File  |  1999-10-06  |  894 b   |  38 lines
  1. ' Login procedure for dialup Cix
  2.  
  3. Declare Sub LogResult(result As String)
  4.  
  5. 'T:SendRlogin (subroutine) (CIX)
  6. Sub SendRlogin(t As Tracker)
  7.     Comms.Send "rlogin 194.153.0.50\r"
  8.     t.reset
  9. End Sub
  10.  
  11. Function Login()
  12.     Dim t As Tracker
  13.  
  14.     Set t = CreateTracker("AnnexPrompt", "\nannex:", "SendRlogin")
  15.     On Error Goto Login_error
  16.     If Not RepeatWaitWithKick("ogin:", "\r", 2) Then
  17.         t.delete
  18.         Login = False
  19.         Exit Function
  20.     End If
  21.     t.delete
  22.     Comms.Send "qix\r"
  23.     WaitForTimed "new user)", 900
  24.     Comms.Send Session.LoginName + "\r"
  25.     If Session.Password<>"" Then
  26.         WaitFor "assword:"
  27.         Comms.SendEncrypted Session.Password
  28.         Comms.Send "\r"
  29.     End If
  30.     Login = True
  31.     Exit Function
  32. Login_Error:
  33.     If Err <> 1002 Then LogResult "Error " + Str$(Err) + ":" + Error$ + Basic.Eoln$ + "While trying to log on"
  34.     Login = False
  35.     Exit Function
  36. End Function
  37.  
  38.