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
6
Date d'inscription
dimanche 26 juin 2005
Statut
Membre
Dernière intervention
22 juillet 2006
-
Bonjour, j’ai un problème avec winsock voila :



<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /?>
 




Ca concerner une application client serveur



 





 




Client



 




Dim data as string



 




Data = InputBox("coucou", "titre", "salut")



 




Winsock1.Sendata data



 




Serveur



 




Winsock1.GetData data



If data = "deco" Then Call …





If data = "cdo" Then Call …..






 






If data= Voila le probleme






 





Comment je fait, par exemple  pour Afficher une messagebox avec le contenu de ma Inputbox



 




If data = data then mssg (“ & data) affichera ce que j’ai dans m input box mais aussi les autres valeurs que prend Data comme deco par exemple


Tandis que je veux qu’il affiche uniquement le data de <?xml:namespace prefix st1 ns "urn:schemas-microsoft-com:office:smarttags" /?><st1:personname w:st="on" productid="la InputBox">la InputBox</st1:personname>



 




Je sais que je pourrais utiliser un autre contrôle winsock uniquement dedié a cette fonction mais je ne veux pas surcharger le projet, donc faut que ca marche avec un seul winsock.

2 réponses

Messages postés
6
Date d'inscription
dimanche 26 juin 2005
Statut
Membre
Dernière intervention
22 juillet 2006

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
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
76
Salut
Récemment, qqun a eu la même erreur sur le forum : N'utilise pas de varaible portant le nom de Data : c'est uin mot réservé.
Pas la peine de faire de If puisque c'est le dernier choix.
Il te suffit de charger n'importe quelle source de Chat et tu sauras comment faire.

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