[R] Probleme si pas de connection

#1

ben voilà,c'est trés simple,mais je galere,aprés avoir fait pleins de test en virtuel,je sature..

 ; Installation d'AVG
; Installation d'AVG 
Run ( "setup_AVG.EXE" ) 
Sleep ( 500 ) 
WinWaitActive ( "AVG 7.5 build 503 ( 10/19/2007 ) " , " & Next >" ) 
ControlClick ( "AVG 7.5 build 503 ( 10/19/2007 ) " , "" , " & Next >" ) 
ProgressSet ( 50 , "50 %" , "En Cour d'installation" ) 
WinWaitActive ( "AVG 7.5 build 503 ( 10/19/2007 ) " , " & Accept" ) 
ControlClick ( "AVG 7.5 build 503 ( 10/19/2007 ) " , "" , " & Accept" ) 
WinWaitActive ( "AVG 7.5 build 503 ( 10/19/2007 ) " , " & Standard Installation ( recommended ) " ) 
ControlClick ( "AVG 7.5 build 503 ( 10/19/2007 ) " , "" , " & Standard Installation ( recommended ) " ) 
WinWaitActive ( "AVG 7.5 build 503 ( 10/19/2007 ) " , " & Standard Installation ( recommended ) " ) 
ControlClick ( "AVG 7.5 build 503 ( 10/19/2007 ) " , "" , " & Next >" ) 
ControlClick ( "AVG 7.5 build 503 ( 10/19/2007 ) " , "" , " & Next >" ) 
ControlClick ( "AVG 7.5 build 503 ( 10/19/2007 ) " , "" , " & Next >" ) 
WinWaitActive ( "AVG 7.5 build 503 ( 10/19/2007 ) " , " & Finish" ) 
ControlClick ( "AVG 7.5 build 503 ( 10/19/2007 ) " , "" , " & Finish" ) 
ProgressSet ( 60 , "60 %" , "En Cour d'installation" ) 
WinWaitActive ( "AVG 7.5 build 503 ( 10/19/2007 ) " , " & OK" ) 
ControlClick ( "AVG 7.5 build 503 ( 10/19/2007 ) " , "" , " & OK" ) 
Sleep ( 5000 ) 
WinWaitActive ( "AVG Free - First Run" , "Next & >>" ) 
ControlClick ( "AVG Free - First Run" , "" , "Next & >>" ) 
; Mise a jour si connection OK 
If @InetGetActive = 0 Then 
Sleep ( 5000 ) 
WinWaitActive ( "AVG Free - First Run" , "Check for Updates" ) 
ControlClick ( "AVG Free - First Run" , "" , "Check for Updates" ) 
WinWaitActive ( "Update" , " & Internet" ) 
ControlClick ( "Update" , "" , " & Internet" ) 
WinWaitActive ( "AVG Free Edition Update Selection" , " & Update" ) 
ControlClick ( "AVG Free Edition Update Selection" , "" , " & Update" ) 
EndIf 
WinWaitActive ( "AVG Free - First Run" , "Next & >>" ) 
ControlClick ( "AVG Free - First Run" , "" , "Next & >>" ) 
ProgressSet ( 70 , "70 %" , "En Cour d'installation" ) 
WinWaitActive ( "AVG Free - First Run" , "Low Priority ( recommended ) - slower but less memory usage." ) 
ControlClick ( "AVG Free - First Run" , "" , "Low Priority ( recommended ) - slower but less memory usage." ) 
WinWaitActive ( "AVG Free - First Run" , "Next & >>" ) 
ControlClick ( "AVG Free - First Run" , "" , "Next & >>" ) 
WinWaitActive ( "AVG Free - First Run" , "Next & >>" ) 
ControlClick ( "AVG Free - First Run" , "" , "Next & >>" ) 
WinWaitActive ( "AVG Free - First Run" , "Next & >>" ) 
ControlClick ( "AVG Free - First Run" , "" , "Next & >>" ) 
WinWaitActive ( "AVG Free - First Run" , "Continue..." ) 
ControlClick ( "AVG Free - First Run" , "" , "Continue..." ) 
Sleep ( 500 ) 
ProcessClose ( "avgwb.dat" )

que je sois connecté ou pas,mon @inetgetactive n'a pas l'air de fonctionner (g essayer connecté et pas connecté) ,l'action se continue et forcement comme il ni a pas de connection,g une erreur avec AVG..

Qui aurait une solution au problème?

Merci

#2

plutôt que d'utiliser :

Code : Tout sélectionner

If @InetGetActive = 0 Then 
...
Endif

Vous devriez faire :

Code : Tout sélectionner

$Var = InetGet ( "http://www.mozilla.org" , @TempDir & "\foo.html" ) 
If $Var = 0 Then 
...
EndIf

If @InetGetActive ne changera que si vous êtes en train de télécharger quelque chose depuis votre script !

#3

le avg est-ce une fonction ?

moi je vois deux solution
soit tu fait un ping sur url

Code : Tout sélectionner

$InetActive = Ping("www.google.ca")
If Not $InetActive > 0 Then
MsgBox(0, "Aucune Connection", "le mieux serait de lancer votre connection" & @CRLF & "pour continuer")
Exit
EndIf

soit tu verifie la connection avec la dll y en a deux

,
mais je l'ai met pas, (car ...)

#4

Escusé les amis,je pensé avoir noter résolu,l'aide de Tlem m'a permi de résoudre mon probleme..

Sinon,AVG est un antivirus Gratuit que je trouve assez éfficace pour un gratos.. voilà tout les amis..

#5

autant pour moi
désolé