1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| Private Sub wck_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim pass As String * 8
Dim data As String
Dim Ordre As String * 1
wck(Index).GetData data
Ordre = Left(data, 1) 'récupère dans Ordre le 1er caractère
data = Right(data, Len(data) - 1) 'retire ce 1er caractère de data
Select Case Ordre
Case "U"
On Error GoTo invalid
Numfich = FreeFile
Open App.Path & "\Account\" & data & ".dat" For Input As #Numfich
Line Input #Numfich, pass
wck(Index).SendData "passplz"
Close #Numfich
Case "P"
If data = pass Then
wck(Index).SendData "goodpass"
Else
invalid:
wck(Index).SendData "wrongpass"
End If
End Select
End Sub |