Winsock pb de listen

Résolu
cs_jocelyn456 Messages postés 22 Date d'inscription dimanche 25 mars 2007 Statut Membre Dernière intervention 23 juin 2010 - 1 nov. 2009 à 10:36
cs_jeannot132 Messages postés 10 Date d'inscription lundi 4 mai 2009 Statut Membre Dernière intervention 6 juillet 2010 - 1 nov. 2009 à 12:51
bonjour,
je suis en train de faire un petit programme et lors de l'execution sous VB tout fonctionne correctement, mais quand je créé l'exe, la le programme plannte dans cette partie du code :

Dim nb_port As Integer
Dim mode As String
Dim connect 'quand serveur quand client
'attente demande
'demande accepte
'connecté connecté
Dim data As String
Dim nom_srv As String
Dim nom_client As String

Private Sub cr_serv_Click(Index As Integer)
On Error GoTo erreur
mode = "srv" 'mode serveur ou client
connect = "attente"
Winsock2.Close

nb_port = InputBox("Numero du port a utiliser", "Choix du port") 'choix du port


Winsock2.LocalPort = nb_port
Winsock2.Listen ca plantela 'attente de connexion

Exit Sub
erreur:
Print "erreur lors de la creation du serveur."

Je souhaiterais quee vous m'expliquiez, quand je lance l'exe il fonctionne et quand il arrive la ca me fait le programme a cessé de fcontionner

3 réponses

nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 37
1 nov. 2009 à 11:30
Salut,

Mets des titres corrects !!!! (titre renommé)

C'est bizarre que ca marche dans vb6,
je ne connais pas trop la programmation VB6 et reseau

Mais pourquoi fermer winsock avant le listen?

Exemple http://files.codes-sources.com/fichier.aspx?id=2725&f=anti+netbus\anti+netbus.frm

pour un modele avec les winsock
3
cs_jocelyn456 Messages postés 22 Date d'inscription dimanche 25 mars 2007 Statut Membre Dernière intervention 23 juin 2010
1 nov. 2009 à 11:34
tu a raison, j'ai enlevé le close et ca fonctionne.
Merci
0
cs_jeannot132 Messages postés 10 Date d'inscription lundi 4 mai 2009 Statut Membre Dernière intervention 6 juillet 2010
1 nov. 2009 à 12:51
bravo pour cette belle et bonne réponse ,je suis nul en informatique ,n'ai jamais appris et vraiment c'est bien de donner une réponse compréhensible et juste bravo
0
Rejoignez-nous