OVH Cloud OVH Cloud

Winsock AU SECOURS S.V.P

18 réponses
Avatar
davepath
Bonjour

Alors voila prendre en consideration l'instal suivante:

Poste 1: NT4 Srv P6 128bits, Internet via Routeur adsl,
Protocol instal: TCP/IP et NetBeui 2 carte réseaux installées

Poste 2: NT4 Srv P6 128bits, Internet via Modem
Protocol instal: TCP/IP pas de carte réseaux installées

J'ai fait une app avec un ctrl winsock, pour lire les msg sur un serveur
pop,
elle tourne tres bien sur poste 1.

L'appli a été installé par le prog d'empaquetage de VB6.
Tous les fichiers sont la.

Le fichier setup.lst est le suivant :

[Bootstrap Files]
File1=VB6STKIT.DLL,$(WinSysPathSysFile),,,6/2/99 11:00:00
PM,101888,6.0.84.50
File2=COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5/31/98 11:00:00
PM,22288,4.71.1460.1
File3=MSVCRT40.DLL,$(WinSysPathSysFile),,,5/31/99 11:00:00
PM,326656,4.22.0.0
File4=VB6FR.DLL,$(WinSysPath),,$(Shared),10/1/00 11:00:00
PM,119568,6.0.89.88
File5=STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,6/2/99 11:00:00
PM,17920,2.40.4275.1
File6=ASYCFILT.DLL,$(WinSysPathSysFile),,,3/7/99 11:00:00
PM,147728,2.40.4275.1
File7=OLEPRO32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,3/7/99 11:00:00
PM,164112,5.0.4275.1
File8=OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/11/00 11:00:00
PM,598288,2.40.4275.1
File9=msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8/29/02 6:00:00
AM,1388544,6.0.92.37

[Setup1 Files]
File1=BAL.mdb,$(AppPath),,,12/10/04 10:05:36 AM,634880,0.0.0.0
File2=MSHFGFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
PM,51200,6.0.30.5
File3=STDFTFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
PM,6656,6.0.81.63
File4=MSSTDFMT.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/13/00
11:00:00 PM,118784,6.0.88.4
File5=MSHFLXGD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/21/00
11:00:00 PM,438976,6.0.88.4
File6=MSCMCFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
PM,141312,6.0.81.63
File7=Mscomctl.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),1/5/99 8:18:14
PM,1057552,6.1.83.41
File8=DBGRDFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
PM,34816,1.0.0.126
File9=DBGRID32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/15/98
11:00:00 PM,525352,5.1.81.4
File10=WINSKFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
PM,15872,6.0.81.63
File11=MSWINSCK.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/6/00
1:00:00 AM,109248,6.0.89.88
File12=MSOUTL9.OLB,$(WinSysPath),,$(Shared),3/2/99 7:53:22
PM,163840,9.0.0.2702
File13=VB5DB.DLL,$(WinSysPath),,$(Shared),6/17/98 11:00:00
PM,89360,6.0.81.69
File14=MSREPL35.DLL,$(WinSysPathSysFile),,,4/12/99 11:00:00
PM,415504,3.51.2404.0
File15=MSRD2X35.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/24/98
11:00:00 PM,252176,3.51.623.0
File16=expsrv.dll,$(WinSysPathSysFile),,,4/30/04 2:16:53
PM,379152,6.0.0.8540
File17=VBAJET32.DLL,$(WinSysPathSysFile),,,11/5/98 5:21:16
PM,30992,6.0.1.8268
File18=MSJINT35.DLL,$(WinSysPathSysFile),,,7/6/98 11:00:00
PM,149776,3.51.623.0
File19=MSJTER35.DLL,$(WinSysPathSysFile),,,4/24/98 11:00:00
PM,24848,3.51.623.0
File20=MSJET35.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/12/99 11:00:00
PM,1046288,3.51.2723.0
File21=DAO350.DLL,$(MSDAOPath),$(DLLSelfRegister),$(Shared),4/27/98 11:00:00
PM,570128,3.51.1608.0
File22=Dao2535.tlb,$(MSDAOPath),$(TLBRegister),$(Shared),12/2/96 2:27:48
AM,73184,0.0.0.0
File23=AntiSpam.exe,$(AppPath),,,12/18/04 11:42:13 AM,225280,1.0.0.0

Mais j'ai un soucis sur poste 2,l'etat du ctrl winsock reste sur Connexion
en attente
meme si internet est démarré et connecté.

Pas de message d'erreur.

Avez-vous une idée ?

8 réponses

1 2
Avatar
davepath
Il fonctionne sur le poste 1, c'est ca qui m'embete
"ng" a écrit dans le message news:
#
Salut,

Pourquoi limiter les serveurs pop à pop.serveur.com ?
Par exemple mon serveur de messagerie c'est pop3.serveur.com, sur un autre
compte j'ai un serveur mail.serveur.com
pourtout c'est tous du pop3...
je ne sais pas si le problème peut venir de là, en tout cas le code envoyé


à
l'air correct...

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

davepath wrote:
> Houaip, voila
>
> Form1.Winsock1.Close
> Form1.Winsock1.RemoteHost = Form1.ServerPopBal.Caption
> Form1.Winsock1.LocalPort = 669
> If UCase(Left(Form1.ServerPopBal.Caption,
> InStr(Form1.ServerPopBal.Caption, ".") - 1)) = "POP" Then
> Form1.Winsock1.RemotePort = 110
> DoEvents
> Form1.Winsock1.Connect
>
> du moins c'est la demande de connexion par un clique sur un bouton
>
> "ng" a écrit dans le message news:
>
>> Salut,
>>
>> Dans ce cas le prob semble plus venir de ton code, peut-on en voir un
>> extrait ?
>>
>> --
>> Nicolas G.
>> FAQ VB : http://faq.vb.free.fr
>> API Guide : http://www.allapi.net
>> Google Groups : http://groups.google.fr/
>> MZ-Tools : http://www.mztools.com/
>>
>> davepath wrote:
>>> J'arrive a faire des connexion avec le service d'acces distant.
>>> mais j'ai pas essayé telnet
>>>
>>> "ng" a écrit dans le message news:
>>>
>>>> Je parlais du serveur auquel ton prog soit se connecter.
>>>> Je voulais savoir si tu arrivais à établir une connexion, avec
>>>> telnet par exemple.
>>>>
>>>> --
>>>> Nicolas G.
>>>> FAQ VB : http://faq.vb.free.fr
>>>> API Guide : http://www.allapi.net
>>>> Google Groups : http://groups.google.fr/
>>>> MZ-Tools : http://www.mztools.com/
>>>>
>>>> davepath wrote:
>>>>> quant tu dis serveur c'est quoi, parcequ'il s'agit de simple pc
>>>>> qui se connectent a internet pas de serveurs
>>>>> "ng" a écrit dans le message news:
>>>>> #2P$$
>>>>>> Salut,
>>>>>>
>>>>>> Est-ce que les autres applications utilisant ce protocole pour ce
>>>>>> serveur depuis le poste2 fonctionnent ?
>>>>>>
>>>>>> --
>>>>>> Nicolas G.
>>>>>> FAQ VB : http://faq.vb.free.fr
>>>>>> API Guide : http://www.allapi.net
>>>>>> Google Groups : http://groups.google.fr/
>>>>>> MZ-Tools : http://www.mztools.com/
>>>>>>
>>>>>> davepath wrote:
>>>>>>> Pas de config sur le dns protocol Ip du poste 2.
>>>>>>> J'ai essaye en ajoutant les adresses du serveur du provider prim
>>>>>>> 194.149.160.9 second 194.149.160.1 mais y avait pas de
>>>>>>> changement
>>>>>>>
>>>>>>> "ng" a écrit dans le message news:
>>>>>>>
>>>>>>>> Salut,
>>>>>>>>
>>>>>>>> Ton serveur DNS est-il correctement configuré sur le poste 2 ?
>>>>>>>>
>>>>>>>> --
>>>>>>>> Nicolas G.
>>>>>>>> FAQ VB : http://faq.vb.free.fr
>>>>>>>> API Guide : http://www.allapi.net
>>>>>>>> Google Groups : http://groups.google.fr/
>>>>>>>> MZ-Tools : http://www.mztools.com/
>>>>>>>>
>>>>>>>> davepath wrote:
>>>>>>>>> Bonjour
>>>>>>>>>
>>>>>>>>> Alors voila prendre en consideration l'instal suivante:
>>>>>>>>>
>>>>>>>>> Poste 1: NT4 Srv P6 128bits, Internet via Routeur adsl,
>>>>>>>>> Protocol instal: TCP/IP et NetBeui 2 carte réseaux installées
>>>>>>>>>
>>>>>>>>> Poste 2: NT4 Srv P6 128bits, Internet via Modem
>>>>>>>>> Protocol instal: TCP/IP pas de carte réseaux installées
>>>>>>>>>
>>>>>>>>> J'ai fait une app avec un ctrl winsock, pour lire les msg sur
>>>>>>>>> un serveur pop,
>>>>>>>>> elle tourne tres bien sur poste 1.
>>>>>>>>>
>>>>>>>>> L'appli a été installé par le prog d'empaquetage de VB6.
>>>>>>>>> Tous les fichiers sont la.
>>>>>>>>>
>>>>>>>>> Le fichier setup.lst est le suivant :
>>>>>>>>>
>>>>>>>>> [Bootstrap Files]
>>>>>>>>> File1=VB6STKIT.DLL,$(WinSysPathSysFile),,,6/2/99 11:00:00
>>>>>>>>> PM,101888,6.0.84.50
>>>>>>>>>


File2=COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5/31/98
>>>>>>>>> 11:00:00 PM,22288,4.71.1460.1
>>>>>>>>> File3=MSVCRT40.DLL,$(WinSysPathSysFile),,,5/31/99 11:00:00
>>>>>>>>> PM,326656,4.22.0.0
>>>>>>>>> File4=VB6FR.DLL,$(WinSysPath),,$(Shared),10/1/00 11:00:00
>>>>>>>>> PM,119568,6.0.89.88
>>>>>>>>> File5=STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,6/2/99
>>>>>>>>> 11:00:00 PM,17920,2.40.4275.1
>>>>>>>>> File6=ASYCFILT.DLL,$(WinSysPathSysFile),,,3/7/99 11:00:00
>>>>>>>>> PM,147728,2.40.4275.1
>>>>>>>>>


File7=OLEPRO32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,3/7/99
>>>>>>>>> 11:00:00 PM,164112,5.0.4275.1
>>>>>>>>>
> File8=OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/11/00
>>>>>>>>> 11:00:00 PM,598288,2.40.4275.1
>>>>>>>>>
> File9=msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8/29/02
>>>>>>>>> 6:00:00 AM,1388544,6.0.92.37
>>>>>>>>>
>>>>>>>>> [Setup1 Files]
>>>>>>>>> File1ºL.mdb,$(AppPath),,,12/10/04 10:05:36 AM,634880,0.0.0.0
>>>>>>>>> File2=MSHFGFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
>>>>>>>>> PM,51200,6.0.30.5
>>>>>>>>> File3=STDFTFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
>>>>>>>>> PM,6656,6.0.81.63
>>>>>>>>>
>>> File4=MSSTDFMT.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/13/00
>>>>>>>>> 11:00:00 PM,118784,6.0.88.4
>>>>>>>>>
>>> File5=MSHFLXGD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/21/00
>>>>>>>>> 11:00:00 PM,438976,6.0.88.4
>>>>>>>>> File6=MSCMCFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
>>>>>>>>> PM,141312,6.0.81.63
>>>>>>>>>
> File7=Mscomctl.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),1/5/99
>>>>>>>>> 8:18:14 PM,1057552,6.1.83.41
>>>>>>>>> File8ÛGRDFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
>>>>>>>>> PM,34816,1.0.0.126
>>>>>>>>>
>>> File9ÛGRID32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/15/98
>>>>>>>>> 11:00:00 PM,525352,5.1.81.4
>>>>>>>>> File10=WINSKFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
>>>>>>>>> PM,15872,6.0.81.63
>>>>>>>>>
>>> File11=MSWINSCK.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/6/00
>>>>>>>>> 1:00:00 AM,109248,6.0.89.88
>>>>>>>>> File12=MSOUTL9.OLB,$(WinSysPath),,$(Shared),3/2/99 7:53:22
>>>>>>>>> PM,163840,9.0.0.2702
>>>>>>>>> File13=VB5DB.DLL,$(WinSysPath),,$(Shared),6/17/98 11:00:00
>>>>>>>>> PM,89360,6.0.81.69
>>>>>>>>> File14=MSREPL35.DLL,$(WinSysPathSysFile),,,4/12/99 11:00:00
>>>>>>>>> PM,415504,3.51.2404.0
>>>>>>>>>
> File15=MSRD2X35.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/24/98
>>>>>>>>> 11:00:00 PM,252176,3.51.623.0
>>>>>>>>> File16=expsrv.dll,$(WinSysPathSysFile),,,4/30/04 2:16:53
>>>>>>>>> PM,379152,6.0.0.8540
>>>>>>>>> File17=VBAJET32.DLL,$(WinSysPathSysFile),,,11/5/98 5:21:16
>>>>>>>>> PM,30992,6.0.1.8268
>>>>>>>>> File18=MSJINT35.DLL,$(WinSysPathSysFile),,,7/6/98 11:00:00
>>>>>>>>> PM,149776,3.51.623.0
>>>>>>>>> File19=MSJTER35.DLL,$(WinSysPathSysFile),,,4/24/98 11:00:00
>>>>>>>>> PM,24848,3.51.623.0
>>>>>>>>>
> File20=MSJET35.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/12/99
>>>>>>>>> 11:00:00 PM,1046288,3.51.2723.0
>>>>>>>>>
> File21ÚO350.DLL,$(MSDAOPath),$(DLLSelfRegister),$(Shared),4/27/98
>>>>>>>>> 11:00:00 PM,570128,3.51.1608.0
>>>>>>>>> File22Úo2535.tlb,$(MSDAOPath),$(TLBRegister),$(Shared),12/2/96
>>>>>>>>> 2:27:48 AM,73184,0.0.0.0
>>>>>>>>> File23=AntiSpam.exe,$(AppPath),,,12/18/04 11:42:13
>>>>>>>>> AM,225280,1.0.0.0
>>>>>>>>>
>>>>>>>>> Mais j'ai un soucis sur poste 2,l'etat du ctrl winsock reste
>>>>>>>>> sur Connexion en attente
>>>>>>>>> meme si internet est démarré et connecté.
>>>>>>>>>
>>>>>>>>> Pas de message d'erreur.
>>>>>>>>>
>>>>>>>>> Avez-vous une idée ?




