A partir d'un programme VB6 , j'envoie(avec CDO) des emails et fichiers incorporés ;cela marche très bien àcondition que la connection internet soit préalablement ouverte.
Je désirerais que cette connection s'ouvre si elle est fermée.D'où :
Dans la déclaration d'un module ,les fonctions suivantes:
( Test de la connection puis ouverture.)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, _
        ByVal dwReserved As Long) As Long
 
 
 
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
        (ByVal lpszAgent As String, ByVal dwAccessType As Long, ByVal lpszProxyName As String, _
         ByVal lpszProxyBypass As String, ByVal dwFlags As Long) As Long
puis le code d'ouverture

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Dim rep As Long
rep = InternetGetConnectedState(0&, 0&)
If InternetGetConnectedState(0&, 0&) = 0 Then _
     rep = InternetOpen("??", 0, vbNullString, vbNullString, 0)
le test de connection semble marcher mais pas l'ouverture!
quelle valeur faut-il passer pour " lpszAgent" ?