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 411 fois - Téléchargée 293 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
cs_clinik
Messages postés
34
Date d'inscription
vendredi 12 novembre 2004
Statut
Membre
Dernière intervention
1 novembre 2012
21 avril 2009 à 17:36
Sa aurait été bien que tu explique a quoi
'' Sert chacune des fonction

:)
blindman
15 déc. 2001 à 09:19
1 bouton une action
blindman
15 déc. 2001 à 09:19
desole mais c'est tellement evident...
BlackWizzard
14 déc. 2001 à 18:47
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)