LA BASE D'UNE APPLI RESEAU (WINSOCK POUR LES NULS)
Bricomix
Messages postés
340
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
14 février 2005
-
6 avril 2003 à 11:32
thony64270 Messages postés 13 Date d'inscription samedi 24 juin 2006 Statut Membre Dernière intervention 9 juillet 2009 - 14 mai 2007 à 14:15
thony64270 Messages postés 13 Date d'inscription samedi 24 juin 2006 Statut Membre Dernière intervention 9 juillet 2009 - 14 mai 2007 à 14:15
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6645-la-base-d-une-appli-reseau-winsock-pour-les-nuls
https://codes-sources.commentcamarche.net/source/6645-la-base-d-une-appli-reseau-winsock-pour-les-nuls
14 mai 2007 à 14:15
Juste un petit truc plutot que de mettre :
dim essais as string
essais = machin.text
essais = ""
exit sub
utilise plutot Vbnullstring
dim essais as string
essais = machin.text
essais=vbnullstring
exit sub
il me semble que c'est plus rapide, plus claire et plus propre
10/10
4 avril 2007 à 13:57
18 déc. 2006 à 19:00
28 juin 2006 à 10:47
29 mars 2006 à 15:19
Tout d'abord BRAVO pour ta source : elle est bien faite pour les debutants du VB : je donne 10/10 moi.
Faute de moyen, j'ai pas pu tester....je m'excuse, alors je pose ma question ici. Je voulais juste savoir si ton application marche aussi dans le cas d'une connexion reseau entre 2 PC+carte reseau + Cable RJ45??
MErci d'avance pour une éventuelle réponse
13 avril 2003 à 15:26
9 avril 2003 à 17:15
Quand vous appelez qq'1 pour lui débitez plein de trucs au téléphone, le mieux pour être sûr qu'il emmagasine bien, c'est de lui demander après chaque phrase "c'est bon, tu prends en note ?" et d'attendre qu'il acquiesse pour continuer, avec lui ou avec un autre...
@ bon entendeur, consultez les comment' de mon tutorial (top favoris)
;)
Tchao @+
6 avril 2003 à 17:11
6 avril 2003 à 17:04
6 avril 2003 à 16:38
Ajoutez soit un timer de quelques millisecondes soit une boucle
For i=1 to 10
DoEvents
Next i
Il y a aussi une propriété à exploiter : SendComplete
Peut-être avec un test apres chaque envoi ?
JeVBien
6 avril 2003 à 11:32
Voilà :
Private Sub SendToAll(SendStr As String)
Dim wskSendStr As Winsock
For Each wskSendStr In wskServeur
If wskSendStr.State = sckConnected Then
wskSendStr.SendData SendStr
DoEvents
End If
Next wskSendStr
End Sub
Cette procédure ne marche pas complètement... Sur les clients, certaines informations reçus sont concaténées, alors qu'elles sont envoyés l'une après l'autre. En effet, le serveur envoie au moins (avec 16 clients), 50000 bytes/secondes.
J'espere que vous comprenez mon pb, et j'espere que vous m'aiderez !! Merci d'avance...