Salut,
Personellement, j'utilise un contrôle inet et la function suivante :
Function Acces_Internet() As String
Dim ret
Form1.Inet1.AccessType = icUseDefault
Form1.Inet1.OpenURL "http://www.microsoft.fr"
ret = Form1.Inet1.GetHeader("Server")
Form1.Inet1.Cancel
If InStr(1, ret, "Microsoft", 1) Then
Acces_Internet = "OK"
Else
Acces_Internet = "KO"
End If
End Function
Le contrôle, tu l'as en sélectionnant Microsoft Internet Transfert Controls dans Projet\Composants.
J'utilise cette méthode (lire le header) car dans ma boite, c la seule permet de distinguer entre les PC connectés au Web et ceux qui sont simplement sur le LAN interne.
Elle a l'avantage de fonctionner dans tous les cas que je connais.
J'ai choisi "www.microsoft.fr" car c'est une adresse qui a des chance de durer un moment mais tu peux prendre une autre adresse si elle est stable et accessible rapidement.
Cordialement
CanisLupus
|