Avatar
Jean-Marc
Hello,

dans ce genre de cas, il faut de la méthode:
Tout ce qui suit concerne le poste 2:

1/ Peux tu depuis une fenêtre Dos faire un acces TELNET du
serveur POP en:
a) utilisant l'adresse IP
b) utilisant le nom d'hôte

2/ Meme chose avec un serveur pop public, comme pop3.yahoo.fr
a) TELNET pop3.yahoo.fr 110
b) TELNET 217.12.6.29 110

3/ Faire un programme très simple:
a) essayer le programme suivant:

Il faut une form, un control winsock, un bouton de commande
et une listbox:

Private Sub Command1_Click()
Dim status As Integer
Dim oldstatus As Integer
Dim rh As String

' a) essayer comme ça
' b) idem mais avec ton nom de serveur
rh = "pop3.yahoo.fr"

Winsock1.RemoteHost = rh
Winsock1.RemotePort = 110
Winsock1.Connect
oldstatus = -1
DoEvents
status = Winsock1.State
Do
If status <> oldstatus Then
List1.AddItem status
End If
oldstatus = status
DoEvents
status = Winsock1.State
Loop While status <> 7
List1.AddItem "connecté à " & rh
End Sub

et dire ce que donne ce programme.

Si tu donnes ici le résultat de chacun des tests énumérés ici,
je suis sur qu'on trouve l'origine de ton probleme.

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
"davepath" a écrit dans le message de
news:cq3inm$3as$
Bonjour

Alors voila prendre en consideration l'instal suivante:

Poste 1: NT4 Srv P6 128bits, Internet via Routeur adsl,
Protocol instal: TCP/IP et NetBeui 2 carte réseaux installées

Poste 2: NT4 Srv P6 128bits, Internet via Modem
Protocol instal: TCP/IP pas de carte réseaux installées

J'ai fait une app avec un ctrl winsock, pour lire les msg sur un serveur
pop,
elle tourne tres bien sur poste 1.

L'appli a été installé par le prog d'empaquetage de VB6.
Tous les fichiers sont la.

Le fichier setup.lst est le suivant :

[Bootstrap Files]
File1=VB6STKIT.DLL,$(WinSysPathSysFile),,,6/2/99 11:00:00
PM,101888,6.0.84.50
File2=COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5/31/98 11:00:00
PM,22288,4.71.1460.1
File3=MSVCRT40.DLL,$(WinSysPathSysFile),,,5/31/99 11:00:00
PM,326656,4.22.0.0
File4=VB6FR.DLL,$(WinSysPath),,$(Shared),10/1/00 11:00:00
PM,119568,6.0.89.88
File5=STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,6/2/99 11:00:00
PM,17920,2.40.4275.1
File6=ASYCFILT.DLL,$(WinSysPathSysFile),,,3/7/99 11:00:00
PM,147728,2.40.4275.1
File7=OLEPRO32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,3/7/99


11:00:00
PM,164112,5.0.4275.1
File8=OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/11/00


11:00:00
PM,598288,2.40.4275.1
File9=msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8/29/02


6:00:00
AM,1388544,6.0.92.37

[Setup1 Files]
File1ºL.mdb,$(AppPath),,,12/10/04 10:05:36 AM,634880,0.0.0.0
File2=MSHFGFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
PM,51200,6.0.30.5
File3=STDFTFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
PM,6656,6.0.81.63
File4=MSSTDFMT.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/13/00
11:00:00 PM,118784,6.0.88.4
File5=MSHFLXGD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/21/00
11:00:00 PM,438976,6.0.88.4
File6=MSCMCFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
PM,141312,6.0.81.63
File7=Mscomctl.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),1/5/99


8:18:14
PM,1057552,6.1.83.41
File8ÛGRDFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
PM,34816,1.0.0.126
File9ÛGRID32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/15/98
11:00:00 PM,525352,5.1.81.4
File10=WINSKFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
PM,15872,6.0.81.63
File11=MSWINSCK.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/6/00
1:00:00 AM,109248,6.0.89.88
File12=MSOUTL9.OLB,$(WinSysPath),,$(Shared),3/2/99 7:53:22
PM,163840,9.0.0.2702
File13=VB5DB.DLL,$(WinSysPath),,$(Shared),6/17/98 11:00:00
PM,89360,6.0.81.69
File14=MSREPL35.DLL,$(WinSysPathSysFile),,,4/12/99 11:00:00
PM,415504,3.51.2404.0
File15=MSRD2X35.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/24/98
11:00:00 PM,252176,3.51.623.0
File16=expsrv.dll,$(WinSysPathSysFile),,,4/30/04 2:16:53
PM,379152,6.0.0.8540
File17=VBAJET32.DLL,$(WinSysPathSysFile),,,11/5/98 5:21:16
PM,30992,6.0.1.8268
File18=MSJINT35.DLL,$(WinSysPathSysFile),,,7/6/98 11:00:00
PM,149776,3.51.623.0
File19=MSJTER35.DLL,$(WinSysPathSysFile),,,4/24/98 11:00:00
PM,24848,3.51.623.0
File20=MSJET35.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/12/99


11:00:00
PM,1046288,3.51.2723.0
File21ÚO350.DLL,$(MSDAOPath),$(DLLSelfRegister),$(Shared),4/27/98


11:00:00
PM,570128,3.51.1608.0
File22Úo2535.tlb,$(MSDAOPath),$(TLBRegister),$(Shared),12/2/96 2:27:48
AM,73184,0.0.0.0
File23=AntiSpam.exe,$(AppPath),,,12/18/04 11:42:13 AM,225280,1.0.0.0

Mais j'ai un soucis sur poste 2,l'etat du ctrl winsock reste sur Connexion
en attente
meme si internet est démarré et connecté.

Pas de message d'erreur.

Avez-vous une idée ?




Avatar
Jean-Marc
Hello,

dans ce genre de cas, il faut de la méthode:
Tout ce qui suit concerne le poste 2:

1/ Peux tu depuis une fenêtre Dos faire un acces TELNET du
serveur POP en:
a) utilisant l'adresse IP
b) utilisant le nom d'hôte

2/ Meme chose avec un serveur pop public, comme pop3.yahoo.fr
a) TELNET pop3.yahoo.fr 110
b) TELNET 217.12.6.29 110

3/ Faire un programme très simple:
a) essayer le programme suivant:

Il faut une form, un control winsock, un bouton de commande
et une listbox:

Private Sub Command1_Click()
Dim status As Integer
Dim oldstatus As Integer
Dim rh As String

' a) essayer comme ça
' b) idem mais avec ton nom de serveur
rh = "pop3.yahoo.fr"

Winsock1.RemoteHost = rh
Winsock1.RemotePort = 110
Winsock1.Connect
oldstatus = -1
DoEvents
status = Winsock1.State
Do
If status <> oldstatus Then
List1.AddItem status
End If
oldstatus = status
DoEvents
status = Winsock1.State
Loop While status <> 7
List1.AddItem "connecté à " & rh
End Sub

et dire ce que donne ce programme.

Si tu donnes ici le résultat de chacun des tests énumérés ici,
je suis sur qu'on trouve l'origine de ton probleme.

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."




"davepath" a écrit dans le message de
news:cq3su9$8fn$
Il fonctionne sur le poste 1, c'est ca qui m'embete
"ng" a écrit dans le message news:
#
> Salut,
>
> Pourquoi limiter les serveurs pop à pop.serveur.com ?
> Par exemple mon serveur de messagerie c'est pop3.serveur.com, sur un


autre
> compte j'ai un serveur mail.serveur.com
> pourtout c'est tous du pop3...
> je ne sais pas si le problème peut venir de là, en tout cas le code


envoyé
à
> l'air correct...
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
> davepath wrote:
> > Houaip, voila
> >
> > Form1.Winsock1.Close
> > Form1.Winsock1.RemoteHost = Form1.ServerPopBal.Caption
> > Form1.Winsock1.LocalPort = 669
> > If UCase(Left(Form1.ServerPopBal.Caption,
> > InStr(Form1.ServerPopBal.Caption, ".") - 1)) = "POP" Then
> > Form1.Winsock1.RemotePort = 110
> > DoEvents
> > Form1.Winsock1.Connect
> >
> > du moins c'est la demande de connexion par un clique sur un bouton
> >
> > "ng" a écrit dans le message news:
> >
> >> Salut,
> >>
> >> Dans ce cas le prob semble plus venir de ton code, peut-on en voir un
> >> extrait ?
> >>
> >> --
> >> Nicolas G.
> >> FAQ VB : http://faq.vb.free.fr
> >> API Guide : http://www.allapi.net
> >> Google Groups : http://groups.google.fr/
> >> MZ-Tools : http://www.mztools.com/
> >>
> >> davepath wrote:
> >>> J'arrive a faire des connexion avec le service d'acces distant.
> >>> mais j'ai pas essayé telnet
> >>>
> >>> "ng" a écrit dans le message news:
> >>>
> >>>> Je parlais du serveur auquel ton prog soit se connecter.
> >>>> Je voulais savoir si tu arrivais à établir une connexion, avec
> >>>> telnet par exemple.
> >>>>
> >>>> --
> >>>> Nicolas G.
> >>>> FAQ VB : http://faq.vb.free.fr
> >>>> API Guide : http://www.allapi.net
> >>>> Google Groups : http://groups.google.fr/
> >>>> MZ-Tools : http://www.mztools.com/
> >>>>
> >>>> davepath wrote:
> >>>>> quant tu dis serveur c'est quoi, parcequ'il s'agit de simple pc
> >>>>> qui se connectent a internet pas de serveurs
> >>>>> "ng" a écrit dans le message news:
> >>>>> #2P$$
> >>>>>> Salut,
> >>>>>>
> >>>>>> Est-ce que les autres applications utilisant ce protocole pour ce
> >>>>>> serveur depuis le poste2 fonctionnent ?
> >>>>>>
> >>>>>> --
> >>>>>> Nicolas G.
> >>>>>> FAQ VB : http://faq.vb.free.fr
> >>>>>> API Guide : http://www.allapi.net
> >>>>>> Google Groups : http://groups.google.fr/
> >>>>>> MZ-Tools : http://www.mztools.com/
> >>>>>>
> >>>>>> davepath wrote:
> >>>>>>> Pas de config sur le dns protocol Ip du poste 2.
> >>>>>>> J'ai essaye en ajoutant les adresses du serveur du provider prim
> >>>>>>> 194.149.160.9 second 194.149.160.1 mais y avait pas de
> >>>>>>> changement
> >>>>>>>
> >>>>>>> "ng" a écrit dans le message news:
> >>>>>>>
> >>>>>>>> Salut,
> >>>>>>>>
> >>>>>>>> Ton serveur DNS est-il correctement configuré sur le poste 2 ?
> >>>>>>>>
> >>>>>>>> --
> >>>>>>>> Nicolas G.
> >>>>>>>> FAQ VB : http://faq.vb.free.fr
> >>>>>>>> API Guide : http://www.allapi.net
> >>>>>>>> Google Groups : http://groups.google.fr/
> >>>>>>>> MZ-Tools : http://www.mztools.com/
> >>>>>>>>
> >>>>>>>> davepath wrote:
> >>>>>>>>> Bonjour
> >>>>>>>>>
> >>>>>>>>> Alors voila prendre en consideration l'instal suivante:
> >>>>>>>>>
> >>>>>>>>> Poste 1: NT4 Srv P6 128bits, Internet via Routeur adsl,
> >>>>>>>>> Protocol instal: TCP/IP et NetBeui 2 carte réseaux installées
> >>>>>>>>>
> >>>>>>>>> Poste 2: NT4 Srv P6 128bits, Internet via Modem
> >>>>>>>>> Protocol instal: TCP/IP pas de carte réseaux installées
> >>>>>>>>>
> >>>>>>>>> J'ai fait une app avec un ctrl winsock, pour lire les msg sur
> >>>>>>>>> un serveur pop,
> >>>>>>>>> elle tourne tres bien sur poste 1.
> >>>>>>>>>
> >>>>>>>>> L'appli a été installé par le prog d'empaquetage de VB6.
> >>>>>>>>> Tous les fichiers sont la.
> >>>>>>>>>
> >>>>>>>>> Le fichier setup.lst est le suivant :
> >>>>>>>>>
> >>>>>>>>> [Bootstrap Files]
> >>>>>>>>> File1=VB6STKIT.DLL,$(WinSysPathSysFile),,,6/2/99 11:00:00
> >>>>>>>>> PM,101888,6.0.84.50
> >>>>>>>>>
File2=COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5/31/98
> >>>>>>>>> 11:00:00 PM,22288,4.71.1460.1
> >>>>>>>>> File3=MSVCRT40.DLL,$(WinSysPathSysFile),,,5/31/99 11:00:00
> >>>>>>>>> PM,326656,4.22.0.0
> >>>>>>>>> File4=VB6FR.DLL,$(WinSysPath),,$(Shared),10/1/00 11:00:00
> >>>>>>>>> PM,119568,6.0.89.88
> >>>>>>>>> File5=STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,6/2/99
> >>>>>>>>> 11:00:00 PM,17920,2.40.4275.1
> >>>>>>>>> File6=ASYCFILT.DLL,$(WinSysPathSysFile),,,3/7/99 11:00:00
> >>>>>>>>> PM,147728,2.40.4275.1
> >>>>>>>>>
File7=OLEPRO32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,3/7/99
> >>>>>>>>> 11:00:00 PM,164112,5.0.4275.1
> >>>>>>>>>
> > File8=OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/11/00
> >>>>>>>>> 11:00:00 PM,598288,2.40.4275.1
> >>>>>>>>>
> > File9=msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8/29/02
> >>>>>>>>> 6:00:00 AM,1388544,6.0.92.37
> >>>>>>>>>
> >>>>>>>>> [Setup1 Files]
> >>>>>>>>> File1ºL.mdb,$(AppPath),,,12/10/04 10:05:36 AM,634880,0.0.0.0
> >>>>>>>>> File2=MSHFGFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
> >>>>>>>>> PM,51200,6.0.30.5
> >>>>>>>>> File3=STDFTFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
> >>>>>>>>> PM,6656,6.0.81.63
> >>>>>>>>>
> >>>


