[..] Automatisation avec kaspersky

[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.

@+

[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..)

[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 !!!

[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.

@+

[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.

[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
 

[Tlem]

N'ayant pas Kaspersky PURE, je ne vais pas pouvoir tester pour vous.
Peut être que d'autres membres ...

[mikell]

Ben moi non plus...
mais faudrait essayer avant le send un WinWaitActive("Kaspersky PURE", "") ou un WinActivate("Kaspersky PURE", "")

[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

[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.


@+

[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! ( [...] )

[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 ?

[mikell]

Pourquoi ne pas essayer sur l'icone Kaspersky dans le systray (clic droit + désactiver) ?

[rudyl]

Car cela n'était qu'un exemple je souhaite faire d'autre chose que déactiver.