Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Test connection internet

Test connection internet

6 réponses
Avatar
mumu
bonsoir

Je voudrais pouvoir tester si il y a une connection internet, avant
d'envoyer un email, car si il n'y a pas de connection l'instruction send
plante access en attente de la connection et le programme reste planté la
:((

Pour l'instant je la test mais pas vraiment de manniere tres "belle"
en fait j'ouvre une session ftp sur mon site de Free
et je test si l'action a réussi.

ca marche mais pas vraiment terrible dans certain cas:

Si on est en travail hors connection => ca dit pas de connection
Si le serveur de Free est planté => ca dit pas de connection

En fait je voudrais directement aller tester la connection internet sur
l'ordi

Est ce possible?

merci de votre aide
Mumu
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Anor
Bonjour,

Regarde si ce lien te convient :

http://memoaccess.free.fr/net.htm#IsConnected

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------

mumu :
| bonsoir
|
| Je voudrais pouvoir tester si il y a une connection internet, avant
| d'envoyer un email, car si il n'y a pas de connection l'instruction
| send plante access en attente de la connection et le programme reste
| planté la :((
|
| Pour l'instant je la test mais pas vraiment de manniere tres "belle"
| en fait j'ouvre une session ftp sur mon site de Free
| et je test si l'action a réussi.
|
| ca marche mais pas vraiment terrible dans certain cas:
|
| Si on est en travail hors connection => ca dit pas de connection
| Si le serveur de Free est planté => ca dit pas de connection
|
| En fait je voudrais directement aller tester la connection internet
| sur l'ordi
|
| Est ce possible?
|
| merci de votre aide
| Mumu
Avatar
mumu
Merci mais non cela ne marche pas
je suis en reseau et c'est un pont qui me donne la connection internet
du coup fIsConnected est toujours vrai puisque je suis relié au reseau meme
sans etre relié a internet
On en avait deja parlé il y a un moment pour autre chose il me semble
et j'avais contourné le probleme en faisant un test d'ouverture en FTP
si ca marchait c'est que j'étais connecté sinon c'est que je ne l'étais pas.
a l'époque j'avais besoin de telecharger un fichier sur Free sur fichier
donc si le serveur Free était
planté cela ne me genait pas et je disais "pas de connection"
mais la c'est different si Free est planté je veux quand meme envoyer mon
email.
j'ai vu dans les archives ca:

'*** code du bouton connecter****
Private Sub cmdConnecter_Click()
Dim res
res = Shell("rundll32.exe rnaui.dll,RnaDial " & Me!MonControle, 1)
End Sub
'***************************************

Par exemple, dans le menu démarrer de Windows tape ceci:
rundll32.exe rnaui.dll,RnaDial LeNomDeTaConnection

Ce code est de PierreVA

Moi quand je le tape ca me dit:

"erreur de chargement de rnaui.dll le module specifié est introuvable"
Voila, si tu as une autre piste ne te gene pas pour me le dire :)
Mumu


"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de
news:
Bonjour,

Regarde si ce lien te convient :

http://memoaccess.free.fr/net.htm#IsConnected

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------

mumu :
| bonsoir
|
| Je voudrais pouvoir tester si il y a une connection internet, avant
| d'envoyer un email, car si il n'y a pas de connection l'instruction
| send plante access en attente de la connection et le programme reste
| planté la :((
|
| Pour l'instant je la test mais pas vraiment de manniere tres "belle"
| en fait j'ouvre une session ftp sur mon site de Free
| et je test si l'action a réussi.
|
| ca marche mais pas vraiment terrible dans certain cas:
|
| Si on est en travail hors connection => ca dit pas de connection
| Si le serveur de Free est planté => ca dit pas de connection
|
| En fait je voudrais directement aller tester la connection internet
| sur l'ordi
|
| Est ce possible?
|
| merci de votre aide
| Mumu




Avatar
Anor
Salut,
Ah oui c'était avec toi que j'avais testé ça et que ma base
"fourre-tout" s'est corrompue, tout perdu ?

Effectivement, la connexion réseau gène, mais pas trouvé mieux :-(
et je n'ai pas la dll rnaui.dll sur mon PC.
--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------

mumu :
| Merci mais non cela ne marche pas
| je suis en reseau et c'est un pont qui me donne la connection internet
| du coup fIsConnected est toujours vrai puisque je suis relié au
| reseau meme sans etre relié a internet
| On en avait deja parlé il y a un moment pour autre chose il me semble
| et j'avais contourné le probleme en faisant un test d'ouverture en FTP
| si ca marchait c'est que j'étais connecté sinon c'est que je ne
| l'étais pas. a l'époque j'avais besoin de telecharger un fichier sur
| Free sur fichier donc si le serveur Free était
| planté cela ne me genait pas et je disais "pas de connection"
| mais la c'est different si Free est planté je veux quand meme envoyer
| mon email.
| j'ai vu dans les archives ca:
|
| '*** code du bouton connecter****
| Private Sub cmdConnecter_Click()
| Dim res
| res = Shell("rundll32.exe rnaui.dll,RnaDial " & Me!MonControle, 1)
| End Sub
| '***************************************
|
| Par exemple, dans le menu démarrer de Windows tape ceci:
| rundll32.exe rnaui.dll,RnaDial LeNomDeTaConnection
|
| Ce code est de PierreVA
|
| Moi quand je le tape ca me dit:
|
| "erreur de chargement de rnaui.dll le module specifié est
| introuvable" Voila, si tu as une autre piste ne te gene pas pour me
| le dire :)
| Mumu
|
Avatar
mumu
Oui c'était avec moi
tu n'as pas pu l'a récupérer en important ces éléments?

Pour la rnaui.dll elle devait surempent servir sous windows 98 ou millenium
je vais continuer mes recherches si je trouve quelque chose je te le dirais
mumu


"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de
news:
Salut,
Ah oui c'était avec toi que j'avais testé ça et que ma base
"fourre-tout" s'est corrompue, tout perdu ?

Effectivement, la connexion réseau gène, mais pas trouvé mieux :-(
et je n'ai pas la dll rnaui.dll sur mon PC.
--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------

mumu :
| Merci mais non cela ne marche pas
| je suis en reseau et c'est un pont qui me donne la connection internet
| du coup fIsConnected est toujours vrai puisque je suis relié au
| reseau meme sans etre relié a internet
| On en avait deja parlé il y a un moment pour autre chose il me semble
| et j'avais contourné le probleme en faisant un test d'ouverture en FTP
| si ca marchait c'est que j'étais connecté sinon c'est que je ne
| l'étais pas. a l'époque j'avais besoin de telecharger un fichier sur
| Free sur fichier donc si le serveur Free était
| planté cela ne me genait pas et je disais "pas de connection"
| mais la c'est different si Free est planté je veux quand meme envoyer
| mon email.
| j'ai vu dans les archives ca:
|
| '*** code du bouton connecter****
| Private Sub cmdConnecter_Click()
| Dim res
| res = Shell("rundll32.exe rnaui.dll,RnaDial " & Me!MonControle, 1)
| End Sub
| '***************************************
|
| Par exemple, dans le menu démarrer de Windows tape ceci:
| rundll32.exe rnaui.dll,RnaDial LeNomDeTaConnection
|
| Ce code est de PierreVA
|
| Moi quand je le tape ca me dit:
|
| "erreur de chargement de rnaui.dll le module specifié est
| introuvable" Voila, si tu as une autre piste ne te gene pas pour me
| le dire :)
| Mumu
|




Avatar
Anor
Salut,

mumu :
| Oui c'était avec moi
| tu n'as pas pu l'a récupérer en important ces éléments?

hé non , impossible d'ouvrir la base, ou importer quoi que ce soit :-((

| Pour la rnaui.dll elle devait surempent servir sous windows 98 ou
| millenium je vais continuer mes recherches si je trouve quelque chose
| je te le dirais mumu

Effectivement, rnaui.dll se trouve dans windows98, mais je ne vois pas comment
exploiter le retour qui risque de déclencher l'ouverture de la fenêtre de connexion
en cas de non connexion justement ....

J'avais bien pensé à lire le contenu d'une URL et renvoyer vrai ou faux selon le résultat,
mais l'api wininet n'est pas assez stable je trouve pour ce genre d'utilisations.
--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Avatar
Anor
Re,

Anor <http://memoaccess.free.fr/anor/email.htm> :
|
| J'avais bien pensé à lire le contenu d'une URL et renvoyer vrai ou
| faux selon le résultat, mais l'api wininet n'est pas assez stable je
| trouve pour ce genre d'utilisations.

Je retire ce que j'ai dit : quand on fait les choses proprement, on peut avoir un résultat
fiable,
même à travers un "pont" réseau ;-))

Essaye la fonction suivante
(Attention : lorsque connexion internet fermée, le code met quelques secondes avant de dire
qu'il n'a pas pû ouvrir l'URL) :

Option Compare Database
Option Explicit

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

Private Declare Function InternetOpenUrl Lib "wininet.dll" _
Alias "InternetOpenUrlA" _
(ByVal hInet As Long, _
ByVal lpszUrl As String, _
ByVal lpszHeaders As String, _
ByVal dwHeadersLength As Long, _
ByVal dwFlags As Long, _
ByVal dwContext As Long) As Long

Private Declare Function InternetCloseHandle Lib "wininet.dll" _
(ByVal hInet As Long) As Long

Private Const INTERNET_OPEN_TYPE_PRECONFIG As Long = 0
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000
Private Const INTERNET_FLAG_KEEP_CONNECTION As Long = &H400000
Private Const INTERNET_FLAG_NO_CACHE_WRITE As Long = &H4000000

Function fOnLine() As Boolean

Dim hInet As Long
Dim hUrl As Long
Dim Flags As Long

hInet = InternetOpen("Test", INTERNET_OPEN_TYPE_PRECONFIG, _
vbNullString, vbNullString, 0&)

If hInet Then
Flags = INTERNET_FLAG_KEEP_CONNECTION Or _
INTERNET_FLAG_NO_CACHE_WRITE Or _
INTERNET_FLAG_RELOAD
hUrl = InternetOpenUrl(hInet, "http://www.microsoft.com", vbNullString, 0&, Flags, 0&)
If hUrl Then
fOnLine = True
Call InternetCloseHandle(hUrl)
Else
fOnLine = False
End If
End If
Call InternetCloseHandle(hInet)
End Function

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------