internetopen

Windows XP,VB
Declarations de la feuille:

Code:

1
2
3
4
5
6
7
8
 
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 sAgent As String, ByVal lAccessType As Long, _
                    ByVal sProxyName As String, ByVal sProxyBypass As String, _
                    ByVal lFlags As Long) As Long

dans le code de la feuille:

Code:

1
2
3
4
5
6
7
 
Dim rep As Byte, etat_connection As Boolean, ouverture_internet As Long
       'vérifie l'état de la connection
etat_connection = InternetGetConnectedState(0&, 0&)
If etat_connection = 0 Then ouverture_internet = InternetOpen("MonApp", 0, vbNullString, vbNullString, 0)
       'revérifie l'état de la connection
etat_connection = InternetGetConnectedState(0&, 0&)

Si la connection est préalablement ouverte etat_connecton le repère bien(vrai)
Sinon ,le code exécute bien ouverture_internet =Internetopen(...) mais
en revérifiant l'état de la connection (etat_connection = InternetGetConnectedState(0&, 0&)) je m'aperçcois que la connection n'est pas ouverte !
Quelqu'un a-t-il une idée ?Merci

Ça ne serait pas un problème de rapidité? Tu es sûr qu'il a le temps d'ouvrir Internet avant que tu ne re-véifie l'état de la connexion?
Si tu mets un point d'arrêt entre les 2 instructions, qu'est-ce que ça donne?

Citation:

Envoyé par Megaxel

Ça ne serait pas un problème de rapidité? Tu es sûr qu'il a le temps d'ouvrir Internet avant que tu ne re-véifie l'état de la connexion?
Si tu mets un point d'arrêt entre les 2 instructions, qu'est-ce que ça donne?

En mettant un point d'arrêt sur la ligne de "re-vérification" , l'ouverture ne se fait pas plus. A+