Greedy9988900980
Messages postés6Date d'inscriptiondimanche 26 juin 2005StatutMembreDernière intervention22 juillet 2006
-
18 juin 2006 à 16:39
Greedy9988900980
Messages postés6Date d'inscriptiondimanche 26 juin 2005StatutMembreDernière intervention22 juillet 2006
-
19 juin 2006 à 22:19
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.
Greedy9988900980
Messages postés6Date d'inscriptiondimanche 26 juin 2005StatutMembreDernière intervention22 juillet 2006 19 juin 2006 à 22:19
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
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 18 juin 2006 à 19:59
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