Что нового

[Автоматизация] Автоматическая установка TightVNC

saturnus

Новичок
Сообщения
1
Репутация
0
В определенный момент возникает затырка с функцией ControlSend, не хочет отправлять текст в форму
Код:
VNCactiv()
;устанавливаем пароль
Sleep(5000)
ControlSend("","","[CLASS:Edit;INSTANCE:1]", $pass )
Sleep(5000)
ControlSetText( "","", "[CLASS:Edit;INSTANCE:2]", $pass )
ControlSetText("","", "[CLASS:Edit;INSTANCE:3]", $pass )
ControlSetText( "","","[CLASS:Edit;INSTANCE:4]", $pass )
VNCactiv()
Sleep(5000)
ControlClick("TightVNC 2.0.4 Setup", "", "[CLASS:Button;INSTANCE:2]")
VNCactiv()
ControlClick("TightVNC 2.0.4 Setup", "", "[CLASS:Button;INSTANCE:2]")
VNCactiv()
ControlClick("TightVNC 2.0.4 Setup", "", "[CLASS:Button;INSTANCE:2]")
Exit
Func VNCactiv ()
	Local $hVNC
	$hVNC=WinWaitActive("TightVNC 2.0.4 Setup")
If  $hVNC=0 Then ; завершает работу установщика если окно не найдено.
	Exit
EndIf
EndFunc
 
Верх