File4=MSSTDFMT.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/13/00
> >>>>>>>>> 11:00:00 PM,118784,6.0.88.4
> >>>>>>>>>
> >>>


File5=MSHFLXGD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/21/00
> >>>>>>>>> 11:00:00 PM,438976,6.0.88.4
> >>>>>>>>> File6=MSCMCFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
> >>>>>>>>> PM,141312,6.0.81.63
> >>>>>>>>>
> > File7=Mscomctl.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),1/5/99
> >>>>>>>>> 8:18:14 PM,1057552,6.1.83.41
> >>>>>>>>> File8ÛGRDFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
> >>>>>>>>> PM,34816,1.0.0.126
> >>>>>>>>>
> >>>


File9ÛGRID32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/15/98
> >>>>>>>>> 11:00:00 PM,525352,5.1.81.4
> >>>>>>>>> File10=WINSKFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
> >>>>>>>>> PM,15872,6.0.81.63
> >>>>>>>>>
> >>>


File11=MSWINSCK.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/6/00
> >>>>>>>>> 1:00:00 AM,109248,6.0.89.88
> >>>>>>>>> File12=MSOUTL9.OLB,$(WinSysPath),,$(Shared),3/2/99 7:53:22
> >>>>>>>>> PM,163840,9.0.0.2702
> >>>>>>>>> File13=VB5DB.DLL,$(WinSysPath),,$(Shared),6/17/98 11:00:00
> >>>>>>>>> PM,89360,6.0.81.69
> >>>>>>>>> File14=MSREPL35.DLL,$(WinSysPathSysFile),,,4/12/99 11:00:00
> >>>>>>>>> PM,415504,3.51.2404.0
> >>>>>>>>>
> > File15=MSRD2X35.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/24/98
> >>>>>>>>> 11:00:00 PM,252176,3.51.623.0
> >>>>>>>>> File16=expsrv.dll,$(WinSysPathSysFile),,,4/30/04 2:16:53
> >>>>>>>>> PM,379152,6.0.0.8540
> >>>>>>>>> File17=VBAJET32.DLL,$(WinSysPathSysFile),,,11/5/98 5:21:16
> >>>>>>>>> PM,30992,6.0.1.8268
> >>>>>>>>> File18=MSJINT35.DLL,$(WinSysPathSysFile),,,7/6/98 11:00:00
> >>>>>>>>> PM,149776,3.51.623.0
> >>>>>>>>> File19=MSJTER35.DLL,$(WinSysPathSysFile),,,4/24/98 11:00:00
> >>>>>>>>> PM,24848,3.51.623.0
> >>>>>>>>>
> > File20=MSJET35.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/12/99
> >>>>>>>>> 11:00:00 PM,1046288,3.51.2723.0
> >>>>>>>>>
> > File21ÚO350.DLL,$(MSDAOPath),$(DLLSelfRegister),$(Shared),4/27/98
> >>>>>>>>> 11:00:00 PM,570128,3.51.1608.0
> >>>>>>>>>


File22Úo2535.tlb,$(MSDAOPath),$(TLBRegister),$(Shared),12/2/96
> >>>>>>>>> 2:27:48 AM,73184,0.0.0.0
> >>>>>>>>> File23=AntiSpam.exe,$(AppPath),,,12/18/04 11:42:13
> >>>>>>>>> AM,225280,1.0.0.0
> >>>>>>>>>
> >>>>>>>>> Mais j'ai un soucis sur poste 2,l'etat du ctrl winsock reste
> >>>>>>>>> sur Connexion en attente
> >>>>>>>>> meme si internet est démarré et connecté.
> >>>>>>>>>
> >>>>>>>>> Pas de message d'erreur.
> >>>>>>>>>
> >>>>>>>>> Avez-vous une idée ?
>
>




Avatar
Jean-Marc
J'aimerais savoir ou ça coince, oui:
- résolution du nom de l'hote
- connection sur me port 110 (firewall ?)
- etc.

Une chose est certaine:
Si ça passe avec Telnet, ca DOIT passer en winsock.

Si ca passe pas, il faut
investiguer: firewall, pas de DNS, etc, config TCP, etc

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."


"davepath" a écrit dans le message de
news:cq49mi$dqn$
Slt

Ok, je vois ce que tu veux faire, tu veux checker la connexion ?

"Jean-Marc" a écrit dans le message news:
41c5a104$0$31686$
> Hello,
>
> dans ce genre de cas, il faut de la méthode:
> Tout ce qui suit concerne le poste 2:
>
> 1/ Peux tu depuis une fenêtre Dos faire un acces TELNET du
> serveur POP en:
> a) utilisant l'adresse IP
> b) utilisant le nom d'hôte
>
> 2/ Meme chose avec un serveur pop public, comme pop3.yahoo.fr
> a) TELNET pop3.yahoo.fr 110
> b) TELNET 217.12.6.29 110
>
> 3/ Faire un programme très simple:
> a) essayer le programme suivant:
>
> Il faut une form, un control winsock, un bouton de commande
> et une listbox:
>
> Private Sub Command1_Click()
> Dim status As Integer
> Dim oldstatus As Integer
> Dim rh As String
>
> ' a) essayer comme ça
> ' b) idem mais avec ton nom de serveur
> rh = "pop3.yahoo.fr"
>
> Winsock1.RemoteHost = rh
> Winsock1.RemotePort = 110
> Winsock1.Connect
> oldstatus = -1
> DoEvents
> status = Winsock1.State
> Do
> If status <> oldstatus Then
> List1.AddItem status
> End If
> oldstatus = status
> DoEvents
> status = Winsock1.State
> Loop While status <> 7
> List1.AddItem "connecté à " & rh
> End Sub
>
> et dire ce que donne ce programme.
>
> Si tu donnes ici le résultat de chacun des tests énumérés ici,
> je suis sur qu'on trouve l'origine de ton probleme.
>
> --
> Jean-marc
> "There are only 10 kind of people
> those who understand binary and those who don't."
>
>
>
>
> "davepath" a écrit dans le message de
> news:cq3su9$8fn$
> > Il fonctionne sur le poste 1, c'est ca qui m'embete
> > "ng" a écrit dans le message news:
> > #
> > > Salut,
> > >
> > > Pourquoi limiter les serveurs pop à pop.serveur.com ?
> > > Par exemple mon serveur de messagerie c'est pop3.serveur.com, sur un
> autre
> > > compte j'ai un serveur mail.serveur.com
> > > pourtout c'est tous du pop3...
> > > je ne sais pas si le problème peut venir de là, en tout cas le code
> envoyé
> > à
> > > l'air correct...
> > >
> > > --
> > > Nicolas G.
> > > FAQ VB : http://faq.vb.free.fr
> > > API Guide : http://www.allapi.net
> > > Google Groups : http://groups.google.fr/
> > > MZ-Tools : http://www.mztools.com/
> > >
> > > davepath wrote:
> > > > Houaip, voila
> > > >
> > > > Form1.Winsock1.Close
> > > > Form1.Winsock1.RemoteHost = Form1.ServerPopBal.Caption
> > > > Form1.Winsock1.LocalPort = 669
> > > > If UCase(Left(Form1.ServerPopBal.Caption,
> > > > InStr(Form1.ServerPopBal.Caption, ".") - 1)) = "POP" Then
> > > > Form1.Winsock1.RemotePort = 110
> > > > DoEvents
> > > > Form1.Winsock1.Connect
> > > >
> > > > du moins c'est la demande de connexion par un clique sur un bouton
> > > >
> > > > "ng" a écrit dans le message news:
> > > >
> > > >> Salut,
> > > >>
> > > >> Dans ce cas le prob semble plus venir de ton code, peut-on en


voir
un
> > > >> extrait ?
> > > >>
> > > >> --
> > > >> Nicolas G.
> > > >> FAQ VB : http://faq.vb.free.fr
> > > >> API Guide : http://www.allapi.net
> > > >> Google Groups : http://groups.google.fr/
> > > >> MZ-Tools : http://www.mztools.com/
> > > >>
> > > >> davepath wrote:
> > > >>> J'arrive a faire des connexion avec le service d'acces distant.
> > > >>> mais j'ai pas essayé telnet
> > > >>>
> > > >>> "ng" a écrit dans le message news:
> > > >>>
> > > >>>> Je parlais du serveur auquel ton prog soit se connecter.
> > > >>>> Je voulais savoir si tu arrivais à établir une connexion, avec
> > > >>>> telnet par exemple.
> > > >>>>
> > > >>>> --
> > > >>>> Nicolas G.
> > > >>>> FAQ VB : http://faq.vb.free.fr
> > > >>>> API Guide : http://www.allapi.net
> > > >>>> Google Groups : http://groups.google.fr/
> > > >>>> MZ-Tools : http://www.mztools.com/
> > > >>>>
> > > >>>> davepath wrote:
> > > >>>>> quant tu dis serveur c'est quoi, parcequ'il s'agit de simple


pc
> > > >>>>> qui se connectent a internet pas de serveurs
> > > >>>>> "ng" a écrit dans le message news:
> > > >>>>> #2P$$
> > > >>>>>> Salut,
> > > >>>>>>
> > > >>>>>> Est-ce que les autres applications utilisant ce protocole


pour
ce
> > > >>>>>> serveur depuis le poste2 fonctionnent ?
> > > >>>>>>
> > > >>>>>> --
> > > >>>>>> Nicolas G.
> > > >>>>>> FAQ VB : http://faq.vb.free.fr
> > > >>>>>> API Guide : http://www.allapi.net
> > > >>>>>> Google Groups : http://groups.google.fr/
> > > >>>>>> MZ-Tools : http://www.mztools.com/
> > > >>>>>>
> > > >>>>>> davepath wrote:
> > > >>>>>>> Pas de config sur le dns protocol Ip du poste 2.
> > > >>>>>>> J'ai essaye en ajoutant les adresses du serveur du provider
prim
> > > >>>>>>> 194.149.160.9 second 194.149.160.1 mais y avait pas de
> > > >>>>>>> changement
> > > >>>>>>>
> > > >>>>>>> "ng" a écrit dans le message news:
> > > >>>>>>>
> > > >>>>>>>> Salut,
> > > >>>>>>>>
> > > >>>>>>>> Ton serveur DNS est-il correctement configuré sur le poste


