home *** CD-ROM | disk | FTP | other *** search
/ NetComm Communications 5 / NetComm.iso / resource / netcomm / wcomm7 / navup.db_ / navup.db
Encoding:
Text File  |  1997-10-31  |  963 b   |  45 lines
  1.  
  2. Sub Main()
  3.  
  4.     Dim ReturnValue As Integer
  5.     Dim RuntimeValue As String
  6.     Dim UserNumber1 As Integer
  7.     Dim UserNumber2 As Integer
  8.     Dim CStatus As Integer
  9.      Dim SError As Integer
  10.  
  11.     UserNumber1 = 0
  12.     UserNumber2 = 1
  13.     
  14.     Dim MySession As New Session
  15.  
  16.     ReturnValue = MySession.WaitForPrompt( " (Y/N)? "+Chr$( 0 ), 1000, 100000 )
  17.     MySession.TypeText "n"+Chr$( 13 )+""
  18.     
  19.     ReturnValue = MySession.WaitForPrompt( " "+Chr$( 34 )+"new"+Chr$( 34 )+": "+Chr$( 0 ), 1000, 100000 )
  20.  
  21.     TryAgain:
  22.     MySession.TypeText "WINCOMM"& UserNumber1 & UserNumber2 &Chr$( 13 )+""
  23.  
  24.     ReturnValue = MySession.WaitForPrompt( "ssword: "+Chr$( 0 ), 500, 1000 )
  25.     SError=MySession.error
  26.  
  27.     If SError = 0  Then
  28.              MySession.TypeText "NAVUPDATE"+Chr$( 13 )+""
  29.     ELSE 
  30.         UserNumber2 = UserNumber2 + 1
  31.  
  32.         if UserNumber2 > 9 then 
  33.               UserNumber1 = UserNumber1 + 1
  34.             UserNumber2 = 0
  35.         End If
  36.         
  37.         goto TryAgain
  38.  
  39.     End If
  40.     
  41.     Exit Sub
  42.  
  43. End Sub
  44.  
  45.