Quand je fait mes testes sur ma machine mon programme client/serveur
fonctionne (le client étant le méme ordi que le serveur)
Mais si je passe mon programme à quelqu'un pour le tester en réelle le
serveur ne détècte rien???
Je met le code suivant coté client
Private Sub MnuOpen_Click()
StatusBar1.SimpleText = "En cour de connexion"
'on ferme la connexion au cas ou elle serait active
Winsock.Close
'on règle les paramettre de l'hote
Winsock.RemoteHost = "83.155.124.23" 'ip de l'hôte (elle est bonne c'est
la mienne)
Winsock.RemotePort = 20 'port de connexion de l'hôte
'on se connect
Winsock.Connect
'on affiche l'etat
StatusBar1.SimpleText = "Connécté"
End Sub
Et celui ci coté serveur :
Private Sub CmdOpen_Click()
'on ferme la connexion au cas ou elle serait deja ouverte
Winsock.Close
'on définit le port qu'utilisera la connexion
Winsock.LocalPort = 20
'on met winsock en attente d'une demande de connexion
Winsock.Listen
'maintenant on attend la demande
End Sub
Private Sub Winsock_ConnectionRequest(ByVal requestID As Long) 'Détecte et
ouvre la connexion
'on ferme la connexion en cour
Winsock.Close
'on accept la connexion entrante
Winsock.Accept (requestID)
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Xavier Pillons [MS]
Es tu certain que le port 20 est ouvert et disponible entre tes deux machines ?
-- Xavier Pillons Microsoft Services
"Guillaume" wrote in message news:c1pmq6$i8b$
Quand je fait mes testes sur ma machine mon programme client/serveur fonctionne (le client étant le méme ordi que le serveur) Mais si je passe mon programme à quelqu'un pour le tester en réelle le serveur ne détècte rien???
Je met le code suivant coté client
Private Sub MnuOpen_Click() StatusBar1.SimpleText = "En cour de connexion" 'on ferme la connexion au cas ou elle serait active Winsock.Close 'on règle les paramettre de l'hote Winsock.RemoteHost = "83.155.124.23" 'ip de l'hôte (elle est bonne
c'est
la mienne) Winsock.RemotePort = 20 'port de connexion de l'hôte 'on se connect Winsock.Connect 'on affiche l'etat StatusBar1.SimpleText = "Connécté" End Sub
Et celui ci coté serveur :
Private Sub CmdOpen_Click() 'on ferme la connexion au cas ou elle serait deja ouverte Winsock.Close 'on définit le port qu'utilisera la connexion Winsock.LocalPort = 20 'on met winsock en attente d'une demande de connexion Winsock.Listen 'maintenant on attend la demande End Sub
Private Sub Winsock_ConnectionRequest(ByVal requestID As Long) 'Détecte
et
ouvre la connexion 'on ferme la connexion en cour Winsock.Close 'on accept la connexion entrante Winsock.Accept (requestID) End Sub
Merci
Es tu certain que le port 20 est ouvert et disponible entre tes deux
machines ?
--
Xavier Pillons
Microsoft Services
"Guillaume" <ahhedrole@hotmail.com> wrote in message
news:c1pmq6$i8b$1@news.tiscali.fr...
Quand je fait mes testes sur ma machine mon programme client/serveur
fonctionne (le client étant le méme ordi que le serveur)
Mais si je passe mon programme à quelqu'un pour le tester en réelle le
serveur ne détècte rien???
Je met le code suivant coté client
Private Sub MnuOpen_Click()
StatusBar1.SimpleText = "En cour de connexion"
'on ferme la connexion au cas ou elle serait active
Winsock.Close
'on règle les paramettre de l'hote
Winsock.RemoteHost = "83.155.124.23" 'ip de l'hôte (elle est bonne
c'est
la mienne)
Winsock.RemotePort = 20 'port de connexion de l'hôte
'on se connect
Winsock.Connect
'on affiche l'etat
StatusBar1.SimpleText = "Connécté"
End Sub
Et celui ci coté serveur :
Private Sub CmdOpen_Click()
'on ferme la connexion au cas ou elle serait deja ouverte
Winsock.Close
'on définit le port qu'utilisera la connexion
Winsock.LocalPort = 20
'on met winsock en attente d'une demande de connexion
Winsock.Listen
'maintenant on attend la demande
End Sub
Private Sub Winsock_ConnectionRequest(ByVal requestID As Long) 'Détecte
et
ouvre la connexion
'on ferme la connexion en cour
Winsock.Close
'on accept la connexion entrante
Winsock.Accept (requestID)
End Sub
Es tu certain que le port 20 est ouvert et disponible entre tes deux machines ?
-- Xavier Pillons Microsoft Services
"Guillaume" wrote in message news:c1pmq6$i8b$
Quand je fait mes testes sur ma machine mon programme client/serveur fonctionne (le client étant le méme ordi que le serveur) Mais si je passe mon programme à quelqu'un pour le tester en réelle le serveur ne détècte rien???
Je met le code suivant coté client
Private Sub MnuOpen_Click() StatusBar1.SimpleText = "En cour de connexion" 'on ferme la connexion au cas ou elle serait active Winsock.Close 'on règle les paramettre de l'hote Winsock.RemoteHost = "83.155.124.23" 'ip de l'hôte (elle est bonne
c'est
la mienne) Winsock.RemotePort = 20 'port de connexion de l'hôte 'on se connect Winsock.Connect 'on affiche l'etat StatusBar1.SimpleText = "Connécté" End Sub
Et celui ci coté serveur :
Private Sub CmdOpen_Click() 'on ferme la connexion au cas ou elle serait deja ouverte Winsock.Close 'on définit le port qu'utilisera la connexion Winsock.LocalPort = 20 'on met winsock en attente d'une demande de connexion Winsock.Listen 'maintenant on attend la demande End Sub
Private Sub Winsock_ConnectionRequest(ByVal requestID As Long) 'Détecte
et
ouvre la connexion 'on ferme la connexion en cour Winsock.Close 'on accept la connexion entrante Winsock.Accept (requestID) End Sub
Merci
Guillaume
Oui le port 20 est bien ouvert.....
"Xavier Pillons [MS]" a écrit dans le message de news:u0lzyTe$
Es tu certain que le port 20 est ouvert et disponible entre tes deux machines ?
-- Xavier Pillons Microsoft Services
"Guillaume" wrote in message news:c1pmq6$i8b$ > Quand je fait mes testes sur ma machine mon programme client/serveur > fonctionne (le client étant le méme ordi que le serveur) > Mais si je passe mon programme à quelqu'un pour le tester en réelle le > serveur ne détècte rien??? > > Je met le code suivant coté client > > Private Sub MnuOpen_Click() > StatusBar1.SimpleText = "En cour de connexion" > 'on ferme la connexion au cas ou elle serait active > Winsock.Close > 'on règle les paramettre de l'hote > Winsock.RemoteHost = "83.155.124.23" 'ip de l'hôte (elle est bonne c'est > la mienne) > Winsock.RemotePort = 20 'port de connexion de l'hôte > 'on se connect > Winsock.Connect > 'on affiche l'etat > StatusBar1.SimpleText = "Connécté" > End Sub > > Et celui ci coté serveur : > > Private Sub CmdOpen_Click() > 'on ferme la connexion au cas ou elle serait deja ouverte > Winsock.Close > 'on définit le port qu'utilisera la connexion > Winsock.LocalPort = 20 > 'on met winsock en attente d'une demande de connexion > Winsock.Listen > 'maintenant on attend la demande > End Sub > > Private Sub Winsock_ConnectionRequest(ByVal requestID As Long) 'Détecte et > ouvre la connexion > 'on ferme la connexion en cour > Winsock.Close > 'on accept la connexion entrante > Winsock.Accept (requestID) > End Sub > > Merci > >
Oui le port 20 est bien ouvert.....
"Xavier Pillons [MS]" <xpillons@online.microsoft.com> a écrit dans le
message de news:u0lzyTe$DHA.3256@TK2MSFTNGP09.phx.gbl...
Es tu certain que le port 20 est ouvert et disponible entre tes deux
machines ?
--
Xavier Pillons
Microsoft Services
"Guillaume" <ahhedrole@hotmail.com> wrote in message
news:c1pmq6$i8b$1@news.tiscali.fr...
> Quand je fait mes testes sur ma machine mon programme client/serveur
> fonctionne (le client étant le méme ordi que le serveur)
> Mais si je passe mon programme à quelqu'un pour le tester en réelle le
> serveur ne détècte rien???
>
> Je met le code suivant coté client
>
> Private Sub MnuOpen_Click()
> StatusBar1.SimpleText = "En cour de connexion"
> 'on ferme la connexion au cas ou elle serait active
> Winsock.Close
> 'on règle les paramettre de l'hote
> Winsock.RemoteHost = "83.155.124.23" 'ip de l'hôte (elle est bonne
c'est
> la mienne)
> Winsock.RemotePort = 20 'port de connexion de l'hôte
> 'on se connect
> Winsock.Connect
> 'on affiche l'etat
> StatusBar1.SimpleText = "Connécté"
> End Sub
>
> Et celui ci coté serveur :
>
> Private Sub CmdOpen_Click()
> 'on ferme la connexion au cas ou elle serait deja ouverte
> Winsock.Close
> 'on définit le port qu'utilisera la connexion
> Winsock.LocalPort = 20
> 'on met winsock en attente d'une demande de connexion
> Winsock.Listen
> 'maintenant on attend la demande
> End Sub
>
> Private Sub Winsock_ConnectionRequest(ByVal requestID As Long) 'Détecte
et
> ouvre la connexion
> 'on ferme la connexion en cour
> Winsock.Close
> 'on accept la connexion entrante
> Winsock.Accept (requestID)
> End Sub
>
> Merci
>
>
"Xavier Pillons [MS]" a écrit dans le message de news:u0lzyTe$
Es tu certain que le port 20 est ouvert et disponible entre tes deux machines ?
-- Xavier Pillons Microsoft Services
"Guillaume" wrote in message news:c1pmq6$i8b$ > Quand je fait mes testes sur ma machine mon programme client/serveur > fonctionne (le client étant le méme ordi que le serveur) > Mais si je passe mon programme à quelqu'un pour le tester en réelle le > serveur ne détècte rien??? > > Je met le code suivant coté client > > Private Sub MnuOpen_Click() > StatusBar1.SimpleText = "En cour de connexion" > 'on ferme la connexion au cas ou elle serait active > Winsock.Close > 'on règle les paramettre de l'hote > Winsock.RemoteHost = "83.155.124.23" 'ip de l'hôte (elle est bonne c'est > la mienne) > Winsock.RemotePort = 20 'port de connexion de l'hôte > 'on se connect > Winsock.Connect > 'on affiche l'etat > StatusBar1.SimpleText = "Connécté" > End Sub > > Et celui ci coté serveur : > > Private Sub CmdOpen_Click() > 'on ferme la connexion au cas ou elle serait deja ouverte > Winsock.Close > 'on définit le port qu'utilisera la connexion > Winsock.LocalPort = 20 > 'on met winsock en attente d'une demande de connexion > Winsock.Listen > 'maintenant on attend la demande > End Sub > > Private Sub Winsock_ConnectionRequest(ByVal requestID As Long) 'Détecte et > ouvre la connexion > 'on ferme la connexion en cour > Winsock.Close > 'on accept la connexion entrante > Winsock.Accept (requestID) > End Sub > > Merci > >