2
?
> > > >>>>>>>>
> > > >>>>>>>> --
> > > >>>>>>>> Nicolas G.
> > > >>>>>>>> FAQ VB : http://faq.vb.free.fr
> > > >>>>>>>> API Guide : http://www.allapi.net
> > > >>>>>>>> Google Groups : http://groups.google.fr/
> > > >>>>>>>> MZ-Tools : http://www.mztools.com/
> > > >>>>>>>>
> > > >>>>>>>> davepath wrote:
> > > >>>>>>>>> Bonjour
> > > >>>>>>>>>
> > > >>>>>>>>> Alors voila prendre en consideration l'instal suivante:
> > > >>>>>>>>>
> > > >>>>>>>>> Poste 1: NT4 Srv P6 128bits, Internet via Routeur adsl,
> > > >>>>>>>>> Protocol instal: TCP/IP et NetBeui 2 carte réseaux
installées
> > > >>>>>>>>>
> > > >>>>>>>>> Poste 2: NT4 Srv P6 128bits, Internet via Modem
> > > >>>>>>>>> Protocol instal: TCP/IP pas de carte réseaux installées
> > > >>>>>>>>>
> > > >>>>>>>>> J'ai fait une app avec un ctrl winsock, pour lire les msg
sur
> > > >>>>>>>>> un serveur pop,
> > > >>>>>>>>> elle tourne tres bien sur poste 1.
> > > >>>>>>>>>
> > > >>>>>>>>> L'appli a été installé par le prog d'empaquetage de VB6.
> > > >>>>>>>>> Tous les fichiers sont la.
> > > >>>>>>>>>
> > > >>>>>>>>> Le fichier setup.lst est le suivant :
> > > >>>>>>>>>
> > > >>>>>>>>> [Bootstrap Files]
> > > >>>>>>>>> File1=VB6STKIT.DLL,$(WinSysPathSysFile),,,6/2/99 11:00:00
> > > >>>>>>>>> PM,101888,6.0.84.50
> > > >>>>>>>>>
> > File2=COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5/31/98
> > > >>>>>>>>> 11:00:00 PM,22288,4.71.1460.1
> > > >>>>>>>>> File3=MSVCRT40.DLL,$(WinSysPathSysFile),,,5/31/99 11:00:00
> > > >>>>>>>>> PM,326656,4.22.0.0
> > > >>>>>>>>> File4=VB6FR.DLL,$(WinSysPath),,$(Shared),10/1/00 11:00:00
> > > >>>>>>>>> PM,119568,6.0.89.88
> > > >>>>>>>>>
File5=STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,6/2/99
> > > >>>>>>>>> 11:00:00 PM,17920,2.40.4275.1
> > > >>>>>>>>> File6=ASYCFILT.DLL,$(WinSysPathSysFile),,,3/7/99 11:00:00
> > > >>>>>>>>> PM,147728,2.40.4275.1
> > > >>>>>>>>>
> > File7=OLEPRO32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,3/7/99
> > > >>>>>>>>> 11:00:00 PM,164112,5.0.4275.1
> > > >>>>>>>>>
> > > >


File8=OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/11/00
> > > >>>>>>>>> 11:00:00 PM,598288,2.40.4275.1
> > > >>>>>>>>>
> > > >


File9=msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8/29/02
> > > >>>>>>>>> 6:00:00 AM,1388544,6.0.92.37
> > > >>>>>>>>>
> > > >>>>>>>>> [Setup1 Files]
> > > >>>>>>>>> File1ºL.mdb,$(AppPath),,,12/10/04 10:05:36
AM,634880,0.0.0.0
> > > >>>>>>>>> File2=MSHFGFR.DLL,$(WinSysPath),,$(Shared),7/12/98


11:00:00
> > > >>>>>>>>> PM,51200,6.0.30.5
> > > >>>>>>>>> File3=STDFTFR.DLL,$(WinSysPath),,$(Shared),7/12/98


11:00:00
> > > >>>>>>>>> PM,6656,6.0.81.63
> > > >>>>>>>>>
> > > >>>
> File4=MSSTDFMT.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/13/00
> > > >>>>>>>>> 11:00:00 PM,118784,6.0.88.4
> > > >>>>>>>>>
> > > >>>
> File5=MSHFLXGD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/21/00
> > > >>>>>>>>> 11:00:00 PM,438976,6.0.88.4
> > > >>>>>>>>> File6=MSCMCFR.DLL,$(WinSysPath),,$(Shared),7/12/98


11:00:00
> > > >>>>>>>>> PM,141312,6.0.81.63
> > > >>>>>>>>>
> > > >


File7=Mscomctl.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),1/5/99
> > > >>>>>>>>> 8:18:14 PM,1057552,6.1.83.41
> > > >>>>>>>>> File8ÛGRDFR.DLL,$(WinSysPath),,$(Shared),7/12/98


11:00:00
> > > >>>>>>>>> PM,34816,1.0.0.126
> > > >>>>>>>>>
> > > >>>
> File9ÛGRID32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/15/98
> > > >>>>>>>>> 11:00:00 PM,525352,5.1.81.4
> > > >>>>>>>>> File10=WINSKFR.DLL,$(WinSysPath),,$(Shared),7/12/98


11:00:00
> > > >>>>>>>>> PM,15872,6.0.81.63
> > > >>>>>>>>>
> > > >>>
> File11=MSWINSCK.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/6/00
> > > >>>>>>>>> 1:00:00 AM,109248,6.0.89.88
> > > >>>>>>>>> File12=MSOUTL9.OLB,$(WinSysPath),,$(Shared),3/2/99 7:53:22
> > > >>>>>>>>> PM,163840,9.0.0.2702
> > > >>>>>>>>> File13=VB5DB.DLL,$(WinSysPath),,$(Shared),6/17/98 11:00:00
> > > >>>>>>>>> PM,89360,6.0.81.69
> > > >>>>>>>>> File14=MSREPL35.DLL,$(WinSysPathSysFile),,,4/12/99


11:00:00
> > > >>>>>>>>> PM,415504,3.51.2404.0
> > > >>>>>>>>>
> > > >


File15=MSRD2X35.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/24/98
> > > >>>>>>>>> 11:00:00 PM,252176,3.51.623.0
> > > >>>>>>>>> File16=expsrv.dll,$(WinSysPathSysFile),,,4/30/04 2:16:53
> > > >>>>>>>>> PM,379152,6.0.0.8540
> > > >>>>>>>>> File17=VBAJET32.DLL,$(WinSysPathSysFile),,,11/5/98 5:21:16
> > > >>>>>>>>> PM,30992,6.0.1.8268
> > > >>>>>>>>> File18=MSJINT35.DLL,$(WinSysPathSysFile),,,7/6/98 11:00:00
> > > >>>>>>>>> PM,149776,3.51.623.0
> > > >>>>>>>>> File19=MSJTER35.DLL,$(WinSysPathSysFile),,,4/24/98


11:00:00
> > > >>>>>>>>> PM,24848,3.51.623.0
> > > >>>>>>>>>
> > > >


File20=MSJET35.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/12/99
> > > >>>>>>>>> 11:00:00 PM,1046288,3.51.2723.0
> > > >>>>>>>>>
> > > >


File21ÚO350.DLL,$(MSDAOPath),$(DLLSelfRegister),$(Shared),4/27/98
> > > >>>>>>>>> 11:00:00 PM,570128,3.51.1608.0
> > > >>>>>>>>>
> File22Úo2535.tlb,$(MSDAOPath),$(TLBRegister),$(Shared),12/2/96
> > > >>>>>>>>> 2:27:48 AM,73184,0.0.0.0
> > > >>>>>>>>> File23=AntiSpam.exe,$(AppPath),,,12/18/04 11:42:13
> > > >>>>>>>>> AM,225280,1.0.0.0
> > > >>>>>>>>>
> > > >>>>>>>>> Mais j'ai un soucis sur poste 2,l'etat du ctrl winsock


reste
> > > >>>>>>>>> sur Connexion en attente
> > > >>>>>>>>> meme si internet est démarré et connecté.
> > > >>>>>>>>>
> > > >>>>>>>>> Pas de message d'erreur.
> > > >>>>>>>>>
> > > >>>>>>>>> Avez-vous une idée ?
> > >
> > >
> >
> >
>
>




Avatar
Jean-Marc
J'aimerais savoir ou ça coince, oui:
- résolution du nom de l'hote
- connection sur me port 110 (firewall ?)
- etc.

Une chose est certaine:
Si ça passe avec Telnet, ca DOIT passer en winsock.

Si ca passe pas, il faut
investiguer: firewall, pas de DNS, etc, config TCP, etc

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."



"davepath" a écrit dans le message de
news:cq49mi$dqn$
Slt

Ok, je vois ce que tu veux faire, tu veux checker la connexion ?

"Jean-Marc" a écrit dans le message news:
41c5a104$0$31686$
> Hello,
>
> dans ce genre de cas, il faut de la méthode:
> Tout ce qui suit concerne le poste 2:
>
> 1/ Peux tu depuis une fenêtre Dos faire un acces TELNET du
> serveur POP en:
> a) utilisant l'adresse IP
> b) utilisant le nom d'hôte
>
> 2/ Meme chose avec un serveur pop public, comme pop3.yahoo.fr
> a) TELNET pop3.yahoo.fr 110
> b) TELNET 217.12.6.29 110
>
> 3/ Faire un programme très simple:
> a) essayer le programme suivant:
>
> Il faut une form, un control winsock, un bouton de commande
> et une listbox:
>
> Private Sub Command1_Click()
> Dim status As Integer
> Dim oldstatus As Integer
> Dim rh As String
>
> ' a) essayer comme ça
> ' b) idem mais avec ton nom de serveur
> rh = "pop3.yahoo.fr"
>
> Winsock1.RemoteHost = rh
> Winsock1.RemotePort = 110
> Winsock1.Connect
> oldstatus = -1
> DoEvents
> status = Winsock1.State
> Do
> If status <> oldstatus Then
> List1.AddItem status
> End If
> oldstatus = status
> DoEvents
> status = Winsock1.State
> Loop While status <> 7
> List1.AddItem "connecté à " & rh
> End Sub
>
> et dire ce que donne ce programme.
>
> Si tu donnes ici le résultat de chacun des tests énumérés ici,
> je suis sur qu'on trouve l'origine de ton probleme.
>
> --
> Jean-marc
> "There are only 10 kind of people
> those who understand binary and those who don't."
>
>
>
>
> "davepath" a écrit dans le message de
> news:cq3su9$8fn$
> > Il fonctionne sur le poste 1, c'est ca qui m'embete
> > "ng" a écrit dans le message news:
> > #
> > > Salut,
> > >
> > > Pourquoi limiter les serveurs pop à pop.serveur.com ?
> > > Par exemple mon serveur de messagerie c'est pop3.serveur.com, sur un
> autre
> > > compte j'ai un serveur mail.serveur.com
> > > pourtout c'est tous du pop3...
> > > je ne sais pas si le problème peut venir de là, en tout cas le code
> envoyé
> > à
> > > l'air correct...
> > >
> > > --
> > > Nicolas G.
> > > FAQ VB : http://faq.vb.free.fr
> > > API Guide : http://www.allapi.net
> > > Google Groups : http://groups.google.fr/
> > > MZ-Tools : http://www.mztools.com/
> > >
> > > davepath wrote:
> > > > Houaip, voila
> > > >
> > > > Form1.Winsock1.Close
> > > > Form1.Winsock1.RemoteHost = Form1.ServerPopBal.Caption
> > > > Form1.Winsock1.LocalPort = 669
> > > > If UCase(Left(Form1.ServerPopBal.Caption,
> > > > InStr(Form1.ServerPopBal.Caption, ".") - 1)) = "POP" Then
> > > > Form1.Winsock1.RemotePort = 110
> > > > DoEvents
> > > > Form1.Winsock1.Connect
> > > >
> > > > du moins c'est la demande de connexion par un clique sur un bouton
> > > >
> > > > "ng" a écrit dans le message news:
> > > >
> > > >> Salut,
> > > >>
> > > >> Dans ce cas le prob semble plus venir de ton code, peut-on en


voir
un
> > > >> extrait ?
> > > >>
> > > >> --
> > > >> Nicolas G.
> > > >> FAQ VB : http://faq.vb.free.fr
> > > >> API Guide : http://www.allapi.net
> > > >> Google Groups : http://groups.google.fr/
> > > >> MZ-Tools : http://www.mztools.com/
> > > >>
> > > >> davepath wrote:
> > > >>> J'arrive a faire des connexion avec le service d'acces distant.
> > > >>> mais j'ai pas essayé telnet
> > > >>>
> > > >>> "ng" a écrit dans le message news:
> > > >>>
> > > >>>> Je parlais du serveur auquel ton prog soit se connecter.
> > > >>>> Je voulais savoir si tu arrivais à établir une connexion, avec
> > > >>>> telnet par exemple.
> > > >>>>
> > > >>>> --
> > > >>>> Nicolas G.
> > > >>>> FAQ VB : http://faq.vb.free.fr
> > > >>>> API Guide : http://www.allapi.net
> > > >>>> Google Groups : http://groups.google.fr/
> > > >>>> MZ-Tools : http://www.mztools.com/
> > > >>>>
> > > >>>> davepath wrote:
> > > >>>>> quant tu dis serveur c'est quoi, parcequ'il s'agit de simple


pc
> > > >>>>> qui se connectent a internet pas de serveurs
> > > >>>>> "ng" a écrit dans le message news:
> > > >>>>> #2P$$
> > > >>>>>> Salut,
> > > >>>>>>
> > > >>>>>> Est-ce que les autres applications utilisant ce protocole


pour
ce
> > > >>>>>> serveur depuis le poste2 fonctionnent ?
> > > >>>>>>
> > > >>>>>> --
> > > >>>>>> Nicolas G.
> > > >>>>>> FAQ VB : http://faq.vb.free.fr
> > > >>>>>> API Guide : http://www.allapi.net
> > > >>>>>> Google Groups : http://groups.google.fr/
> > > >>>>>> MZ-Tools : http://www.mztools.com/
> > > >>>>>>
> > > >>>>>> davepath wrote:
> > > >>>>>>> Pas de config sur le dns protocol Ip du poste 2.
> > > >>>>>>> J'ai essaye en ajoutant les adresses du serveur du provider
prim
> > > >>>>>>> 194.149.160.9 second 194.149.160.1 mais y avait pas de
> > > >>>>>>> changement
> > > >>>>>>>
> > > >>>>>>> "ng" a écrit dans le message news:
> > > >>>>>>>
> > > >>>>>>>> Salut,
> > > >>>>>>>>
> > > >>>>>>>> Ton serveur DNS est-il correctement configuré sur le poste


