Cherchez l'erreur(winsock)

Soyez le premier à donner votre avis sur cette source.

Vue 5 319 fois - Téléchargée 283 fois

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)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
34
Date d'inscription
vendredi 12 novembre 2004
Statut
Membre
Dernière intervention
1 novembre 2012

Sa aurait été bien que tu explique a quoi
'' Sert chacune des fonction

:)
1 bouton une action
desole mais c'est tellement evident...

faudrais que tu commente le code!
je sais a koi ça correspond mais peut etre pas les debutant en socket!

www.e-security.fr.st

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.