Discussion :

[jogu]

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" ?

[omen999]

quelle valeur faut-il passer pour " lpszAgent" ?

c'est justement le moindre de tes problèmes

ton code est disons... difficile à qualifier
1° tu appelles inutilement deux fois la fonction InternetGetConnectedState
2° tu forces vb (qui est bonne fille) à procéder à un cast implicite de la valeur renvoyée par cette fonction pour ensuite faire une erreur dans le test de branchement
(0=false et non true)

définir InternetGetConnectedState as boolean
dans la mesure où la fonction lpdwflags attend un pointeur sur une variable long, c'est pas + mal de la définir ex ici: http://vbnet.mvps.org/index.html?cod...ectedstate.htm
et enfin:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If InternetGetConnectedState(lpdwflags, 0&) Then _
     rep = InternetOpen("useragent", 0, vbNullString, vbNullString, 0)

pour ce qui est du "user agent" une bonne lecture ici: http://fr.wikipedia.org/wiki/User-Agent

[jogu]

c'est justement le moindre de tes problèmes

ton code est disons... difficile à qualifier
1° tu appelles inutilement deux fois la fonction InternetGetConnectedState
2° tu forces vb (qui est bonne fille) à procéder à un cast implicite de la valeur renvoyée par cette fonction pour ensuite faire une erreur dans le test de branchement
(0=false et non true)

définir InternetGetConnectedState as boolean
dans la mesure où la fonction lpdwflags attend un pointeur sur une variable long, c'est pas + mal de la définir ex ici: http://vbnet.mvps.org/index.html?cod...ectedstate.htm
et enfin:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If InternetGetConnectedState(lpdwflags, 0&) Then _
     rep = InternetOpen("useragent", 0, vbNullString, vbNullString, 0)

pour ce qui est du "user agent" une bonne lecture ici: http://fr.wikipedia.org/wiki/User-Agent

merci de ta réponse et des liens que j'ai parcourus .Je n'ai gardé que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
      If InternetGetConnectedState(lpdwFlags, 0&) Then _
     rep = InternetOpen("useragent", 0, vbNullString, vbNullString, 0)

malheureusement la connection ne s'ouvre toujours pas.