2
?
> > > >>>>>>>>
> > > >>>>>>>> --
> > > >>>>>>>> Nicolas G.
> > > >>>>>>>> FAQ VB : http://faq.vb.free.fr
> > > >>>>>>>> API Guide : http://www.allapi.net
> > > >>>>>>>> Google Groups : http://groups.google.fr/
> > > >>>>>>>> MZ-Tools : http://www.mztools.com/
> > > >>>>>>>>
> > > >>>>>>>> davepath wrote:
> > > >>>>>>>>> Bonjour
> > > >>>>>>>>>
> > > >>>>>>>>> Alors voila prendre en consideration l'instal suivante:
> > > >>>>>>>>>
> > > >>>>>>>>> Poste 1: NT4 Srv P6 128bits, Internet via Routeur adsl,
> > > >>>>>>>>> Protocol instal: TCP/IP et NetBeui 2 carte réseaux
installées
> > > >>>>>>>>>
> > > >>>>>>>>> Poste 2: NT4 Srv P6 128bits, Internet via Modem
> > > >>>>>>>>> Protocol instal: TCP/IP pas de carte réseaux installées
> > > >>>>>>>>>
> > > >>>>>>>>> J'ai fait une app avec un ctrl winsock, pour lire les msg
sur
> > > >>>>>>>>> un serveur pop,
> > > >>>>>>>>> elle tourne tres bien sur poste 1.
> > > >>>>>>>>>
> > > >>>>>>>>> L'appli a été installé par le prog d'empaquetage de VB6.
> > > >>>>>>>>> Tous les fichiers sont la.
> > > >>>>>>>>>
> > > >>>>>>>>> Le fichier setup.lst est le suivant :
> > > >>>>>>>>>
> > > >>>>>>>>> [Bootstrap Files]
> > > >>>>>>>>> File1=VB6STKIT.DLL,$(WinSysPathSysFile),,,6/2/99 11:00:00
> > > >>>>>>>>> PM,101888,6.0.84.50
> > > >>>>>>>>>
> > File2=COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5/31/98
> > > >>>>>>>>> 11:00:00 PM,22288,4.71.1460.1
> > > >>>>>>>>> File3=MSVCRT40.DLL,$(WinSysPathSysFile),,,5/31/99 11:00:00
> > > >>>>>>>>> PM,326656,4.22.0.0
> > > >>>>>>>>> File4=VB6FR.DLL,$(WinSysPath),,$(Shared),10/1/00 11:00:00
> > > >>>>>>>>> PM,119568,6.0.89.88
> > > >>>>>>>>>
File5=STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,6/2/99
> > > >>>>>>>>> 11:00:00 PM,17920,2.40.4275.1
> > > >>>>>>>>> File6=ASYCFILT.DLL,$(WinSysPathSysFile),,,3/7/99 11:00:00
> > > >>>>>>>>> PM,147728,2.40.4275.1
> > > >>>>>>>>>
> > File7=OLEPRO32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,3/7/99
> > > >>>>>>>>> 11:00:00 PM,164112,5.0.4275.1
> > > >>>>>>>>>
> > > >


File8=OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/11/00
> > > >>>>>>>>> 11:00:00 PM,598288,2.40.4275.1
> > > >>>>>>>>>
> > > >


File9=msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8/29/02
> > > >>>>>>>>> 6:00:00 AM,1388544,6.0.92.37
> > > >>>>>>>>>
> > > >>>>>>>>> [Setup1 Files]
> > > >>>>>>>>> File1ºL.mdb,$(AppPath),,,12/10/04 10:05:36
AM,634880,0.0.0.0
> > > >>>>>>>>> File2=MSHFGFR.DLL,$(WinSysPath),,$(Shared),7/12/98


11:00:00
> > > >>>>>>>>> PM,51200,6.0.30.5
> > > >>>>>>>>> File3=STDFTFR.DLL,$(WinSysPath),,$(Shared),7/12/98


11:00:00
> > > >>>>>>>>> PM,6656,6.0.81.63
> > > >>>>>>>>>
> > > >>>
> File4=MSSTDFMT.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/13/00
> > > >>>>>>>>> 11:00:00 PM,118784,6.0.88.4
> > > >>>>>>>>>
> > > >>>
> File5=MSHFLXGD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/21/00
> > > >>>>>>>>> 11:00:00 PM,438976,6.0.88.4
> > > >>>>>>>>> File6=MSCMCFR.DLL,$(WinSysPath),,$(Shared),7/12/98


11:00:00
> > > >>>>>>>>> PM,141312,6.0.81.63
> > > >>>>>>>>>
> > > >


File7=Mscomctl.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),1/5/99
> > > >>>>>>>>> 8:18:14 PM,1057552,6.1.83.41
> > > >>>>>>>>> File8ÛGRDFR.DLL,$(WinSysPath),,$(Shared),7/12/98


11:00:00
> > > >>>>>>>>> PM,34816,1.0.0.126
> > > >>>>>>>>>
> > > >>>
> File9ÛGRID32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/15/98
> > > >>>>>>>>> 11:00:00 PM,525352,5.1.81.4
> > > >>>>>>>>> File10=WINSKFR.DLL,$(WinSysPath),,$(Shared),7/12/98


11:00:00
> > > >>>>>>>>> PM,15872,6.0.81.63
> > > >>>>>>>>>
> > > >>>
> File11=MSWINSCK.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/6/00
> > > >>>>>>>>> 1:00:00 AM,109248,6.0.89.88
> > > >>>>>>>>> File12=MSOUTL9.OLB,$(WinSysPath),,$(Shared),3/2/99 7:53:22
> > > >>>>>>>>> PM,163840,9.0.0.2702
> > > >>>>>>>>> File13=VB5DB.DLL,$(WinSysPath),,$(Shared),6/17/98 11:00:00
> > > >>>>>>>>> PM,89360,6.0.81.69
> > > >>>>>>>>> File14=MSREPL35.DLL,$(WinSysPathSysFile),,,4/12/99


11:00:00
> > > >>>>>>>>> PM,415504,3.51.2404.0
> > > >>>>>>>>>
> > > >


File15=MSRD2X35.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/24/98
> > > >>>>>>>>> 11:00:00 PM,252176,3.51.623.0
> > > >>>>>>>>> File16=expsrv.dll,$(WinSysPathSysFile),,,4/30/04 2:16:53
> > > >>>>>>>>> PM,379152,6.0.0.8540
> > > >>>>>>>>> File17=VBAJET32.DLL,$(WinSysPathSysFile),,,11/5/98 5:21:16
> > > >>>>>>>>> PM,30992,6.0.1.8268
> > > >>>>>>>>> File18=MSJINT35.DLL,$(WinSysPathSysFile),,,7/6/98 11:00:00
> > > >>>>>>>>> PM,149776,3.51.623.0
> > > >>>>>>>>> File19=MSJTER35.DLL,$(WinSysPathSysFile),,,4/24/98


11:00:00
> > > >>>>>>>>> PM,24848,3.51.623.0
> > > >>>>>>>>>
> > > >


File20=MSJET35.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/12/99
> > > >>>>>>>>> 11:00:00 PM,1046288,3.51.2723.0
> > > >>>>>>>>>
> > > >


File21ÚO350.DLL,$(MSDAOPath),$(DLLSelfRegister),$(Shared),4/27/98
> > > >>>>>>>>> 11:00:00 PM,570128,3.51.1608.0
> > > >>>>>>>>>
> File22Úo2535.tlb,$(MSDAOPath),$(TLBRegister),$(Shared),12/2/96
> > > >>>>>>>>> 2:27:48 AM,73184,0.0.0.0
> > > >>>>>>>>> File23=AntiSpam.exe,$(AppPath),,,12/18/04 11:42:13
> > > >>>>>>>>> AM,225280,1.0.0.0
> > > >>>>>>>>>
> > > >>>>>>>>> Mais j'ai un soucis sur poste 2,l'etat du ctrl winsock


reste
> > > >>>>>>>>> sur Connexion en attente
> > > >>>>>>>>> meme si internet est démarré et connecté.
> > > >>>>>>>>>
> > > >>>>>>>>> Pas de message d'erreur.
> > > >>>>>>>>>
> > > >>>>>>>>> Avez-vous une idée ?
> > >
> > >
> >
> >
>
>




Avatar
davepath
Slt

Ok, je vois ce que tu veux faire, tu veux checker la connexion ?

"Jean-Marc" a écrit dans le message news:
41c5a104$0$31686$
Hello,

dans ce genre de cas, il faut de la méthode:
Tout ce qui suit concerne le poste 2:

1/ Peux tu depuis une fenêtre Dos faire un acces TELNET du
serveur POP en:
a) utilisant l'adresse IP
b) utilisant le nom d'hôte

2/ Meme chose avec un serveur pop public, comme pop3.yahoo.fr
a) TELNET pop3.yahoo.fr 110
b) TELNET 217.12.6.29 110

3/ Faire un programme très simple:
a) essayer le programme suivant:

Il faut une form, un control winsock, un bouton de commande
et une listbox:

Private Sub Command1_Click()
Dim status As Integer
Dim oldstatus As Integer
Dim rh As String

' a) essayer comme ça
' b) idem mais avec ton nom de serveur
rh = "pop3.yahoo.fr"

Winsock1.RemoteHost = rh
Winsock1.RemotePort = 110
Winsock1.Connect
oldstatus = -1
DoEvents
status = Winsock1.State
Do
If status <> oldstatus Then
List1.AddItem status
End If
oldstatus = status
DoEvents
status = Winsock1.State
Loop While status <> 7
List1.AddItem "connecté à " & rh
End Sub

et dire ce que donne ce programme.

Si tu donnes ici le résultat de chacun des tests énumérés ici,
je suis sur qu'on trouve l'origine de ton probleme.

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."




"davepath" a écrit dans le message de
news:cq3su9$8fn$
> Il fonctionne sur le poste 1, c'est ca qui m'embete
> "ng" a écrit dans le message news:
> #
> > Salut,
> >
> > Pourquoi limiter les serveurs pop à pop.serveur.com ?
> > Par exemple mon serveur de messagerie c'est pop3.serveur.com, sur un
autre
> > compte j'ai un serveur mail.serveur.com
> > pourtout c'est tous du pop3...
> > je ne sais pas si le problème peut venir de là, en tout cas le code
envoyé
> à
> > l'air correct...
> >
> > --
> > Nicolas G.
> > FAQ VB : http://faq.vb.free.fr
> > API Guide : http://www.allapi.net
> > Google Groups : http://groups.google.fr/
> > MZ-Tools : http://www.mztools.com/
> >
> > davepath wrote:
> > > Houaip, voila
> > >
> > > Form1.Winsock1.Close
> > > Form1.Winsock1.RemoteHost = Form1.ServerPopBal.Caption
> > > Form1.Winsock1.LocalPort = 669
> > > If UCase(Left(Form1.ServerPopBal.Caption,
> > > InStr(Form1.ServerPopBal.Caption, ".") - 1)) = "POP" Then
> > > Form1.Winsock1.RemotePort = 110
> > > DoEvents
> > > Form1.Winsock1.Connect
> > >
> > > du moins c'est la demande de connexion par un clique sur un bouton
> > >
> > > "ng" a écrit dans le message news:
> > >
> > >> Salut,
> > >>
> > >> Dans ce cas le prob semble plus venir de ton code, peut-on en voir


un
> > >> extrait ?
> > >>
> > >> --
> > >> Nicolas G.
> > >> FAQ VB : http://faq.vb.free.fr
> > >> API Guide : http://www.allapi.net
> > >> Google Groups : http://groups.google.fr/
> > >> MZ-Tools : http://www.mztools.com/
> > >>
> > >> davepath wrote:
> > >>> J'arrive a faire des connexion avec le service d'acces distant.
> > >>> mais j'ai pas essayé telnet
> > >>>
> > >>> "ng" a écrit dans le message news:
> > >>>
> > >>>> Je parlais du serveur auquel ton prog soit se connecter.
> > >>>> Je voulais savoir si tu arrivais à établir une connexion, avec
> > >>>> telnet par exemple.
> > >>>>
> > >>>> --
> > >>>> Nicolas G.
> > >>>> FAQ VB : http://faq.vb.free.fr
> > >>>> API Guide : http://www.allapi.net
> > >>>> Google Groups : http://groups.google.fr/
> > >>>> MZ-Tools : http://www.mztools.com/
> > >>>>
> > >>>> davepath wrote:
> > >>>>> quant tu dis serveur c'est quoi, parcequ'il s'agit de simple pc
> > >>>>> qui se connectent a internet pas de serveurs
> > >>>>> "ng" a écrit dans le message news:
> > >>>>> #2P$$
> > >>>>>> Salut,
> > >>>>>>
> > >>>>>> Est-ce que les autres applications utilisant ce protocole pour


ce
> > >>>>>> serveur depuis le poste2 fonctionnent ?
> > >>>>>>
> > >>>>>> --
> > >>>>>> Nicolas G.
> > >>>>>> FAQ VB : http://faq.vb.free.fr
> > >>>>>> API Guide : http://www.allapi.net
> > >>>>>> Google Groups : http://groups.google.fr/
> > >>>>>> MZ-Tools : http://www.mztools.com/
> > >>>>>>
> > >>>>>> davepath wrote:
> > >>>>>>> Pas de config sur le dns protocol Ip du poste 2.
> > >>>>>>> J'ai essaye en ajoutant les adresses du serveur du provider


prim
> > >>>>>>> 194.149.160.9 second 194.149.160.1 mais y avait pas de
> > >>>>>>> changement
> > >>>>>>>
> > >>>>>>> "ng" a écrit dans le message news:
> > >>>>>>>
> > >>>>>>>> Salut,
> > >>>>>>>>
> > >>>>>>>> Ton serveur DNS est-il correctement configuré sur le poste 2


