Probleme avec winsock pour reception de données [Résolu]

Signaler
Messages postés
6
Date d'inscription
dimanche 26 juin 2005
Statut
Membre
Dernière intervention
22 juillet 2006
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
Merci pour le data a remplacer, mais le probleme n'est pas la ,

Client

Fichier as string

Private Sub lanceprog()


Dim lance As String


lance = InputBox("Indiquer le message", "message", "ca marche pas......")




fichier = lance
winsock1.Sendata lance

Serveur

Winsock1.GetData fichier

If fichier = "nom" Then Call mass
If fichier = lance Then Call lanceprog
If fichier = "oj" Then Call ok

private sub mass ()
msgbox "salut"
end sub

Private Sub lanceprog()
MsgBox  = "" & lance      

End sub

private sub ok ()
msgbox "ok"
end sub

Et je voudrais afficher le message de la inputbox dans une message box, sans utiliser un deuxieme winsock.
Si quelqun peu me dire comment faire.... merci

1 réponse

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
76
Salut
Tu n'as pas bien saisi le fonctionnement des variables :
Tu fais winsock1.Sendata lance : Cela veut dire que tu expédies le contenu de la variable 'lance', pas son nom.
Côté serveur, quand il reçoit qqchose, c'est le contenu, c'est ce que tu veux afficher dans ta MsgBox.
If fichier = "nom" Then Call mass
If fichier = "oj" Then Call ok
MsgBox fichier

Maitrise mieux tes variables en les dimensionnant (avec Dim, Private ou Public) : Apprends l'étendue de ces variables : si elles seront visible uniquement dans la procédure en cours, dans ta forme ou partout dans ton projet.
Charge n'importe quel code sur vbfrance et analyse comment les autres font.
Commence par le début, tu verras, ça avancera plus vite.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accro