Page 1 sur 1
[..] Automatisation avec kaspersky
Posté : mar. 10 janv. 2012 13:48
par rudyl
Bonjour,
Tout d'abord merci pour ce formum.
Voilà je souhaite réaliser une automatisation avec le logiciel Kaspersky PURE. Cependant lorsque je souhaite acquérir les attrbibus ... avec AutoitInfo ou avec l'utilitaire de macro automatique.
Cependant cela ne fonctionne on dirait que kaspersky bloque ou protège mes paramètres de son application (Attribu, nom de bouton, instance...).
Je souhaite par exemple automatiser l'activation/désactivation du logiciel ... Mais malheureusement impossible.
Merci par avance de vote aide.
Dans l'attente de vous lire.
@+
Re: [...] Automatisation avec kaspersky
Posté : mar. 10 janv. 2012 14:05
par mikell
Si la fenêtre te résiste, regarde s'il y a des commandes clavier
Sinon tu peux travailler le menu de l'icone dans le systray (pas mal ça..)
Re: [...] Automatisation avec kaspersky
Posté : mar. 10 janv. 2012 14:13
par Tlem
Effectivement, certaines interfaces ne sont pas accessibles aux outils de capture tel que AutoIt Windows Info.
Dans un cas comme le votre, il reste la solution des raccourcis clavier.
Il faut voir aussi, si certaines combinaisons de touches ou raccourcis programmés directement depuis le logiciel peuvent être utilisés.
Edit : J'avais oublié de cliquer sur Envoyer !!!
Re: [...] Automatisation avec kaspersky
Posté : mar. 10 janv. 2012 14:20
par rudyl
Merci pour vos réponses.
Cependant il n'y pas pas vraiment de raccourcis clavier pour tous. Par contre la tabulation fonctionne, cela peut-il marcher ? Si oui comment procéde t-on pour la programmation via la tabulation.
@+
Re: [...] Automatisation avec kaspersky
Posté : mar. 10 janv. 2012 14:31
par Tlem
La tabulation fait partie des actions qui peuvent être faites par clavier, donc c'est la même chose que les raccourcis claviers.
En fait, chaque touche du clavier peut être simulée par l'utilisation de la commande
Send.
Je vous recommande vivement la consultation de l'aide pour voir et comprendre l'utilisation de celle-ci.
Re: [...] Automatisation avec kaspersky
Posté : mar. 10 janv. 2012 14:49
par rudyl
Merci pour cette réponse.
Voici un exemple que j'ai réalisé mais même cela ne semble pas fonctionner la tabulation ne semble pas s'executer.
Voici mon code :
Code : Tout sélectionner
; On attend l'affichage de la fenêtre Kaspersky
WinWait("Kaspersky PURE","WorkArea")
; Si la fenêtre existe alors on execute le script
if WinExists("Kaspersky PURE","WorkArea") then
Send("{TAB}")
EndIf
Re: [...] Automatisation avec kaspersky
Posté : mar. 10 janv. 2012 20:01
par Tlem
N'ayant pas Kaspersky PURE, je ne vais pas pouvoir tester pour vous.
Peut être que d'autres membres ...
Re: [...] Automatisation avec kaspersky
Posté : mar. 10 janv. 2012 20:09
par mikell
Ben moi non plus...
mais faudrait essayer avant le send un WinWaitActive("Kaspersky PURE", "") ou un WinActivate("Kaspersky PURE", "")
Re: [...] Automatisation avec kaspersky
Posté : mar. 10 janv. 2012 21:01
par cutprod
Bonjour, j'ai eu ce genre de problème avec "send" , en fait si tu utilise "WinExists" il faut que tu l'associe à la "condition" que cette même fenêtre soit active, car la commande "send" s'exécute trop tot!
J'utilise cette fonction =
Code : Tout sélectionner
Func titre_fenetre()
Local $fenetre = WinList()
For $i = 1 to $fenetre[0][0]
If $fenetre[$i][0] <> "" AND BitAnd(WinGetState($fenetre[$i][1]), 2) _
And BitAnd(WinGetState($fenetre[$i][1]), 8) Then $titre_f = $fenetre[$i][0]
Next
ToolTip($titre_f, $x, $y,"Fenêtre active =",1,4)
EndFunc
Re: [...] Automatisation avec kaspersky
Posté : mar. 10 janv. 2012 22:29
par rudyl
Malheureusement cela ne fonctionne toujours pas !
Voici le code que je viens de réaliser
Code : Tout sélectionner
; Début du script - Ajouter votre code ci-dessous.
; On attend l'affichage de la fenêtre Kaspersky
;WinWait("Kaspersky PURE","WorkArea")
; Si la fenêtre existe alors on execute le script
;if WinExists("Kaspersky PURE","WorkArea") then
WinActivate("Kaspersky PURE", "")
WinWaitActive("Kaspersky PURE", "")
Send("{TAB}")
WinActivate("Kaspersky PURE", "")
WinWaitActive("Kaspersky PURE", "")
Send("{TAB}")
WinActivate("Kaspersky PURE", "")
send("{ENTER}")
Exit
;EndIf
Merci
cutprod pour ta fonction mais je vois pas trop comment l'utiliser dans mon cas.
@+
Re: [...] Automatisation avec kaspersky
Posté : mar. 10 janv. 2012 23:35
par cutprod
Tu rentre dans une boucle pour attendre que ta fenêtre existe et soit active et seulement a cette condition tu en sort et effectue l'action approprier =
► Afficher le texte
While 1
Local $fenetre = WinList()
For $i = 1 to $fenetre[0][0]
If $fenetre[$i][0] <> "" AND BitAnd(WinGetState($fenetre[$i][1]), 2) _
And BitAnd(WinGetState($fenetre[$i][1]), 8 ) Then $titre_f = $fenetre[$i][0]
Next
if $titre_f = "Kaspersky PURE" Then
ExitLoop
Else
EndIf
Sleep(20)
WEnd
Send("{TAB}"); ici appel une fonction ou effectue une autre action ...
Et enlève un point dans la balise de ton titre! ( [...] )
Re: [..] Automatisation avec kaspersky
Posté : ven. 13 janv. 2012 09:02
par rudyl
Viens d'essayer avec cette methode mais malheureusement cela ne fonctionne pas non plus.
Je vois vraiement pas comment je peux arriver à faire ce que je désire.
Pourtant la fonction send pour faire un TAB cela doit fonctionner ?
Re: [..] Automatisation avec kaspersky
Posté : sam. 14 janv. 2012 10:40
par mikell
Pourquoi ne pas essayer sur l'icone Kaspersky dans le systray (clic droit + désactiver) ?
Re: [..] Automatisation avec kaspersky
Posté : dim. 15 janv. 2012 21:57
par rudyl
Car cela n'était qu'un exemple je souhaite faire d'autre chose que déactiver.