CHERCHEZ L'ERREUR(WINSOCK)

Dim stade As Integer
Dim vbstring As String


Private Sub Command1_Click()
If Combo1.Text <> " " Then Combo1.AddItem Combo1.Text
If Combo2.Text <> " " Then Combo2.AddItem Combo2.Text
If Combo3.Text <> " " Then Combo3.AddItem Combo3.Text
Winsock1.Close
Winsock1.Connect Combo1.Text, Combo3.Text
List1.Clear
End Sub

Private Sub Command2_Click()
If Winsock1.State <> sckClosed Then Winsock1.SendData "user " & Combo2.Text & vbCrLf

End Sub

Private Sub Command3_Click()
If Winsock1.State <> sckClosed Then Winsock1.SendData "PASS " & Text1.Text & vbCrLf

End Sub

Private Sub Command4_Click()
If Winsock1.State <> sckClosed Then Winsock1.SendData "Stat " & vbCrLf

End Sub

Private Sub Command5_Click()
Winsock1.SendData "quit" & vbCrLf
Winsock1.Close
List1.Clear
End Sub

Private Sub Command6_Click()
If Winsock1.State <> sckClosed Then Winsock1.SendData "NOOP" & vbCrLf
End Sub

Private Sub Command7_Click()
If Winsock1.State <> sckClosed Then Winsock1.SendData Text1.Text & vbCrLf

End Sub



Private Sub Command8_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()

End Sub

Private Sub List1_DblClick()
MsgBox List1.Text
End Sub





Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData vbstring
List1.AddItem vbstring
End Sub