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
JLK
Salut,
Faites un tour ici http://www.vbfrance.com/forum.v2.aspx?IDF589#46589 et là http://www.vbfrance.com/code.aspx?ID181
JLK "J-Marc" a écrit dans le message de news: 24f501c427dd$cfa88500$ Est-ce qu'il existe une API permettant de savoir si l'ordinateur est oui ou non connecté à internet ?
Merci
Salut,
Faites un tour ici
http://www.vbfrance.com/forum.v2.aspx?IDF589#46589
et là
http://www.vbfrance.com/code.aspx?ID181
JLK
"J-Marc" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 24f501c427dd$cfa88500$a601280a@phx.gbl...
Est-ce qu'il existe une API permettant de savoir si
l'ordinateur est oui ou non connecté à internet ?
Faites un tour ici http://www.vbfrance.com/forum.v2.aspx?IDF589#46589 et là http://www.vbfrance.com/code.aspx?ID181
JLK "J-Marc" a écrit dans le message de news: 24f501c427dd$cfa88500$ Est-ce qu'il existe une API permettant de savoir si l'ordinateur est oui ou non connecté à internet ?
Merci
ng
Salut,
(Je n'ai pas regardé le code proposé par JLK (prob avec mon proxy HTTP :/) donc dsl pour un éventuel doublon)
On pourrait procéder par un ping mais le code est long, bien que cela soit plus sûr car certaines méthodes ne fonctionnent pas forcément dans la mesure où on a pas tjrs un modem/routeur adsl sur le pc, l'utilisateur pourrait très bien avoir une connexion LAN par exemple.
Je te propose donc le code suivant (le seule problème (si c'en est un) est qu'il faut que la personne ait une connexion http, le ping lui reste plus "général". Ce code fonctionne pour tout type de connexion à l'internet) :
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Sub Form_Load() MsgBox IsConnected End Sub
Public Function IsConnected(Optional ByVal strTestSite As String "http://www.yahoo.fr/") As Boolean IsConnected (InternetCheckConnection(strTestSite,FLAG_ICC_FORCE_CONNECTION, 0&) <> 0) End Function
-- 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/ http://apisvb.europe.webmatrixhosting.net/
J-Marc a écrit :
Est-ce qu'il existe une API permettant de savoir si l'ordinateur est oui ou non connecté à internet ?
Merci
Salut,
(Je n'ai pas regardé le code proposé par JLK (prob avec mon proxy HTTP :/)
donc dsl pour un éventuel doublon)
On pourrait procéder par un ping mais le code est long, bien que cela soit
plus sûr car certaines méthodes ne fonctionnent pas forcément dans la mesure
où on a pas tjrs un modem/routeur adsl sur le pc, l'utilisateur pourrait
très bien avoir une connexion LAN par exemple.
Je te propose donc le code suivant (le seule problème (si c'en est un) est
qu'il faut que la personne ait une connexion http, le ping lui reste plus
"général". Ce code fonctionne pour tout type de connexion à l'internet) :
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias
"InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long,
ByVal dwReserved As Long) As Long
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Sub Form_Load()
MsgBox IsConnected
End Sub
Public Function IsConnected(Optional ByVal strTestSite As String "http://www.yahoo.fr/") As Boolean
IsConnected (InternetCheckConnection(strTestSite,FLAG_ICC_FORCE_CONNECTION, 0&) <> 0)
End Function
--
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/
http://apisvb.europe.webmatrixhosting.net/
J-Marc <anonymous@discussions.microsoft.com> a écrit :
Est-ce qu'il existe une API permettant de savoir si
l'ordinateur est oui ou non connecté à internet ?
(Je n'ai pas regardé le code proposé par JLK (prob avec mon proxy HTTP :/) donc dsl pour un éventuel doublon)
On pourrait procéder par un ping mais le code est long, bien que cela soit plus sûr car certaines méthodes ne fonctionnent pas forcément dans la mesure où on a pas tjrs un modem/routeur adsl sur le pc, l'utilisateur pourrait très bien avoir une connexion LAN par exemple.
Je te propose donc le code suivant (le seule problème (si c'en est un) est qu'il faut que la personne ait une connexion http, le ping lui reste plus "général". Ce code fonctionne pour tout type de connexion à l'internet) :
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Sub Form_Load() MsgBox IsConnected End Sub
Public Function IsConnected(Optional ByVal strTestSite As String "http://www.yahoo.fr/") As Boolean IsConnected (InternetCheckConnection(strTestSite,FLAG_ICC_FORCE_CONNECTION, 0&) <> 0) End Function
-- 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/ http://apisvb.europe.webmatrixhosting.net/
J-Marc a écrit :
Est-ce qu'il existe une API permettant de savoir si l'ordinateur est oui ou non connecté à internet ?
Merci
JLK
Méthode très sûre en effet.
JLK "ng" a écrit dans le message de news:
Salut,
(Je n'ai pas regardé le code proposé par JLK (prob avec mon proxy HTTP :/) donc dsl pour un éventuel doublon)
On pourrait procéder par un ping mais le code est long, bien que cela soit plus sûr car certaines méthodes ne fonctionnent pas forcément dans la
mesure
où on a pas tjrs un modem/routeur adsl sur le pc, l'utilisateur pourrait très bien avoir une connexion LAN par exemple.
Je te propose donc le code suivant (le seule problème (si c'en est un) est qu'il faut que la personne ait une connexion http, le ping lui reste plus "général". Ce code fonctionne pour tout type de connexion à l'internet) :
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As
Long,
ByVal dwReserved As Long) As Long Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Sub Form_Load() MsgBox IsConnected End Sub
Public Function IsConnected(Optional ByVal strTestSite As String > "http://www.yahoo.fr/") As Boolean IsConnected > (InternetCheckConnection(strTestSite,FLAG_ICC_FORCE_CONNECTION, 0&) <> 0) End Function
-- 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/ http://apisvb.europe.webmatrixhosting.net/
J-Marc a écrit :
> Est-ce qu'il existe une API permettant de savoir si > l'ordinateur est oui ou non connecté à internet ? > > Merci
Méthode très sûre en effet.
JLK
"ng" <ng@babeuk.net> a écrit dans le message de news:
eOiLQfIKEHA.628@TK2MSFTNGP11.phx.gbl...
Salut,
(Je n'ai pas regardé le code proposé par JLK (prob avec mon proxy HTTP :/)
donc dsl pour un éventuel doublon)
On pourrait procéder par un ping mais le code est long, bien que cela soit
plus sûr car certaines méthodes ne fonctionnent pas forcément dans la
mesure
où on a pas tjrs un modem/routeur adsl sur le pc, l'utilisateur pourrait
très bien avoir une connexion LAN par exemple.
Je te propose donc le code suivant (le seule problème (si c'en est un) est
qu'il faut que la personne ait une connexion http, le ping lui reste plus
"général". Ce code fonctionne pour tout type de connexion à l'internet) :
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias
"InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As
Long,
ByVal dwReserved As Long) As Long
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Sub Form_Load()
MsgBox IsConnected
End Sub
Public Function IsConnected(Optional ByVal strTestSite As String > "http://www.yahoo.fr/") As Boolean
IsConnected > (InternetCheckConnection(strTestSite,FLAG_ICC_FORCE_CONNECTION, 0&) <> 0)
End Function
--
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/
http://apisvb.europe.webmatrixhosting.net/
J-Marc <anonymous@discussions.microsoft.com> a écrit :
> Est-ce qu'il existe une API permettant de savoir si
> l'ordinateur est oui ou non connecté à internet ?
>
> Merci
(Je n'ai pas regardé le code proposé par JLK (prob avec mon proxy HTTP :/) donc dsl pour un éventuel doublon)
On pourrait procéder par un ping mais le code est long, bien que cela soit plus sûr car certaines méthodes ne fonctionnent pas forcément dans la
mesure
où on a pas tjrs un modem/routeur adsl sur le pc, l'utilisateur pourrait très bien avoir une connexion LAN par exemple.
Je te propose donc le code suivant (le seule problème (si c'en est un) est qu'il faut que la personne ait une connexion http, le ping lui reste plus "général". Ce code fonctionne pour tout type de connexion à l'internet) :
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As
Long,
ByVal dwReserved As Long) As Long Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Sub Form_Load() MsgBox IsConnected End Sub
Public Function IsConnected(Optional ByVal strTestSite As String > "http://www.yahoo.fr/") As Boolean IsConnected > (InternetCheckConnection(strTestSite,FLAG_ICC_FORCE_CONNECTION, 0&) <> 0) End Function
-- 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/ http://apisvb.europe.webmatrixhosting.net/
J-Marc a écrit :
> Est-ce qu'il existe une API permettant de savoir si > l'ordinateur est oui ou non connecté à internet ? > > Merci
Roudoudou
"ng" avait prétendu :
Salut,
(Je n'ai pas regardé le code proposé par JLK (prob avec mon proxy HTTP :/) donc dsl pour un éventuel doublon)
On pourrait procéder par un ping mais le code est long, bien que cela soit plus sûr car certaines méthodes ne fonctionnent pas forcément dans la mesure où on a pas tjrs un modem/routeur adsl sur le pc, l'utilisateur pourrait très bien avoir une connexion LAN par exemple.
Je te propose donc le code suivant (le seule problème (si c'en est un) est qu'il faut que la personne ait une connexion http, le ping lui reste plus "général". Ce code fonctionne pour tout type de connexion à l'internet) :
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Sub Form_Load() MsgBox IsConnected End Sub
Public Function IsConnected(Optional ByVal strTestSite As String > "http://www.yahoo.fr/") As Boolean IsConnected > (InternetCheckConnection(strTestSite,FLAG_ICC_FORCE_CONNECTION, 0&) <> 0) End Function
Bonjour
Sauf que derrière un routeur qui filtre les paquets ICMP Ping ne passe pas.... mais on peut surfer quand même...
"ng" avait prétendu :
Salut,
(Je n'ai pas regardé le code proposé par JLK (prob avec mon proxy HTTP :/)
donc dsl pour un éventuel doublon)
On pourrait procéder par un ping mais le code est long, bien que cela soit
plus sûr car certaines méthodes ne fonctionnent pas forcément dans la mesure
où on a pas tjrs un modem/routeur adsl sur le pc, l'utilisateur pourrait
très bien avoir une connexion LAN par exemple.
Je te propose donc le code suivant (le seule problème (si c'en est un) est
qu'il faut que la personne ait une connexion http, le ping lui reste plus
"général". Ce code fonctionne pour tout type de connexion à l'internet) :
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias
"InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long,
ByVal dwReserved As Long) As Long
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Sub Form_Load()
MsgBox IsConnected
End Sub
Public Function IsConnected(Optional ByVal strTestSite As String > "http://www.yahoo.fr/") As Boolean
IsConnected > (InternetCheckConnection(strTestSite,FLAG_ICC_FORCE_CONNECTION, 0&) <> 0)
End Function
Bonjour
Sauf que derrière un routeur qui filtre les paquets ICMP Ping ne passe
pas.... mais on peut surfer quand même...
(Je n'ai pas regardé le code proposé par JLK (prob avec mon proxy HTTP :/) donc dsl pour un éventuel doublon)
On pourrait procéder par un ping mais le code est long, bien que cela soit plus sûr car certaines méthodes ne fonctionnent pas forcément dans la mesure où on a pas tjrs un modem/routeur adsl sur le pc, l'utilisateur pourrait très bien avoir une connexion LAN par exemple.
Je te propose donc le code suivant (le seule problème (si c'en est un) est qu'il faut que la personne ait une connexion http, le ping lui reste plus "général". Ce code fonctionne pour tout type de connexion à l'internet) :
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Sub Form_Load() MsgBox IsConnected End Sub
Public Function IsConnected(Optional ByVal strTestSite As String > "http://www.yahoo.fr/") As Boolean IsConnected > (InternetCheckConnection(strTestSite,FLAG_ICC_FORCE_CONNECTION, 0&) <> 0) End Function
Bonjour
Sauf que derrière un routeur qui filtre les paquets ICMP Ping ne passe pas.... mais on peut surfer quand même...
ng
Salut,
Cela est vrai. Mais le code que j'ai posté fonctionnerai cependant.
-- 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/ http://apisvb.europe.webmatrixhosting.net/
Roudoudou a écrit :
"ng" avait prétendu :
Salut,
(Je n'ai pas regardé le code proposé par JLK (prob avec mon proxy HTTP :/) donc dsl pour un éventuel doublon)
On pourrait procéder par un ping mais le code est long, bien que cela soit plus sûr car certaines méthodes ne fonctionnent pas forcément dans la mesure où on a pas tjrs un modem/routeur adsl sur le pc, l'utilisateur pourrait très bien avoir une connexion LAN par exemple.
Je te propose donc le code suivant (le seule problème (si c'en est un) est qu'il faut que la personne ait une connexion http, le ping lui reste plus "général". Ce code fonctionne pour tout type de connexion à l'internet) :
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Sub Form_Load() MsgBox IsConnected End Sub
Public Function IsConnected(Optional ByVal strTestSite As String >> "http://www.yahoo.fr/") As Boolean IsConnected >> (InternetCheckConnection(strTestSite,FLAG_ICC_FORCE_CONNECTION, 0&) <> 0) End Function
Bonjour
Sauf que derrière un routeur qui filtre les paquets ICMP Ping ne passe pas.... mais on peut surfer quand même...
Salut,
Cela est vrai. Mais le code que j'ai posté fonctionnerai cependant.
--
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/
http://apisvb.europe.webmatrixhosting.net/
Roudoudou <Roudoudou@NullePart.Com> a écrit :
"ng" avait prétendu :
Salut,
(Je n'ai pas regardé le code proposé par JLK (prob avec mon proxy
HTTP :/) donc dsl pour un éventuel doublon)
On pourrait procéder par un ping mais le code est long, bien que
cela soit plus sûr car certaines méthodes ne fonctionnent pas
forcément dans la mesure où on a pas tjrs un modem/routeur adsl sur
le pc, l'utilisateur pourrait très bien avoir une connexion LAN par
exemple.
Je te propose donc le code suivant (le seule problème (si c'en est
un) est qu'il faut que la personne ait une connexion http, le ping
lui reste plus "général". Ce code fonctionne pour tout type de
connexion à l'internet) :
Private Declare Function InternetCheckConnection Lib "wininet.dll"
Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal
dwFlags As Long, ByVal dwReserved As Long) As Long
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Sub Form_Load()
MsgBox IsConnected
End Sub
Public Function IsConnected(Optional ByVal strTestSite As String >> "http://www.yahoo.fr/") As Boolean
IsConnected >> (InternetCheckConnection(strTestSite,FLAG_ICC_FORCE_CONNECTION, 0&)
<> 0) End Function
Bonjour
Sauf que derrière un routeur qui filtre les paquets ICMP Ping ne passe
pas.... mais on peut surfer quand même...
Cela est vrai. Mais le code que j'ai posté fonctionnerai cependant.
-- 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/ http://apisvb.europe.webmatrixhosting.net/
Roudoudou a écrit :
"ng" avait prétendu :
Salut,
(Je n'ai pas regardé le code proposé par JLK (prob avec mon proxy HTTP :/) donc dsl pour un éventuel doublon)
On pourrait procéder par un ping mais le code est long, bien que cela soit plus sûr car certaines méthodes ne fonctionnent pas forcément dans la mesure où on a pas tjrs un modem/routeur adsl sur le pc, l'utilisateur pourrait très bien avoir une connexion LAN par exemple.
Je te propose donc le code suivant (le seule problème (si c'en est un) est qu'il faut que la personne ait une connexion http, le ping lui reste plus "général". Ce code fonctionne pour tout type de connexion à l'internet) :
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Sub Form_Load() MsgBox IsConnected End Sub
Public Function IsConnected(Optional ByVal strTestSite As String >> "http://www.yahoo.fr/") As Boolean IsConnected >> (InternetCheckConnection(strTestSite,FLAG_ICC_FORCE_CONNECTION, 0&) <> 0) End Function
Bonjour
Sauf que derrière un routeur qui filtre les paquets ICMP Ping ne passe pas.... mais on peut surfer quand même...
ng
fonctionnerait*
étant donné qu'il ne se abse pas sur un ping.
-- 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/ http://apisvb.europe.webmatrixhosting.net/
ng a écrit :
Salut,
Cela est vrai. Mais le code que j'ai posté fonctionnerai cependant.
"ng" avait prétendu :
Salut,
(Je n'ai pas regardé le code proposé par JLK (prob avec mon proxy HTTP :/) donc dsl pour un éventuel doublon)
On pourrait procéder par un ping mais le code est long, bien que cela soit plus sûr car certaines méthodes ne fonctionnent pas forcément dans la mesure où on a pas tjrs un modem/routeur adsl sur le pc, l'utilisateur pourrait très bien avoir une connexion LAN par exemple.
Je te propose donc le code suivant (le seule problème (si c'en est un) est qu'il faut que la personne ait une connexion http, le ping lui reste plus "général". Ce code fonctionne pour tout type de connexion à l'internet) :
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Sub Form_Load() MsgBox IsConnected End Sub
Public Function IsConnected(Optional ByVal strTestSite As String >>> "http://www.yahoo.fr/") As Boolean IsConnected >>> (InternetCheckConnection(strTestSite,FLAG_ICC_FORCE_CONNECTION, 0&) <> 0) End Function
Bonjour
Sauf que derrière un routeur qui filtre les paquets ICMP Ping ne passe pas.... mais on peut surfer quand même...
fonctionnerait*
étant donné qu'il ne se abse pas sur un ping.
--
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/
http://apisvb.europe.webmatrixhosting.net/
ng <ng@babeuk.net> a écrit :
Salut,
Cela est vrai. Mais le code que j'ai posté fonctionnerai cependant.
"ng" avait prétendu :
Salut,
(Je n'ai pas regardé le code proposé par JLK (prob avec mon proxy
HTTP :/) donc dsl pour un éventuel doublon)
On pourrait procéder par un ping mais le code est long, bien que
cela soit plus sûr car certaines méthodes ne fonctionnent pas
forcément dans la mesure où on a pas tjrs un modem/routeur adsl sur
le pc, l'utilisateur pourrait très bien avoir une connexion LAN par
exemple.
Je te propose donc le code suivant (le seule problème (si c'en est
un) est qu'il faut que la personne ait une connexion http, le ping
lui reste plus "général". Ce code fonctionne pour tout type de
connexion à l'internet) :
Private Declare Function InternetCheckConnection Lib "wininet.dll"
Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal
dwFlags As Long, ByVal dwReserved As Long) As Long
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Sub Form_Load()
MsgBox IsConnected
End Sub
Public Function IsConnected(Optional ByVal strTestSite As String >>> "http://www.yahoo.fr/") As Boolean
IsConnected >>> (InternetCheckConnection(strTestSite,FLAG_ICC_FORCE_CONNECTION, 0&)
<> 0) End Function
Bonjour
Sauf que derrière un routeur qui filtre les paquets ICMP Ping ne
passe pas.... mais on peut surfer quand même...
-- 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/ http://apisvb.europe.webmatrixhosting.net/
ng a écrit :
Salut,
Cela est vrai. Mais le code que j'ai posté fonctionnerai cependant.
"ng" avait prétendu :
Salut,
(Je n'ai pas regardé le code proposé par JLK (prob avec mon proxy HTTP :/) donc dsl pour un éventuel doublon)
On pourrait procéder par un ping mais le code est long, bien que cela soit plus sûr car certaines méthodes ne fonctionnent pas forcément dans la mesure où on a pas tjrs un modem/routeur adsl sur le pc, l'utilisateur pourrait très bien avoir une connexion LAN par exemple.
Je te propose donc le code suivant (le seule problème (si c'en est un) est qu'il faut que la personne ait une connexion http, le ping lui reste plus "général". Ce code fonctionne pour tout type de connexion à l'internet) :
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Sub Form_Load() MsgBox IsConnected End Sub
Public Function IsConnected(Optional ByVal strTestSite As String >>> "http://www.yahoo.fr/") As Boolean IsConnected >>> (InternetCheckConnection(strTestSite,FLAG_ICC_FORCE_CONNECTION, 0&) <> 0) End Function
Bonjour
Sauf que derrière un routeur qui filtre les paquets ICMP Ping ne passe pas.... mais on peut surfer quand même...
François Picalausa
Hello,
Y a aussi la fiche de la faq: http://faq.vb.free.fr/index.php?questionw
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"J-Marc" a écrit dans le message de news:24f501c427dd$cfa88500$
Est-ce qu'il existe une API permettant de savoir si l'ordinateur est oui ou non connecté à internet ?
Merci
Hello,
Y a aussi la fiche de la faq:
http://faq.vb.free.fr/index.php?questionw
--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net
"J-Marc" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:24f501c427dd$cfa88500$a601280a@phx.gbl
Est-ce qu'il existe une API permettant de savoir si
l'ordinateur est oui ou non connecté à internet ?