1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Réseau & Internet
  5. Cherchez l'erreur(winsock)

Cherchez l'erreur(winsock)

Soyez le premier à donner votre avis sur cette source.

Vue 5 336 fois - Téléchargée 284 fois

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

Ajouter un commentaire Commentaires
Signaler
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

:)
Signaler

1 bouton une action
Signaler

desole mais c'est tellement evident...
Signaler

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
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)