Savoir si connecté au net qui marche dans 200% des cas en 9 lignes

Commenter

Contenu du snippet

pour cette source, il suffit de mettre dans les composants le microsoft internet controls

Source / Exemple : 


Private Sub Form_Load()
Web1.Navigate "http://google.fr"
End Sub
Private Sub Web1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
MsgBox "connecté"
End Sub
Private Sub Web1_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
MsgBox "non connecté"
End Sub

Conclusion :


certains vont trouver cette source minable, mais son avantage, c'est qu'elle fonctionne tout le temps, même si elle utilise une dll

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (pepekiss)