Case "USER"
      ' Username.
        ' Accept the username
         .LoginStage = WaitingForPassword
         .username = nArgs
         .Password = "PASSWORT"
         SendBuffer = Text.MSG_PassReqFor & LCase$(.username) & vbCrLf
         SendBufLen = Len(SendBuffer)
         send .CommandPort, Send
Buffer, SendBufLen, 0 'send welcome message 
STATS.AddDownload SendBufLen, 0 
 
Case "PASS" 
If .LoginStage = WaitingForPassword Then 
.LoginStage = Processing 
.Password = nArgs 
If .username = "USERNAME" And .Password = "PASSWORT" Then 
' Password seems OK to me. 
If wsFTP.CurConnections >= wsFTP.MaxConnections Then 
SendBuffer = Text.ERR_MAXUSERS 
SendBufLen = Len(SendBuffer) 
send .CommandPort, SendBuffer, SendBufLen, 0 'send welcome message 
STATS.AddDownload SendBufLen, 0 
closesocket .CommandPort 
User.ClearConnectingUser UserNum 
Exit Sub 
End If