?
> > >>>>>>>>
> > >>>>>>>> --
> > >>>>>>>> Nicolas G.
> > >>>>>>>> FAQ VB : http://faq.vb.free.fr
> > >>>>>>>> API Guide : http://www.allapi.net
> > >>>>>>>> Google Groups : http://groups.google.fr/
> > >>>>>>>> MZ-Tools : http://www.mztools.com/
> > >>>>>>>>
> > >>>>>>>> davepath wrote:
> > >>>>>>>>> Bonjour
> > >>>>>>>>>
> > >>>>>>>>> Alors voila prendre en consideration l'instal suivante:
> > >>>>>>>>>
> > >>>>>>>>> Poste 1: NT4 Srv P6 128bits, Internet via Routeur adsl,
> > >>>>>>>>> Protocol instal: TCP/IP et NetBeui 2 carte réseaux


installées
> > >>>>>>>>>
> > >>>>>>>>> Poste 2: NT4 Srv P6 128bits, Internet via Modem
> > >>>>>>>>> Protocol instal: TCP/IP pas de carte réseaux installées
> > >>>>>>>>>
> > >>>>>>>>> J'ai fait une app avec un ctrl winsock, pour lire les msg


sur
> > >>>>>>>>> un serveur pop,
> > >>>>>>>>> elle tourne tres bien sur poste 1.
> > >>>>>>>>>
> > >>>>>>>>> L'appli a été installé par le prog d'empaquetage de VB6.
> > >>>>>>>>> Tous les fichiers sont la.
> > >>>>>>>>>
> > >>>>>>>>> Le fichier setup.lst est le suivant :
> > >>>>>>>>>
> > >>>>>>>>> [Bootstrap Files]
> > >>>>>>>>> File1=VB6STKIT.DLL,$(WinSysPathSysFile),,,6/2/99 11:00:00
> > >>>>>>>>> PM,101888,6.0.84.50
> > >>>>>>>>>
> File2=COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5/31/98
> > >>>>>>>>> 11:00:00 PM,22288,4.71.1460.1
> > >>>>>>>>> File3=MSVCRT40.DLL,$(WinSysPathSysFile),,,5/31/99 11:00:00
> > >>>>>>>>> PM,326656,4.22.0.0
> > >>>>>>>>> File4=VB6FR.DLL,$(WinSysPath),,$(Shared),10/1/00 11:00:00
> > >>>>>>>>> PM,119568,6.0.89.88
> > >>>>>>>>>


File5=STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,6/2/99
> > >>>>>>>>> 11:00:00 PM,17920,2.40.4275.1
> > >>>>>>>>> File6=ASYCFILT.DLL,$(WinSysPathSysFile),,,3/7/99 11:00:00
> > >>>>>>>>> PM,147728,2.40.4275.1
> > >>>>>>>>>
> File7=OLEPRO32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,3/7/99
> > >>>>>>>>> 11:00:00 PM,164112,5.0.4275.1
> > >>>>>>>>>
> > > File8=OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/11/00
> > >>>>>>>>> 11:00:00 PM,598288,2.40.4275.1
> > >>>>>>>>>
> > > File9=msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8/29/02
> > >>>>>>>>> 6:00:00 AM,1388544,6.0.92.37
> > >>>>>>>>>
> > >>>>>>>>> [Setup1 Files]
> > >>>>>>>>> File1ºL.mdb,$(AppPath),,,12/10/04 10:05:36


AM,634880,0.0.0.0
> > >>>>>>>>> File2=MSHFGFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
> > >>>>>>>>> PM,51200,6.0.30.5
> > >>>>>>>>> File3=STDFTFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
> > >>>>>>>>> PM,6656,6.0.81.63
> > >>>>>>>>>
> > >>>
File4=MSSTDFMT.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/13/00
> > >>>>>>>>> 11:00:00 PM,118784,6.0.88.4
> > >>>>>>>>>
> > >>>
File5=MSHFLXGD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/21/00
> > >>>>>>>>> 11:00:00 PM,438976,6.0.88.4
> > >>>>>>>>> File6=MSCMCFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
> > >>>>>>>>> PM,141312,6.0.81.63
> > >>>>>>>>>
> > > File7=Mscomctl.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),1/5/99
> > >>>>>>>>> 8:18:14 PM,1057552,6.1.83.41
> > >>>>>>>>> File8ÛGRDFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
> > >>>>>>>>> PM,34816,1.0.0.126
> > >>>>>>>>>
> > >>>
File9ÛGRID32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/15/98
> > >>>>>>>>> 11:00:00 PM,525352,5.1.81.4
> > >>>>>>>>> File10=WINSKFR.DLL,$(WinSysPath),,$(Shared),7/12/98 11:00:00
> > >>>>>>>>> PM,15872,6.0.81.63
> > >>>>>>>>>
> > >>>
File11=MSWINSCK.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/6/00
> > >>>>>>>>> 1:00:00 AM,109248,6.0.89.88
> > >>>>>>>>> File12=MSOUTL9.OLB,$(WinSysPath),,$(Shared),3/2/99 7:53:22
> > >>>>>>>>> PM,163840,9.0.0.2702
> > >>>>>>>>> File13=VB5DB.DLL,$(WinSysPath),,$(Shared),6/17/98 11:00:00
> > >>>>>>>>> PM,89360,6.0.81.69
> > >>>>>>>>> File14=MSREPL35.DLL,$(WinSysPathSysFile),,,4/12/99 11:00:00
> > >>>>>>>>> PM,415504,3.51.2404.0
> > >>>>>>>>>
> > > File15=MSRD2X35.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/24/98
> > >>>>>>>>> 11:00:00 PM,252176,3.51.623.0
> > >>>>>>>>> File16=expsrv.dll,$(WinSysPathSysFile),,,4/30/04 2:16:53
> > >>>>>>>>> PM,379152,6.0.0.8540
> > >>>>>>>>> File17=VBAJET32.DLL,$(WinSysPathSysFile),,,11/5/98 5:21:16
> > >>>>>>>>> PM,30992,6.0.1.8268
> > >>>>>>>>> File18=MSJINT35.DLL,$(WinSysPathSysFile),,,7/6/98 11:00:00
> > >>>>>>>>> PM,149776,3.51.623.0
> > >>>>>>>>> File19=MSJTER35.DLL,$(WinSysPathSysFile),,,4/24/98 11:00:00
> > >>>>>>>>> PM,24848,3.51.623.0
> > >>>>>>>>>
> > > File20=MSJET35.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/12/99
> > >>>>>>>>> 11:00:00 PM,1046288,3.51.2723.0
> > >>>>>>>>>
> > > File21ÚO350.DLL,$(MSDAOPath),$(DLLSelfRegister),$(Shared),4/27/98
> > >>>>>>>>> 11:00:00 PM,570128,3.51.1608.0
> > >>>>>>>>>
File22Úo2535.tlb,$(MSDAOPath),$(TLBRegister),$(Shared),12/2/96
> > >>>>>>>>> 2:27:48 AM,73184,0.0.0.0
> > >>>>>>>>> File23=AntiSpam.exe,$(AppPath),,,12/18/04 11:42:13
> > >>>>>>>>> AM,225280,1.0.0.0
> > >>>>>>>>>
> > >>>>>>>>> Mais j'ai un soucis sur poste 2,l'etat du ctrl winsock reste
> > >>>>>>>>> sur Connexion en attente
> > >>>>>>>>> meme si internet est démarré et connecté.
> > >>>>>>>>>
> > >>>>>>>>> Pas de message d'erreur.
> > >>>>>>>>>
> > >>>>>>>>> Avez-vous une idée ?
> >
> >
>
>




Avatar
Jean-Marc
Ok, alors essaie tous les tests dont je parlais dans mon post
précédent. Important: faire de façon exhaustive TOUS les tests. Après,
on pourra parler sur des bases solides.

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."


"davepath" a écrit dans le message de
news:cq4b3s$eel$
Ca j'en ai une idee mais pas sur
alors voila
ca coince a la connexion en fait il reste au message 'Connexion en


attente'
alors il n'y a pas de firewall, seulement antivirus titanium Panda, mais
meme desactive c'est pas mieux

pas de DNS, pas d'adresse IP puisque pas de carte reseau, apres ca me
depasse

"Jean-Marc" a écrit dans le message news:
41c5ad41$0$25057$
> J'aimerais savoir ou ça coince, oui:
> - résolution du nom de l'hote
> - connection sur me port 110 (firewall ?)
> - etc.
>
> Une chose est certaine:
> Si ça passe avec Telnet, ca DOIT passer en winsock.
>
> Si ca passe pas, il faut
> investiguer: firewall, pas de DNS, etc, config TCP, etc
>
> --
> Jean-marc
> "There are only 10 kind of people
> those who understand binary and those who don't."
>
>
> "davepath" a écrit dans le message de
> news:cq49mi$dqn$
> > Slt
> >
> > Ok, je vois ce que tu veux faire, tu veux checker la connexion ?
> >
> > "Jean-Marc" a écrit dans le message


news:
> > 41c5a104$0$31686$
> > > Hello,
> > >
> > > dans ce genre de cas, il faut de la méthode:
> > > Tout ce qui suit concerne le poste 2:
> > >
> > > 1/ Peux tu depuis une fenêtre Dos faire un acces TELNET du
> > > serveur POP en:
> > > a) utilisant l'adresse IP
> > > b) utilisant le nom d'hôte
> > >
> > > 2/ Meme chose avec un serveur pop public, comme pop3.yahoo.fr
> > > a) TELNET pop3.yahoo.fr 110
> > > b) TELNET 217.12.6.29 110
> > >
> > > 3/ Faire un programme très simple:
> > > a) essayer le programme suivant:
> > >
> > > Il faut une form, un control winsock, un bouton de commande
> > > et une listbox:
> > >
> > > Private Sub Command1_Click()
> > > Dim status As Integer
> > > Dim oldstatus As Integer
> > > Dim rh As String
> > >
> > > ' a) essayer comme ça
> > > ' b) idem mais avec ton nom de serveur
> > > rh = "pop3.yahoo.fr"
> > >
> > > Winsock1.RemoteHost = rh
> > > Winsock1.RemotePort = 110
> > > Winsock1.Connect
> > > oldstatus = -1
> > > DoEvents
> > > status = Winsock1.State
> > > Do
> > > If status <> oldstatus Then
> > > List1.AddItem status
> > > End If
> > > oldstatus = status
> > > DoEvents
> > > status = Winsock1.State
> > > Loop While status <> 7
> > > List1.AddItem "connecté à " & rh
> > > End Sub
> > >
> > > et dire ce que donne ce programme.
> > >
> > > Si tu donnes ici le résultat de chacun des tests énumérés ici,
> > > je suis sur qu'on trouve l'origine de ton probleme.
> > >
> > > --
> > > Jean-marc
> > > "There are only 10 kind of people
> > > those who understand binary and those who don't."
> > >
> > >
> > >
> > >
> > > "davepath" a écrit dans le message


de
> > > news:cq3su9$8fn$
> > > > Il fonctionne sur le poste 1, c'est ca qui m'embete
> > > > "ng" a écrit dans le message news:
> > > > #
> > > > > Salut,
> > > > >
> > > > > Pourquoi limiter les serveurs pop à pop.serveur.com ?
> > > > > Par exemple mon serveur de messagerie c'est pop3.serveur.com,


sur
un
> > > autre
> > > > > compte j'ai un serveur mail.serveur.com
> > > > > pourtout c'est tous du pop3...
> > > > > je ne sais pas si le problème peut venir de là, en tout cas le
code
> > > envoyé
> > > > à
> > > > > l'air correct...
> > > > >
> > > > > --
> > > > > Nicolas G.
> > > > > FAQ VB : http://faq.vb.free.fr
> > > > > API Guide : http://www.allapi.net
> > > > > Google Groups : http://groups.google.fr/
> > > > > MZ-Tools : http://www.mztools.com/
> > > > >
> > > > > davepath wrote:
> > > > > > Houaip, voila
> > > > > >
> > > > > > Form1.Winsock1.Close
> > > > > > Form1.Winsock1.RemoteHost = Form1.ServerPopBal.Caption
> > > > > > Form1.Winsock1.LocalPort = 669
> > > > > > If UCase(Left(Form1.ServerPopBal.Caption,
> > > > > > InStr(Form1.ServerPopBal.Caption, ".") - 1)) = "POP" Then
> > > > > > Form1.Winsock1.RemotePort = 110
> > > > > > DoEvents
> > > > > > Form1.Winsock1.Connect
> > > > > >
> > > > > > du moins c'est la demande de connexion par un clique sur un
bouton
> > > > > >
> > > > > > "ng" a écrit dans le message news:
> > > > > >
> > > > > >> Salut,
> > > > > >>
> > > > > >> Dans ce cas le prob semble plus venir de ton code, peut-on en
> voir
> > un
> > > > > >> extrait ?
> > > > > >>
> > > > > >> --
> > > > > >> Nicolas G.
> > > > > >> FAQ VB : http://faq.vb.free.fr
> > > > > >> API Guide : http://www.allapi.net
> > > > > >> Google Groups : http://groups.google.fr/
> > > > > >> MZ-Tools : http://www.mztools.com/
> > > > > >>
> > > > > >> davepath wrote:
> > > > > >>> J'arrive a faire des connexion avec le service d'acces
distant.
> > > > > >>> mais j'ai pas essayé telnet
> > > > > >>>
> > > > > >>> "ng" a écrit dans le message news:
> > > > > >>>
> > > > > >>>> Je parlais du serveur auquel ton prog soit se connecter.
> > > > > >>>> Je voulais savoir si tu arrivais à établir une connexion,
avec
> > > > > >>>> telnet par exemple.
> > > > > >>>>
> > > > > >>>> --
> > > > > >>>> Nicolas G.
> > > > > >>>> FAQ VB : http://faq.vb.free.fr
> > > > > >>>> API Guide : http://www.allapi.net
> > > > > >>>> Google Groups : http://groups.google.fr/
> > > > > >>>> MZ-Tools : http://www.mztools.com/
> > > > > >>>>
> > > > > >>>> davepath wrote:
> > > > > >>>>> quant tu dis serveur c'est quoi, parcequ'il s'agit de


