Здравствуйте.
Только начала изучать autoit.
Задача выбрать значение из выпадающего списка TcxComboBox "Панель обработки".
#include <MsgBoxConstants.au3>
#include <GuiComboBox.au3>
Run("C:\Задачки\prjChkPOBase.exe")
Local $hWin = WinWait('[CLASS:TfMain]', '', 5);
If Not $hWin Then
MsgBox(16, 'Error', 'Нет окна');
Exit
EndIf
ControlSetText('[CLASS:TfMain]', '', '[CLASS:TcxTextEdit; INSTANCE:1]', 'This is some ConnectionString');
;Local $sText = ControlGetText('[CLASS:TfMain]', '', '[CLASS:TcxTextEdit; INSTANCE:1]');
ControlCommand ('[CLASS:TfMain]', '', '[CLASS:TcxComboBox; INSTANCE:1]', 'SelectString', 'Панель обработки')
ControlClick($hWin, '', '[CLASS:TcxButton; INSTANCE:2]');
Нашла ответ сама. Надо было сделать так:
ControlClick('[CLASS:TfMain]', '', '[CLASS:TcxComboBox; INSTANCE:1]')
While 1
Send("{DOWN}")
$ctext=ControlGetText('[CLASS:TfMain]', '', '[CLASS:TcxComboBox; INSTANCE:1]')
If $ctext='Панель обработки' Then
ExitLoop
EndIf
WEnd
Если кто-то знает другой вариант - пишите
Только начала изучать autoit.
Задача выбрать значение из выпадающего списка TcxComboBox "Панель обработки".
#include <MsgBoxConstants.au3>
#include <GuiComboBox.au3>
Run("C:\Задачки\prjChkPOBase.exe")
Local $hWin = WinWait('[CLASS:TfMain]', '', 5);
If Not $hWin Then
MsgBox(16, 'Error', 'Нет окна');
Exit
EndIf
ControlSetText('[CLASS:TfMain]', '', '[CLASS:TcxTextEdit; INSTANCE:1]', 'This is some ConnectionString');
;Local $sText = ControlGetText('[CLASS:TfMain]', '', '[CLASS:TcxTextEdit; INSTANCE:1]');
ControlCommand ('[CLASS:TfMain]', '', '[CLASS:TcxComboBox; INSTANCE:1]', 'SelectString', 'Панель обработки')
ControlClick($hWin, '', '[CLASS:TcxButton; INSTANCE:2]');
Сообщение автоматически объединено:
Нашла ответ сама. Надо было сделать так:
ControlClick('[CLASS:TfMain]', '', '[CLASS:TcxComboBox; INSTANCE:1]')
While 1
Send("{DOWN}")
$ctext=ControlGetText('[CLASS:TfMain]', '', '[CLASS:TcxComboBox; INSTANCE:1]')
If $ctext='Панель обработки' Then
ExitLoop
EndIf
WEnd
Если кто-то знает другой вариант - пишите
Последнее редактирование: