zver5
07-11-2009, 11:49
Сссылка на программу
http://www.teamviewer.com/download/TeamViewer_Setup.exe
имеем следующее:
последнее окно с finish не закрывается что можно тут сделать и как?
http://keep4u.ru/imgs/s/2009/11/07/5f/5f1d580e347159a5bccfe2db77185731.jpg (http://keep4u.ru/full/2009/11/07/5f1d580e347159a5bccfe2db77185731/jpg)
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
AutoItSetOption("TrayIconDebug",1)
BlockInput(1)
Run("TeamViewer_Setup.exe")
WinWaitActive("TeamViewer 4 Setup","Welcome to TeamViewer")
ControlClick("TeamViewer 4 Setup","Welcome to TeamViewer","Button4")
Sleep(500)
ControlClick("TeamViewer 4 Setup","Welcome to TeamViewer","Button2")
WinWaitActive("TeamViewer 4 Setup","Environment")
ControlClick("TeamViewer 4 Setup","Environment","Button4")
Sleep(500)
ControlClick("TeamViewer 4 Setup","Environment","Button2")
WinWaitActive("TeamViewer 4 Setup","License Agreement")
ControlClick("TeamViewer 4 Setup","License Agreement","Button4")
Sleep(500)
ControlClick("TeamViewer 4 Setup","License Agreement","Button5")
Sleep(500)
ControlClick("TeamViewer 4 Setup","License Agreement","Button2")
WinWaitActive("TeamViewer 4 Setup","Choose installation type")
ControlClick("TeamViewer 4 Setup","Choose installation type","Button5")
Sleep(500)
ControlClick("TeamViewer 4 Setup","Choose installation type","Button2")
WinWaitActive("TeamViewer 4 Setup","Access Control")
ControlClick("TeamViewer 4 Setup","Access Control","Button4")
Sleep(500)
ControlClick("TeamViewer 4 Setup","Access Control","Button2")
WinWaitActive("TeamViewer 4 Setup","Install VPN adapter")
ControlClick("TeamViewer 4 Setup","Install VPN adapter","Button4")
Sleep(500)
ControlClick("TeamViewer 4 Setup","Install VPN adapter","Button2")
WinWaitActive("TeamViewer 4 Setup","Completing the TeamViewer 4 Setup Wizard")
ControlClick("TeamViewer 4 Setup","Completing the TeamViewer 4 Setup Wizard","Button2")
BlockInput(0)
ExitIf
http://www.teamviewer.com/download/TeamViewer_Setup.exe
имеем следующее:
последнее окно с finish не закрывается что можно тут сделать и как?
http://keep4u.ru/imgs/s/2009/11/07/5f/5f1d580e347159a5bccfe2db77185731.jpg (http://keep4u.ru/full/2009/11/07/5f1d580e347159a5bccfe2db77185731/jpg)
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
AutoItSetOption("TrayIconDebug",1)
BlockInput(1)
Run("TeamViewer_Setup.exe")
WinWaitActive("TeamViewer 4 Setup","Welcome to TeamViewer")
ControlClick("TeamViewer 4 Setup","Welcome to TeamViewer","Button4")
Sleep(500)
ControlClick("TeamViewer 4 Setup","Welcome to TeamViewer","Button2")
WinWaitActive("TeamViewer 4 Setup","Environment")
ControlClick("TeamViewer 4 Setup","Environment","Button4")
Sleep(500)
ControlClick("TeamViewer 4 Setup","Environment","Button2")
WinWaitActive("TeamViewer 4 Setup","License Agreement")
ControlClick("TeamViewer 4 Setup","License Agreement","Button4")
Sleep(500)
ControlClick("TeamViewer 4 Setup","License Agreement","Button5")
Sleep(500)
ControlClick("TeamViewer 4 Setup","License Agreement","Button2")
WinWaitActive("TeamViewer 4 Setup","Choose installation type")
ControlClick("TeamViewer 4 Setup","Choose installation type","Button5")
Sleep(500)
ControlClick("TeamViewer 4 Setup","Choose installation type","Button2")
WinWaitActive("TeamViewer 4 Setup","Access Control")
ControlClick("TeamViewer 4 Setup","Access Control","Button4")
Sleep(500)
ControlClick("TeamViewer 4 Setup","Access Control","Button2")
WinWaitActive("TeamViewer 4 Setup","Install VPN adapter")
ControlClick("TeamViewer 4 Setup","Install VPN adapter","Button4")
Sleep(500)
ControlClick("TeamViewer 4 Setup","Install VPN adapter","Button2")
WinWaitActive("TeamViewer 4 Setup","Completing the TeamViewer 4 Setup Wizard")
ControlClick("TeamViewer 4 Setup","Completing the TeamViewer 4 Setup Wizard","Button2")
BlockInput(0)
ExitIf