APPLICATION CLIENT/SERVEUR EN 37 LIGNES (TESTÉ SOUS WINDOWS XP PRO)

cs_nicolasheurtevin Messages postés 88 Date d'inscription samedi 8 février 2003 Statut Membre Dernière intervention 29 août 2006 - 28 août 2003 à 13:06
Clecle0401 Messages postés 21 Date d'inscription samedi 14 septembre 2002 Statut Membre Dernière intervention 10 juin 2009 - 25 janv. 2009 à 10:19

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/8374-application-client-serveur-en-37-lignes-teste-sous-windows-xp-pro

Clecle0401 Messages postés 21 Date d'inscription samedi 14 septembre 2002 Statut Membre Dernière intervention 10 juin 2009
25 janv. 2009 à 10:19

Dernier message : 05/07/2008
Ton message : 20/01/2009

T'as pas l'impression d'être le moins utile dans tout ça ?
Déterrer des posts de plus de 6 mois nan mais... Pathétique!

Doggydog Messages postés 1 Date d'inscription mardi 11 juillet 2006 Statut Membre Dernière intervention 2 février 2009
20 janv. 2009 à 15:58

ben oui clecle, montre nous ce que tu sais faire !

PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
5 juil. 2008 à 04:17

allons, un peu de courtoisie dans ce monde de brutes svp! ;)

Sh4rk_40 Messages postés 3 Date d'inscription dimanche 31 octobre 2004 Statut Membre Dernière intervention 2 février 2008
4 juil. 2008 à 23:00

c est comme toi clecle0401...tu sers a rien

Clecle0401 Messages postés 21 Date d'inscription samedi 14 septembre 2002 Statut Membre Dernière intervention 10 juin 2009
4 juil. 2008 à 16:03

Dans ce cas ce serait plutôt ta source qui est inutile !
Autant avoir fait un lien vers le MSDN... SANS INTERÊT

cs_nicolasheurtevin Messages postés 88 Date d'inscription samedi 8 février 2003 Statut Membre Dernière intervention 29 août 2006
23 avril 2008 à 19:56

Et je ne m'en cache pas si tu avais lu la description de ma source où j'indique :

C'est une application toute simple qui permet à 2 ordinateurs en réseau de chatter. N'y voyez rien d'exceptionnel dans cette appli, j'ai juste épuré un code récupéré à l'adresse suivante http://msdn.microsoft.com/library/en-us/vbcon98/html/vbconusingwinsockcontrol.asp

La prochaine fois, achète toi des yeux avant de faire des remarques inutiles !

Clecle0401 Messages postés 21 Date d'inscription samedi 14 septembre 2002 Statut Membre Dernière intervention 10 juin 2009
21 avril 2008 à 15:54

Du gros copier/coller direct du MSDN.
Honteux !

Sh4rk_40 Messages postés 3 Date d'inscription dimanche 31 octobre 2004 Statut Membre Dernière intervention 2 février 2008
15 févr. 2006 à 17:27

Moi J ai un ptit probleme au niveau des guillemets :
Private Sub
AxWinsock1_ConnectionRequest _
(ByVal requestID As Long)

If "AxWinsock1.State" <> "sckClosed" Then _
AxWinsock1.Close()

AxWinsock1.Accept(requestID)
End Sub

cs_nicolasheurtevin Messages postés 88 Date d'inscription samedi 8 février 2003 Statut Membre Dernière intervention 29 août 2006
3 sept. 2003 à 13:47

Ok j'avoue je suis coupable !!
Donc j'explique :

If Winsock1.State <> sckClosed Then _
Winsock1.Close
Winsock1.Accept requestID

est équivalent à

If Winsock1.State <> sckClosed Then
Winsock1.Close
End If
Winsock1.Accept requestID

Voilà !!!

cs_Benouille Messages postés 215 Date d'inscription jeudi 24 octobre 2002 Statut Membre Dernière intervention 7 septembre 2007
3 sept. 2003 à 11:22

bon c'est une tite remarque hein :o)
tu dis que c'est fait pour des débutants, mais le code suivant induit en erreur je trouve:

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then _
Winsock1.Close
Winsock1.Accept requestID
End Sub

c'est pas forcément évident de savoir que le .close est dans le If alors que le .accept ne l'est pas.

sinon bin je m'en vais le tester tout de suite ;o)

cs_nicolasheurtevin Messages postés 88 Date d'inscription samedi 8 février 2003 Statut Membre Dernière intervention 29 août 2006
1 sept. 2003 à 12:31

J'y avais pensé, mais cela oblige à balayer le réseau afin de récupérer les IP des postes or j'ai voulu un code simple. Ce code s'adresse principalement aux personnes débutantes. Mais merci tout de même de ton commentaire !

cs_Skyman Messages postés 24 Date d'inscription vendredi 6 juin 2003 Statut Membre Dernière intervention 26 septembre 2003
1 sept. 2003 à 09:24

avec une API ou en titillant le registre tu peux recuperer le nom de l ordinateur ...
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
et euh pour le registre je c pas exactement ou cest ...

www.skyweb.t2u.com

cs_nicolasheurtevin Messages postés 88 Date d'inscription samedi 8 février 2003 Statut Membre Dernière intervention 29 août 2006
28 août 2003 à 13:06

Rectificatif : je m'excuse d'avance pour les erreurs dans le code voici le code corrigé :

Code serveur :

Private Sub Form_Load()
Winsock1.LocalPort = 1001
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then _
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub txtEnvoyé_Change()
Winsock1.SendData txtEnvoyé.Text
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData
txtReçu.Text = strData
End Sub

Code client :

Private Sub Form_Load()
Winsock1.RemoteHost = "nicolas2"
Winsock1.RemotePort = 1001
Winsock1.Connect
End Sub

Private Sub txtEnvoyé_Change()
Winsock1.SendData txtEnvoyé.Text
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData
txtReçu.Text = strData
End Sub

Discussions similaires

Erreur du serveur dans l'application '/'

Server Error in '/' Application ... Runtime error

passer en commentaire plusieurs lignes de code VBA rapidement

fonctions dispo avec windows.h

Exemple d'une application web avec j2EE

Votre réponse

Discussions similaires