simple
> pc
> > > > > >>>>> qui se connectent a internet pas de serveurs
> > > > > >>>>> "ng" a écrit dans le message news:
> > > > > >>>>> #2P$$
> > > > > >>>>>> Salut,
> > > > > >>>>>>
> > > > > >>>>>> Est-ce que les autres applications utilisant ce protocole
> pour
> > ce
> > > > > >>>>>> serveur depuis le poste2 fonctionnent ?
> > > > > >>>>>>
> > > > > >>>>>> --
> > > > > >>>>>> Nicolas G.
> > > > > >>>>>> FAQ VB : http://faq.vb.free.fr
> > > > > >>>>>> API Guide : http://www.allapi.net
> > > > > >>>>>> Google Groups : http://groups.google.fr/
> > > > > >>>>>> MZ-Tools : http://www.mztools.com/
> > > > > >>>>>>
> > > > > >>>>>> davepath wrote:
> > > > > >>>>>>> Pas de config sur le dns protocol Ip du poste 2.
> > > > > >>>>>>> J'ai essaye en ajoutant les adresses du serveur du
provider
> > prim
> > > > > >>>>>>> 194.149.160.9 second 194.149.160.1 mais y avait pas de
> > > > > >>>>>>> changement
> > > > > >>>>>>>
> > > > > >>>>>>> "ng" a écrit dans le message news:
> > > > > >>>>>>>
> > > > > >>>>>>>> Salut,
> > > > > >>>>>>>>
> > > > > >>>>>>>> Ton serveur DNS est-il correctement configuré sur le
poste
> 2
> > ?
> > > > > >>>>>>>>
> > > > > >>>>>>>> --
> > > > > >>>>>>>> Nicolas G.
> > > > > >>>>>>>> FAQ VB : http://faq.vb.free.fr
> > > > > >>>>>>>> API Guide : http://www.allapi.net
> > > > > >>>>>>>> Google Groups : http://groups.google.fr/
> > > > > >>>>>>>> MZ-Tools : http://www.mztools.com/
> > > > > >>>>>>>>
> > > > > >>>>>>>> davepath wrote:
> > > > > >>>>>>>>> Bonjour
> > > > > >>>>>>>>>
> > > > > >>>>>>>>> Alors voila prendre en consideration l'instal


suivante:
> > > > > >>>>>>>>>
> > > > > >>>>>>>>> Poste 1: NT4 Srv P6 128bits, Internet via Routeur


adsl,
> > > > > >>>>>>>>> Protocol instal: TCP/IP et NetBeui 2 carte réseaux
> > installées
> > > > > >>>>>>>>>
> > > > > >>>>>>>>> Poste 2: NT4 Srv P6 128bits, Internet via Modem
> > > > > >>>>>>>>> Protocol instal: TCP/IP pas de carte réseaux


installées
> > > > > >>>>>>>>>
> > > > > >>>>>>>>> J'ai fait une app avec un ctrl winsock, pour lire les
msg
> > sur
> > > > > >>>>>>>>> un serveur pop,
> > > > > >>>>>>>>> elle tourne tres bien sur poste 1.
> > > > > >>>>>>>>>
> > > > > >>>>>>>>> L'appli a été installé par le prog d'empaquetage de


VB6.
> > > > > >>>>>>>>> Tous les fichiers sont la.
> > > > > >>>>>>>>>
> > > > > >>>>>>>>> Le fichier setup.lst est le suivant :
> > > > > >>>>>>>>>
> > > > > >>>>>>>>> [Bootstrap Files]
> > > > > >>>>>>>>> File1=VB6STKIT.DLL,$(WinSysPathSysFile),,,6/2/99
11:00:00
> > > > > >>>>>>>>> PM,101888,6.0.84.50
> > > > > >>>>>>>>>
> > > > File2=COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5/31/98
> > > > > >>>>>>>>> 11:00:00 PM,22288,4.71.1460.1
> > > > > >>>>>>>>> File3=MSVCRT40.DLL,$(WinSysPathSysFile),,,5/31/99
11:00:00
> > > > > >>>>>>>>> PM,326656,4.22.0.0
> > > > > >>>>>>>>> File4=VB6FR.DLL,$(WinSysPath),,$(Shared),10/1/00
11:00:00
> > > > > >>>>>>>>> PM,119568,6.0.89.88
> > > > > >>>>>>>>>
> > File5=STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,6/2/99
> > > > > >>>>>>>>> 11:00:00 PM,17920,2.40.4275.1
> > > > > >>>>>>>>> File6=ASYCFILT.DLL,$(WinSysPathSysFile),,,3/7/99
11:00:00
> > > > > >>>>>>>>> PM,147728,2.40.4275.1
> > > > > >>>>>>>>>
> > > > File7=OLEPRO32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,3/7/99
> > > > > >>>>>>>>> 11:00:00 PM,164112,5.0.4275.1
> > > > > >>>>>>>>>
> > > > > >
> File8=OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/11/00
> > > > > >>>>>>>>> 11:00:00 PM,598288,2.40.4275.1
> > > > > >>>>>>>>>
> > > > > >
> File9=msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8/29/02
> > > > > >>>>>>>>> 6:00:00 AM,1388544,6.0.92.37
> > > > > >>>>>>>>>
> > > > > >>>>>>>>> [Setup1 Files]
> > > > > >>>>>>>>> File1ºL.mdb,$(AppPath),,,12/10/04 10:05:36
> > AM,634880,0.0.0.0
> > > > > >>>>>>>>> File2=MSHFGFR.DLL,$(WinSysPath),,$(Shared),7/12/98
> 11:00:00
> > > > > >>>>>>>>> PM,51200,6.0.30.5
> > > > > >>>>>>>>> File3=STDFTFR.DLL,$(WinSysPath),,$(Shared),7/12/98
> 11:00:00
> > > > > >>>>>>>>> PM,6656,6.0.81.63
> > > > > >>>>>>>>>
> > > > > >>>
> > >


File4=MSSTDFMT.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/13/00
> > > > > >>>>>>>>> 11:00:00 PM,118784,6.0.88.4
> > > > > >>>>>>>>>
> > > > > >>>
> > >


File5=MSHFLXGD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/21/00
> > > > > >>>>>>>>> 11:00:00 PM,438976,6.0.88.4
> > > > > >>>>>>>>> File6=MSCMCFR.DLL,$(WinSysPath),,$(Shared),7/12/98
> 11:00:00
> > > > > >>>>>>>>> PM,141312,6.0.81.63
> > > > > >>>>>>>>>
> > > > > >
> File7=Mscomctl.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),1/5/99
> > > > > >>>>>>>>> 8:18:14 PM,1057552,6.1.83.41
> > > > > >>>>>>>>> File8ÛGRDFR.DLL,$(WinSysPath),,$(Shared),7/12/98
> 11:00:00
> > > > > >>>>>>>>> PM,34816,1.0.0.126
> > > > > >>>>>>>>>
> > > > > >>>
> > >


File9ÛGRID32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/15/98
> > > > > >>>>>>>>> 11:00:00 PM,525352,5.1.81.4
> > > > > >>>>>>>>> File10=WINSKFR.DLL,$(WinSysPath),,$(Shared),7/12/98
> 11:00:00
> > > > > >>>>>>>>> PM,15872,6.0.81.63
> > > > > >>>>>>>>>
> > > > > >>>
> > >


File11=MSWINSCK.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/6/00
> > > > > >>>>>>>>> 1:00:00 AM,109248,6.0.89.88
> > > > > >>>>>>>>> File12=MSOUTL9.OLB,$(WinSysPath),,$(Shared),3/2/99
7:53:22
> > > > > >>>>>>>>> PM,163840,9.0.0.2702
> > > > > >>>>>>>>> File13=VB5DB.DLL,$(WinSysPath),,$(Shared),6/17/98
11:00:00
> > > > > >>>>>>>>> PM,89360,6.0.81.69
> > > > > >>>>>>>>> File14=MSREPL35.DLL,$(WinSysPathSysFile),,,4/12/99
> 11:00:00
> > > > > >>>>>>>>> PM,415504,3.51.2404.0
> > > > > >>>>>>>>>
> > > > > >
> File15=MSRD2X35.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/24/98
> > > > > >>>>>>>>> 11:00:00 PM,252176,3.51.623.0
> > > > > >>>>>>>>> File16=expsrv.dll,$(WinSysPathSysFile),,,4/30/04


2:16:53
> > > > > >>>>>>>>> PM,379152,6.0.0.8540
> > > > > >>>>>>>>> File17=VBAJET32.DLL,$(WinSysPathSysFile),,,11/5/98
5:21:16
> > > > > >>>>>>>>> PM,30992,6.0.1.8268
> > > > > >>>>>>>>> File18=MSJINT35.DLL,$(WinSysPathSysFile),,,7/6/98
11:00:00
> > > > > >>>>>>>>> PM,149776,3.51.623.0
> > > > > >>>>>>>>> File19=MSJTER35.DLL,$(WinSysPathSysFile),,,4/24/98
> 11:00:00
> > > > > >>>>>>>>> PM,24848,3.51.623.0
> > > > > >>>>>>>>>
> > > > > >
> File20=MSJET35.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/12/99
> > > > > >>>>>>>>> 11:00:00 PM,1046288,3.51.2723.0
> > > > > >>>>>>>>>
> > > > > >
> File21ÚO350.DLL,$(MSDAOPath),$(DLLSelfRegister),$(Shared),4/27/98
> > > > > >>>>>>>>> 11:00:00 PM,570128,3.51.1608.0
> > > > > >>>>>>>>>
> > > File22Úo2535.tlb,$(MSDAOPath),$(TLBRegister),$(Shared),12/2/96
> > > > > >>>>>>>>> 2:27:48 AM,73184,0.0.0.0
> > > > > >>>>>>>>> File23=AntiSpam.exe,$(AppPath),,,12/18/04 11:42:13
> > > > > >>>>>>>>> AM,225280,1.0.0.0
> > > > > >>>>>>>>>
> > > > > >>>>>>>>> Mais j'ai un soucis sur poste 2,l'etat du ctrl winsock
> reste
> > > > > >>>>>>>>> sur Connexion en attente
> > > > > >>>>>>>>> meme si internet est démarré et connecté.
> > > > > >>>>>>>>>
> > > > > >>>>>>>>> Pas de message d'erreur.
> > > > > >>>>>>>>>
> > > > > >>>>>>>>> Avez-vous une idée ?
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>




Avatar
davepath
Ca j'en ai une idee mais pas sur
alors voila
ca coince a la connexion en fait il reste au message 'Connexion en attente'
alors il n'y a pas de firewall, seulement antivirus titanium Panda, mais
meme desactive c'est pas mieux

pas de DNS, pas d'adresse IP puisque pas de carte reseau, apres ca me
depasse

"Jean-Marc" a écrit dans le message news:
41c5ad41$0$25057$
J'aimerais savoir ou ça coince, oui:
- résolution du nom de l'hote
- connection sur me port 110 (firewall ?)
- etc.

Une chose est certaine:
Si ça passe avec Telnet, ca DOIT passer en winsock.

Si ca passe pas, il faut
investiguer: firewall, pas de DNS, etc, config TCP, etc

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."


"davepath" a écrit dans le message de
news:cq49mi$dqn$
> Slt
>
> Ok, je vois ce que tu veux faire, tu veux checker la connexion ?
>
> "Jean-Marc" a écrit dans le message news:
> 41c5a104$0$31686$
> > Hello,
> >
> > dans ce genre de cas, il faut de la méthode:
> > Tout ce qui suit concerne le poste 2:
> >
> > 1/ Peux tu depuis une fenêtre Dos faire un acces TELNET du
> > serveur POP en:
> > a) utilisant l'adresse IP
> > b) utilisant le nom d'hôte
> >
> > 2/ Meme chose avec un serveur pop public, comme pop3.yahoo.fr
> > a) TELNET pop3.yahoo.fr 110
> > b) TELNET 217.12.6.29 110
> >
> > 3/ Faire un programme très simple:
> > a) essayer le programme suivant:
> >
> > Il faut une form, un control winsock, un bouton de commande
> > et une listbox:
> >
> > Private Sub Command1_Click()
> > Dim status As Integer
> > Dim oldstatus As Integer
> > Dim rh As String
> >
> > ' a) essayer comme ça
> > ' b) idem mais avec ton nom de serveur
> > rh = "pop3.yahoo.fr"
> >
> > Winsock1.RemoteHost = rh
> > Winsock1.RemotePort = 110
> > Winsock1.Connect
> > oldstatus = -1
> > DoEvents
> > status = Winsock1.State
> > Do
> > If status <> oldstatus Then
> > List1.AddItem status
> > End If
> > oldstatus = status
> > DoEvents
> > status = Winsock1.State
> > Loop While status <> 7
> > List1.AddItem "connecté à " & rh
> > End Sub
> >
> > et dire ce que donne ce programme.
> >
> > Si tu donnes ici le résultat de chacun des tests énumérés ici,
> > je suis sur qu'on trouve l'origine de ton probleme.
> >
> > --
> > Jean-marc
> > "There are only 10 kind of people
> > those who understand binary and those who don't."
> >
> >
> >
> >
> > "davepath" a écrit dans le message de
> > news:cq3su9$8fn$
> > > Il fonctionne sur le poste 1, c'est ca qui m'embete
> > > "ng" a écrit dans le message news:
> > > #
> > > > Salut,
> > > >
> > > > Pourquoi limiter les serveurs pop à pop.serveur.com ?
> > > > Par exemple mon serveur de messagerie c'est pop3.serveur.com, sur


