Cherchez l'erreur(winsock)

Télécharger le projet
Commenter

Description

quelques commandes winsock mise en application...

Source / Exemple : 


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

Conclusion :


voila gageons que cela vous fasse passer 2 seconde :o)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_blindman)