[R] Vérifier la connection internet dans un script

[touslesmatins]

Bonjour,

Pour securiser un script j'ai besoin de vérifier tout au long du script que la connection internet fonctionne pendant la duree du script. Et de stopper le script si la connection est perdue.

Merci bonne soirée.

[jbnh]

Salut,

Avec la fonction Ping, tu peux checker si ton internet est toujours active. Par exemple tu ping google, un site qui ne plante jamais, et tu vois si tu as un retour :

http://www.autoitscript.com/autoit3/doc ... s/Ping.htm

[touslesmatins]

Merci, mais cela fonctionne pas comme je souhaite/
En fait, c'est comment faire pour integrer une verification tout au long d un script et à toutes les etapes.

bonne soiree.

[jbnh]

Ca dépend de la manière dont est agencé votre script... Y'a des conditions ? des boucles ? ou simplement des successions de séquences ?

[Tlem]

AdlibEnable, une fonction de test et si pas de connexion => Exit.

[jbnh]

Sympa, je connaissais pas. Mais à mon avis le problème de le placer pour touslesmatins sera toujours le même, on verra bien demain

[touslesmatins]

Bonsoir,
On ferme.
Merci.

[touslesmatins]

Re bonsoir,
Pour ceux que ca interesse j'ai trouvé ce script tres interessant qui indique si vous etes connecté.
Autant que cela serve à d'autre.
Mes paupieres faiblissent.
Bonne nuit.

► Afficher le texte

Code : Tout sélectionner

;check $ret[0] for trueness, and $ret[1] for type of connection according to variables provided..
;-------------------------------------------------------------------------------------------

$INTERNET_CONNECTION_MODEM          = 0x1
$INTERNET_CONNECTION_LAN            = 0x2
$INTERNET_CONNECTION_PROXY          = 0x4
$INTERNET_CONNECTION_MODEM_BUSY     = 0x8
$INTERNET_RAS_INSTALLED             = 0x10
$INTERNET_CONNECTION_OFFLINE        = 0x20
$INTERNET_CONNECTION_CONFIGURED     = 0x40

$ret = DllCall("WinInet.dll","int","InternetGetConnectedState","int_ptr",0,"int",0)

If $ret[0] then
    ;check type of connection
    $sX = "Connected !" & @LF & "------------------" & @LF
    If BitAND($ret[1], $INTERNET_CONNECTION_MODEM) Then $sX = $sX & "MODEM" & @LF
    If BitAND($ret[1], $INTERNET_CONNECTION_LAN) Then $sX = $sX & "LAN" & @LF
    If BitAND($ret[1], $INTERNET_CONNECTION_PROXY) Then $sX = $sX & "PROXY" & @LF
    If BitAND($ret[1], $INTERNET_CONNECTION_MODEM_BUSY) Then $sX = $sX & "MODEM_BUSY" & @LF
    If BitAND($ret[1], $INTERNET_RAS_INSTALLED) Then $sX = $sX & "RAS_INSTALLED" & @LF
    If BitAND($ret[1], $INTERNET_CONNECTION_OFFLINE) Then $sX = $sX & "OFFLINE" & @LF
    If BitAND($ret[1], $INTERNET_CONNECTION_CONFIGURED) Then $sX = $sX & "CONFIGURED" & @LF
Else
    $sX = "Not Connected"
Endif

MsgBox(4096,$ret[0] & ":" & $ret[1],$sX)

[jl56]

Bonjour

Merci pour ce script
mais je viens de le tester avec ma freebox débranché et le résultat est
connected ---------
de même quand elle est branchée

je regarderai de plus pres ce soir

A+ JL56

[touslesmatins]

Bonjour,
AIE....
Désolé, je n'avais pas essayé. Je regarde de mon cote egalement.
Bonnne journée

[touslesmatins]

Bonsoir, me revoilà... avec un autre bout de code dont je me sert et qui fonctionne. Je le mets ici, pour la collectivité...
Je remercie les intervenants et clos pour ma part la question.

► Afficher le texte

Code : Tout sélectionner

Dim $InetActive = Ping("www.google.com")
                    If Not $InetActive > 0 Then
                    MsgBox(4112, "Aucune connection !", "Vérifiez vos connections...",1)
                    WINactivate("")
                    Else
                
                    EndIf

[FernandG]

Bonsoir,

Concrètement, la première réponse à ton post, celle de jbnh était la bonne Ping & Google sont dans ton morceau de code. J'aurais fait de même.

Maintenant l'intervention de Tlem est vraiment pertinente et tu devrais vraiment y porter attention. Ton code modifié dans la fonction du AdlibEnable répond amplement à ta demande :

vérifier tout au long du script que la connection internet fonctionne

En tout cas moi aussi je ne connaissais pas et j'y vois vraiment beaucoup d'intérêt dans quelques scripts.

Bonne soirée.
AutoITement.

[touslesmatins]

YES...
merci