un
> > autre
> > > > compte j'ai un serveur mail.serveur.com
> > > > pourtout c'est tous du pop3...
> > > > je ne sais pas si le problème peut venir de là, en tout cas le


code
> > envoyé
> > > à
> > > > l'air correct...
> > > >
> > > > --
> > > > Nicolas G.
> > > > FAQ VB : http://faq.vb.free.fr
> > > > API Guide : http://www.allapi.net
> > > > Google Groups : http://groups.google.fr/
> > > > MZ-Tools : http://www.mztools.com/
> > > >
> > > > davepath wrote:
> > > > > Houaip, voila
> > > > >
> > > > > Form1.Winsock1.Close
> > > > > Form1.Winsock1.RemoteHost = Form1.ServerPopBal.Caption
> > > > > Form1.Winsock1.LocalPort = 669
> > > > > If UCase(Left(Form1.ServerPopBal.Caption,
> > > > > InStr(Form1.ServerPopBal.Caption, ".") - 1)) = "POP" Then
> > > > > Form1.Winsock1.RemotePort = 110
> > > > > DoEvents
> > > > > Form1.Winsock1.Connect
> > > > >
> > > > > du moins c'est la demande de connexion par un clique sur un


bouton
> > > > >
> > > > > "ng" a écrit dans le message news:
> > > > >
> > > > >> Salut,
> > > > >>
> > > > >> Dans ce cas le prob semble plus venir de ton code, peut-on en
voir
> un
> > > > >> extrait ?
> > > > >>
> > > > >> --
> > > > >> Nicolas G.
> > > > >> FAQ VB : http://faq.vb.free.fr
> > > > >> API Guide : http://www.allapi.net
> > > > >> Google Groups : http://groups.google.fr/
> > > > >> MZ-Tools : http://www.mztools.com/
> > > > >>
> > > > >> davepath wrote:
> > > > >>> J'arrive a faire des connexion avec le service d'acces


distant.
> > > > >>> mais j'ai pas essayé telnet
> > > > >>>
> > > > >>> "ng" a écrit dans le message news:
> > > > >>>
> > > > >>>> Je parlais du serveur auquel ton prog soit se connecter.
> > > > >>>> Je voulais savoir si tu arrivais à établir une connexion,


avec
> > > > >>>> telnet par exemple.
> > > > >>>>
> > > > >>>> --
> > > > >>>> Nicolas G.
> > > > >>>> FAQ VB : http://faq.vb.free.fr
> > > > >>>> API Guide : http://www.allapi.net
> > > > >>>> Google Groups : http://groups.google.fr/
> > > > >>>> MZ-Tools : http://www.mztools.com/
> > > > >>>>
> > > > >>>> davepath wrote:
> > > > >>>>> quant tu dis serveur c'est quoi, parcequ'il s'agit de simple
pc
> > > > >>>>> qui se connectent a internet pas de serveurs
> > > > >>>>> "ng" a écrit dans le message news:
> > > > >>>>> #2P$$
> > > > >>>>>> Salut,
> > > > >>>>>>
> > > > >>>>>> Est-ce que les autres applications utilisant ce protocole
pour
> ce
> > > > >>>>>> serveur depuis le poste2 fonctionnent ?
> > > > >>>>>>
> > > > >>>>>> --
> > > > >>>>>> Nicolas G.
> > > > >>>>>> FAQ VB : http://faq.vb.free.fr
> > > > >>>>>> API Guide : http://www.allapi.net
> > > > >>>>>> Google Groups : http://groups.google.fr/
> > > > >>>>>> MZ-Tools : http://www.mztools.com/
> > > > >>>>>>
> > > > >>>>>> davepath wrote:
> > > > >>>>>>> Pas de config sur le dns protocol Ip du poste 2.
> > > > >>>>>>> J'ai essaye en ajoutant les adresses du serveur du


provider
> prim
> > > > >>>>>>> 194.149.160.9 second 194.149.160.1 mais y avait pas de
> > > > >>>>>>> changement
> > > > >>>>>>>
> > > > >>>>>>> "ng" a écrit dans le message news:
> > > > >>>>>>>
> > > > >>>>>>>> Salut,
> > > > >>>>>>>>
> > > > >>>>>>>> Ton serveur DNS est-il correctement configuré sur le


poste
2
> ?
> > > > >>>>>>>>
> > > > >>>>>>>> --
> > > > >>>>>>>> Nicolas G.
> > > > >>>>>>>> FAQ VB : http://faq.vb.free.fr
> > > > >>>>>>>> API Guide : http://www.allapi.net
> > > > >>>>>>>> Google Groups : http://groups.google.fr/
> > > > >>>>>>>> MZ-Tools : http://www.mztools.com/
> > > > >>>>>>>>
> > > > >>>>>>>> davepath wrote:
> > > > >>>>>>>>> Bonjour
> > > > >>>>>>>>>
> > > > >>>>>>>>> Alors voila prendre en consideration l'instal suivante:
> > > > >>>>>>>>>
> > > > >>>>>>>>> Poste 1: NT4 Srv P6 128bits, Internet via Routeur adsl,
> > > > >>>>>>>>> Protocol instal: TCP/IP et NetBeui 2 carte réseaux
> installées
> > > > >>>>>>>>>
> > > > >>>>>>>>> Poste 2: NT4 Srv P6 128bits, Internet via Modem
> > > > >>>>>>>>> Protocol instal: TCP/IP pas de carte réseaux installées
> > > > >>>>>>>>>
> > > > >>>>>>>>> J'ai fait une app avec un ctrl winsock, pour lire les


msg
> sur
> > > > >>>>>>>>> un serveur pop,
> > > > >>>>>>>>> elle tourne tres bien sur poste 1.
> > > > >>>>>>>>>
> > > > >>>>>>>>> L'appli a été installé par le prog d'empaquetage de VB6.
> > > > >>>>>>>>> Tous les fichiers sont la.
> > > > >>>>>>>>>
> > > > >>>>>>>>> Le fichier setup.lst est le suivant :
> > > > >>>>>>>>>
> > > > >>>>>>>>> [Bootstrap Files]
> > > > >>>>>>>>> File1=VB6STKIT.DLL,$(WinSysPathSysFile),,,6/2/99


11:00:00
> > > > >>>>>>>>> PM,101888,6.0.84.50
> > > > >>>>>>>>>
> > > File2=COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5/31/98
> > > > >>>>>>>>> 11:00:00 PM,22288,4.71.1460.1
> > > > >>>>>>>>> File3=MSVCRT40.DLL,$(WinSysPathSysFile),,,5/31/99


11:00:00
> > > > >>>>>>>>> PM,326656,4.22.0.0
> > > > >>>>>>>>> File4=VB6FR.DLL,$(WinSysPath),,$(Shared),10/1/00


11:00:00
> > > > >>>>>>>>> PM,119568,6.0.89.88
> > > > >>>>>>>>>
> File5=STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,6/2/99
> > > > >>>>>>>>> 11:00:00 PM,17920,2.40.4275.1
> > > > >>>>>>>>> File6=ASYCFILT.DLL,$(WinSysPathSysFile),,,3/7/99


11:00:00
> > > > >>>>>>>>> PM,147728,2.40.4275.1
> > > > >>>>>>>>>
> > > File7=OLEPRO32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,3/7/99
> > > > >>>>>>>>> 11:00:00 PM,164112,5.0.4275.1
> > > > >>>>>>>>>
> > > > >
File8=OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/11/00
> > > > >>>>>>>>> 11:00:00 PM,598288,2.40.4275.1
> > > > >>>>>>>>>
> > > > >
File9=msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8/29/02
> > > > >>>>>>>>> 6:00:00 AM,1388544,6.0.92.37
> > > > >>>>>>>>>
> > > > >>>>>>>>> [Setup1 Files]
> > > > >>>>>>>>> File1ºL.mdb,$(AppPath),,,12/10/04 10:05:36
> AM,634880,0.0.0.0
> > > > >>>>>>>>> File2=MSHFGFR.DLL,$(WinSysPath),,$(Shared),7/12/98
11:00:00
> > > > >>>>>>>>> PM,51200,6.0.30.5
> > > > >>>>>>>>> File3=STDFTFR.DLL,$(WinSysPath),,$(Shared),7/12/98
11:00:00
> > > > >>>>>>>>> PM,6656,6.0.81.63
> > > > >>>>>>>>>
> > > > >>>
> > File4=MSSTDFMT.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/13/00
> > > > >>>>>>>>> 11:00:00 PM,118784,6.0.88.4
> > > > >>>>>>>>>
> > > > >>>
> > File5=MSHFLXGD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/21/00
> > > > >>>>>>>>> 11:00:00 PM,438976,6.0.88.4
> > > > >>>>>>>>> File6=MSCMCFR.DLL,$(WinSysPath),,$(Shared),7/12/98
11:00:00
> > > > >>>>>>>>> PM,141312,6.0.81.63
> > > > >>>>>>>>>
> > > > >
File7=Mscomctl.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),1/5/99
> > > > >>>>>>>>> 8:18:14 PM,1057552,6.1.83.41
> > > > >>>>>>>>> File8ÛGRDFR.DLL,$(WinSysPath),,$(Shared),7/12/98
11:00:00
> > > > >>>>>>>>> PM,34816,1.0.0.126
> > > > >>>>>>>>>
> > > > >>>
> > File9ÛGRID32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/15/98
> > > > >>>>>>>>> 11:00:00 PM,525352,5.1.81.4
> > > > >>>>>>>>> File10=WINSKFR.DLL,$(WinSysPath),,$(Shared),7/12/98
11:00:00
> > > > >>>>>>>>> PM,15872,6.0.81.63
> > > > >>>>>>>>>
> > > > >>>
> > File11=MSWINSCK.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/6/00
> > > > >>>>>>>>> 1:00:00 AM,109248,6.0.89.88
> > > > >>>>>>>>> File12=MSOUTL9.OLB,$(WinSysPath),,$(Shared),3/2/99


7:53:22
> > > > >>>>>>>>> PM,163840,9.0.0.2702
> > > > >>>>>>>>> File13=VB5DB.DLL,$(WinSysPath),,$(Shared),6/17/98


11:00:00
> > > > >>>>>>>>> PM,89360,6.0.81.69
> > > > >>>>>>>>> File14=MSREPL35.DLL,$(WinSysPathSysFile),,,4/12/99
11:00:00
> > > > >>>>>>>>> PM,415504,3.51.2404.0
> > > > >>>>>>>>>
> > > > >
File15=MSRD2X35.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/24/98
> > > > >>>>>>>>> 11:00:00 PM,252176,3.51.623.0
> > > > >>>>>>>>> File16=expsrv.dll,$(WinSysPathSysFile),,,4/30/04 2:16:53
> > > > >>>>>>>>> PM,379152,6.0.0.8540
> > > > >>>>>>>>> File17=VBAJET32.DLL,$(WinSysPathSysFile),,,11/5/98


5:21:16
> > > > >>>>>>>>> PM,30992,6.0.1.8268
> > > > >>>>>>>>> File18=MSJINT35.DLL,$(WinSysPathSysFile),,,7/6/98


11:00:00
> > > > >>>>>>>>> PM,149776,3.51.623.0
> > > > >>>>>>>>> File19=MSJTER35.DLL,$(WinSysPathSysFile),,,4/24/98
11:00:00
> > > > >>>>>>>>> PM,24848,3.51.623.0
> > > > >>>>>>>>>
> > > > >
File20=MSJET35.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/12/99
> > > > >>>>>>>>> 11:00:00 PM,1046288,3.51.2723.0
> > > > >>>>>>>>>
> > > > >
File21ÚO350.DLL,$(MSDAOPath),$(DLLSelfRegister),$(Shared),4/27/98
> > > > >>>>>>>>> 11:00:00 PM,570128,3.51.1608.0
> > > > >>>>>>>>>
> > File22Úo2535.tlb,$(MSDAOPath),$(TLBRegister),$(Shared),12/2/96
> > > > >>>>>>>>> 2:27:48 AM,73184,0.0.0.0
> > > > >>>>>>>>> File23=AntiSpam.exe,$(AppPath),,,12/18/04 11:42:13
> > > > >>>>>>>>> AM,225280,1.0.0.0
> > > > >>>>>>>>>
> > > > >>>>>>>>> Mais j'ai un soucis sur poste 2,l'etat du ctrl winsock
reste
> > > > >>>>>>>>> sur Connexion en attente
> > > > >>>>>>>>> meme si internet est démarré et connecté.
> > > > >>>>>>>>>
> > > > >>>>>>>>> Pas de message d'erreur.
> > > > >>>>>>>>>
> > > > >>>>>>>>> Avez-vous une idée ?
> > > >
> > > >
> > >
> > >
> >
> >
>
>




1 2