Votre PC est-il connecté à INTERNET ?

Code:

rem ============================================================================
rem              Votre PC est-il connecté à INTERNET ?
rem ============================================================================
InternetGetConnectedState()
end
rem ============================================================================
SUB InternetGetConnectedState()
    dim_local connecte
    dll_on "wininet"
    connecte = dll_call2("InternetGetConnectedState",0,0)
    select connecte
        case 0 : message "Votre PC n'est pas connecté à INTERNET"
        case 1 : message "Votre PC est connecté à INTERNET"
    end_select
END_SUB
rem ============================================================================

Encore une astuce qui a son utilité !
Tu devrais faire une compile de toutes tes astuces Papydall comme le fais Klaus avec KGF.

Testé avec succès sur mon PC en Wifi sous Windows 7 Pro 64 bits

Merci !

Merci à vous deux pour avoir testé.

Ben... j'ai testé aussi, effectivement ça marche, mais je connaissais la réponse à l'avance: "Vous êtes connecté".

L'intérêt serait plutôt de pouvoir se déconnecter pendant qu'on programme (par exemple) et se reconnecter quand on le souhaite.

Sous W10, c'est facile, il suffit de cliquer sur l'icone "accès internet", représenté par le symbole wifi, et ensuite de sélectionner sa boxe et là un bouton apparaît pour choisir entre se déconnecter ou se connecter.

Sous W7 je ne sais pas, mais ça doit être possible.

Bref ! ce qui serait intéressant, ce sont les commandes qui permettent de se connecter ou se déconnecter à volonté, et se faire un petit prog Panoramic avec ses commandes de la dll.

Il faut que tu ailles plus loin Papydall, tu as ouvert la boite de Pandore...

A+