Page 1 sur 1

[R] Probleme si pas de connection

Posté : lun. 29 oct. 2007 07:11
par Vins83
ben voilà,c'est trés simple,mais je galere,aprés avoir fait pleins de test en virtuel,je sature..

Code : Tout sélectionner

 ; 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

Posté : lun. 29 oct. 2007 08:02
par Tlem
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 !

Posté : dim. 04 nov. 2007 14:20
par ani
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 :o,
mais je l'ai met pas, (car ...)

Posté : dim. 04 nov. 2007 15:14
par Vins83
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..

Posté : dim. 04 nov. 2007 16:56
par ani
autant pour moi
désolé