winsock pb de listenRésolu

Question

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

nhervagault · Accepted Answer

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

cs_jocelyn456 · Answer

tu a raison, j'ai enlevé le close et ca fonctionne.
Merci

cs_jeannot132 · Answer

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

Winsock pb de listen

3 réponses

Votre réponse