APPLICATION CLIENT/SERVEUR EN 37 LIGNES (TESTÉ SOUS WINDOWS XP PRO)
cs_nicolasheurtevin
Messages postés88Date d'inscriptionsamedi 8 février 2003StatutMembreDernière intervention29 août 2006
-
28 août 2003 à 13:06
Clecle0401
Messages postés21Date d'inscriptionsamedi 14 septembre 2002StatutMembreDernière intervention10 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.
La prochaine fois, achète toi des yeux avant de faire des remarques inutiles !
Clecle0401
Messages postés21Date d'inscriptionsamedi 14 septembre 2002StatutMembreDernière intervention10 juin 2009 21 avril 2008 à 15:54
Du gros copier/coller direct du MSDN.
Honteux !
Sh4rk_40
Messages postés3Date d'inscriptiondimanche 31 octobre 2004StatutMembreDerniè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és88Date d'inscriptionsamedi 8 février 2003StatutMembreDernière intervention29 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és215Date d'inscriptionjeudi 24 octobre 2002StatutMembreDerniè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és88Date d'inscriptionsamedi 8 février 2003StatutMembreDernière intervention29 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és24Date d'inscriptionvendredi 6 juin 2003StatutMembreDernière intervention26 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és88Date d'inscriptionsamedi 8 février 2003StatutMembreDernière intervention29 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
25 janv. 2009 à 10:19
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!
20 janv. 2009 à 15:58
5 juil. 2008 à 04:17
4 juil. 2008 à 23:00
4 juil. 2008 à 16:03
Autant avoir fait un lien vers le MSDN... SANS INTERÊT
23 avril 2008 à 19:56
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 !
21 avril 2008 à 15:54
Honteux !
15 févr. 2006 à 17:27
Private Sub
AxWinsock1_ConnectionRequest _
(ByVal requestID As Long)
If "AxWinsock1.State" <> "sckClosed" Then _
AxWinsock1.Close()
AxWinsock1.Accept(requestID)
End Sub
3 sept. 2003 à 13:47
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à !!!
3 sept. 2003 à 11:22
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)
1 sept. 2003 à 12:31
1 sept. 2003 à 09:24
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
28 août 2003 à 13:06
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