Что нового

[Элементы GUI] Почему переодически не работает скрипт с TabControl?

seriych

Чайник
Сообщения
18
Репутация
0
Хочу автоматизировать настройки в окошке "Свойства системы"(правый клик на "моем компьютере"- "свойства"). Не понимаю, почему то работает, то неработает скрипт. Вот, например, отключение удаленного помощника:
Код:
#Include <GuiTab.au3>
#include <GuiTreeView.au3>
#include <GUIConstants.au3>

$Title = "Свойства системы"       ; Заголовок окна
$FirstText = ""			; Текст в окне

AutoItSetOption( "WinTextMatchMode", 2)             ; Идентификация окна по произвольному фрагменту

Run("control sysdm.cpl") ;Запуск свойств системы
WinWait ( $Title, $FirstText)
BlockInput(1)
WinActivate ( $Title, "")
WinWaitActive ( $Title, "")

$h_tabcontrol = ControlGetHandle( $Title, "", "SysTabControl321") ; Идентификатор TabControl
$i_TabItems = _GUICtrlTab_GetItemCount( $h_tabcontrol) ; Количество вкладок

$i_Item = 0 ; Текущая вкладка
$s_Item1 = "Удаленное использование"
$s_Item2 = "Удаленные сеансы"
; Ищем вкладку "Удаленное использование" или "Удаленные сеансы"
While $i_Item <> $i_TabItems And _GUICtrlTab_GetItemText($h_tabcontrol, $i_Item) <> $s_Item1 And _GUICtrlTab_GetItemText($h_tabcontrol, $i_Item) <> $s_Item2
	$i_Item += 1
WEnd
; Если нашли вкладку, то отключаем помощника
if $i_Item < $i_TabItems Then
	_GUICtrlTab_ClickTab( $h_tabcontrol, $i_Item)
	ControlFocus ( $Title, "", "[CLASS:Button; INSTANCE:1]")
	ControlCommand ( $Title, "", "[CLASS:Button; INSTANCE:1]", "UnCheck" ,"") 
EndIf
; ...
Exit


Такое ощущение, что когда первый раз запускаешь не пашет. Потом работает сколько угодно. Изменю что-нибудь опять один раз не пашет, потом работает. Не понимаю :( Слипы добавлял- результат тот же. Что не так?
И еще: можно ли как-то на несколько строчек разбить условие после While?
 
Верх