[..] Problème pour exécuter une tache

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
marionico
Niveau 1
Niveau 1
Messages : 2
Enregistré le : ven. 27 mars 2009 20:49
Status : Hors ligne

[..] Problème pour exécuter une tache

#1

Message par marionico »

Bonjour,

Je suis debutant avec autoit et je rencontre un probleme pour executer une tache (toute simple pour beaucoup)
Je souhaite donc automatiser l'ajout d'une clé de licence avec le l'antivirus kaspersky, mais je rencontre un probleme sous WinXP alors que sous Vista cela fonctionne.

Sous Win Xp quand je demande de rentrer dans "Services" il ne fait rien (autoit en pausse) alors que sous vista cela fonctionne.

voici le script:

Code : Tout sélectionner

; copie de la nouvelle licence sur c:

FileCopy("clekasper.key", "C:\Program Files\Kaspersky Lab",1)

; lancement de la fenetre kaspersky

Run("C:\Program Files\Kaspersky Lab\Kaspersky Anti-Virus 6.0 for Windows Workstations\avp.exe")
WinWaitActive("Kaspersky Anti-Virus 6.0 for Windows Workstations")
ControlClick("Kaspersky Anti-Virus 6.0 for Windows Workstations", "", "[CLASS:AVP.Navigator;INSTANCE:1]")
ControlClick("Kaspersky Anti-Virus 6.0 for Windows Workstations", "", "[CLASS:AVP.GroupBox; INSTANCE:3]")
WinWaitActive("Kaspersky Anti-Virus : informations relatives à la licence")
Send("!a")
WinWaitActive("Assistant de configuration : Kaspersky Anti-Virus")
Send("!p")

WinWaitActive("Sélection de la clé de licence")
;choix du chemin par defaut
ControlClick("Sélection de la clé de licence", "", "[CLASS:Edit; INSTANCE:2]")
Send("C:\Program Files\Kaspersky Lab\clekasper.key")
Send("{ENTER}")
;validation des dernieres fenetres
Send("!s")
Send("!t")
WinWaitActive("Kaspersky Anti-Virus : informations relatives à la licence")
Send("!f")
WinClose("Kaspersky Anti-Virus 6.0 for Windows Workstations")
Autoit v3 Window info donne comme infos quand je suis sur Services:

Code : Tout sélectionner

Class: AVP.Navigator
Instance: 1
ClassnameNN: AVP.Navigator1
Advanced(Class):[CLASS:AVP.Navigator; INSTANCE:1]
ID: (il varie a chaque fois)
...
merci pour vos reponses.
Modifié en dernier par Tlem le dim. 29 mars 2009 19:21, modifié 2 fois.
Raison : Ajout de la balise [..] dans le titre & code
Steph
Niveau 3
Niveau 3
Messages : 38
Enregistré le : sam. 21 févr. 2009 17:53
Status : Hors ligne

Re: [..] probleme pour executer une tache

#2

Message par Steph »

Bonjour,

étant débutant je ne saurais être la meilleure aide... mais testé ce code sur votre xp:

Code : Tout sélectionner

; lancement de la fenetre kaspersky

Run(@ProgramFilesDir & "\Kaspersky Lab\Kaspersky Anti-Virus 6.0 for Windows Workstations\avp.exe")
WinWaitActive("Kaspersky Anti-Virus 6.0 for Windows Workstations")
ControlClick("Kaspersky Anti-Virus 6.0 for Windows Workstations", "", "[CLASS:AVP.Navigator;INSTANCE:1]")
Sleep(100)
ControlClick("Kaspersky Anti-Virus 6.0 for Windows Workstations", "", "[CLASS:AVP.GroupBox; INSTANCE:3]")
WinWaitActive("Kaspersky Anti-Virus : informations relatives à la licence")
Send("!a")
Sleep(100)
WinWaitActive("Assistant de configuration : Kaspersky Anti-Virus")
Send("!p")
Sleep(100)

WinWaitActive("Sélection de la clé de licence")
;choix du chemin par defaut
ControlClick("Sélection de la clé de licence", "", "[CLASS:Edit; INSTANCE:2]")
Sleep(100)
Send(@ProgramFilesDir & "\Program Files\Kaspersky Lab\clekasper.key")
Sleep(100)
Send("{ENTER}")
Sleep(100)
;validation des dernieres fenetres
Send("!s")
Sleep(100)
Send("!t")
Sleep(100)
WinWaitActive("Kaspersky Anti-Virus : informations relatives à la licence")
Send("!f")
Sleep(100)
WinClose("Kaspersky Anti-Virus 6.0 for Windows Workstations")
marionico
Niveau 1
Niveau 1
Messages : 2
Enregistré le : ven. 27 mars 2009 20:49
Status : Hors ligne

Re: [..] probleme pour executer une tache

#3

Message par marionico »

Merci pour cette réponse.
malheureusement le script ne change rien.
en faites le problème intervient juste après le départ. la fenêtre Kaspersky se lance et ensuite impossible d'ouvrir les suivantes.
Fichiers joints
licence-kasper.JPG
Répondre