Problème automatisation TV HOST

[Polycop]

Code: [Tout sélectionner] [Déplier/Replier]

;.............INSTALL TEAM VIEWER....................................
TrayTip("Installation Teamviewer","Installation Teamviewer en cours",1000)

ShellExecute("Teamviewer11\TeamViewer_Host_Setup-idcmn2c5k3.exe")
WinWaitActive("Installation de TeamViewer 11 Host","Bienvenue à TeamViewer 11 Host")
   Send("{ENTER}")
   Send("{DOWN}")
   Send("{ENTER}")
   Send("{TAB}")
   Send("{SPACE}")
   Send("{ENTER}")
   Sleep(3000)
WinActive("Accès non surveillé", "Installation accès non surveillé")
Sleep(1000)
;MouseClickDrag("left", 655, 355, @DesktopWidth, @DesktopHeight)
WinWaitActive("Accès non surveillé", "Installation accès non surveillé")
   Send("{ENTER}")
   Send($nomtv)
   Send("{TAB}")
...

GeSHi © Extension Codebox Plus

Bonjour je suis bloquer à l'installation de Teamviewer Host, dès que la fenètre "Accès non surveillé", "Installation accès non surveillé" apparait je suis obliger de cliquer sur celle-ci pour que le script continu. avez vous une idée? j'ai tenter WinActive, WinWaitActive, de faire une simulation de clic mais comme tout les postes n'ont pas les mêmes dimensions bof. Peut être WinActivate? Merci beaucoup d'avance!

[TommyDDR]

Cela peut arriver quand le processus lancé a les droits administrateur alors que votre programme non.
Essayez d'ajouter #RequireAdmin au début de votre script et réessayez.

[Polycop]

J'ai également plein d'autres logiciels avant. Et j'ai bien mis le #RequireAdmin au début

[TommyDDR]

Vous pouvez poster l'impression écran de AutoIt Window Info concernant la fenêtre incriminée ?

[Polycop]

Bien sur je met l'image de la fenêtre ainsi que les info avec Auto-it de celle ci.

[Polycop]

J'ai créer une parti comme ça dans le code pour voir ce qu'il me retourne:

Code: [Tout sélectionner] [Déplier/Replier]

If WinExists("Accès non surveillé", "Installation accès non surveillé") Then
   MsgBox(0,"existe bien","")
   WinActivate("Accès non surveillé", "Installation accès non surveillé")
Else
   MsgBox(0,"existe pas","")
EndIf

GeSHi © Extension Codebox Plus

Et il me retourne donc que la fenêtre n'existe pas..
mais pendant l'installation, je tiens au courant de mon avancement si ça peut aider qqn ou même vous aidez a trouver mon souçis ^^
après quand je clique sur la fenêtre le script se poursuit.

[Polycop]

C'est bon j'ai réussi ^^' je pose au cas ou j'ai créer une boucle que tant que la fenêtre n'est pas activé, elle cherche si elle existe et l'active.

Code: [Tout sélectionner] [Déplier/Replier]

While WinActive("Accès non surveillé","Installation accès non surveillé") == 0
If WinExists("Accès non surveillé", "Installation accès non surveillé") Then
   WinActivate("Accès non surveillé", "Installation accès non surveillé")
EndIf
WEnd

GeSHi © Extension Codebox Plus

[TommyDDR]

WinWait est fait pour ça :

Code: [Tout sélectionner] [Déplier/Replier]

local $hwnd = WinWait("Accès non surveillé","Installation accès non surveillé")
WinActivate($hwnd)

GeSHi © Extension Codebox Plus

Juste par curiosité : pourquoi faire des Send("xxx") au lieu d'utiliser les fonctions ControlClic(), ControlSend(), ControlSetText() etc ?

Essayez le script suivant pour voir la différence (le gros + c'est que vous pouvez utiliser votre ordinateur en même temps, pas besoin d'avoir le focus sur la fenêtre) :

Code: [Tout sélectionner] [Déplier/Replier]

Send("#r")

Local $hwnd = WinWait("Exécuter")
Sleep(1000)
ControlSetText($hwnd, "", "[CLASS:Button; INSTANCE:2]", "Valider")
Sleep(1000)
ControlSetText($hwnd, "", "[CLASS:Button; INSTANCE:3]", "Retour")
Sleep(1000)
ControlDisable($hwnd, "", "[CLASS:Button; INSTANCE:4]")
ControlSetText($hwnd, "", "[CLASS:Button; INSTANCE:4]", "(Désactivé)")
Sleep(1000)
Local $pos = ControlGetPos($hwnd, "", "[CLASS:Button; INSTANCE:2]")
For $i = $pos[0] To 10 Step -1
   ControlMove($hwnd, "", "[CLASS:Button; INSTANCE:2]", $i, Default)
   Sleep(10)
Next
Sleep(1000)
ControlSetText($hwnd, "", "[CLASS:Edit; INSTANCE:1]", "calc")
Sleep(1000)
ControlClick($hwnd, "", "[CLASS:Button; INSTANCE:2]")

GeSHi © Extension Codebox Plus

[orax]

Juste par curiosité : pourquoi faire des Send("xxx") au lieu de faire une installation silencieuse ?
TeamViewer_Host_Setup.exe /S