Тест 5.2
Sub Main
Dim
Result As Integer
'Script
Name: test_5_2
'Start
Solid converter
Window
SetContext, "Caption=Program Manager", ""
ListView
DblClick, "Text=FolderView;\;ItemText=Solid Converter PDF",
"Coords=36,24"
DelayFor
5000
'Set
work folder
Window
SetContext, "Caption=Solid Converter PDF", ""
ComboBox
Click, "Label=Папка:", "Coords=254,13"
ComboListBox
Click, "Label=Папка:", "Text=ACERDATA (D:)"
ListView
DblClick, "Text=FolderView;\;ItemText=RobotPRJ",
"Coords=34,9"
ListView
DblClick, "Text=FolderView;\;ItemText=work", "Coords=29,12"
'Set
default params
Toolbar
Click, "ObjectIndex=3;\;ItemID=1010", "Coords=36,29"
Window
SetContext, "Caption=Solid Converter PDF", ""
PushButton
Click
,
"
Text
=Восстановить
параметры по умолчанию"
Window
SetContext, "Caption=Solid Converter PDF", ""
PushButton
Click, "Text=Да"
'Set
preferred params
Window
SetContext, "Caption=Solid Converter PDF", ""
CheckBox
Click, "Text=
Использовать
мастер
"
CheckBox
Click, "Text=
Запуск
программы
просмотра
"
PushButton
Click, "Text=
ОК
"
'Specific
action
Window
SetContext, "Caption=Solid Converter PDF", ""
ListView
Click, "Text=FolderView;\;ItemText=Little.pdf",
"Coords=32,10"
Toolbar
Click, "ObjectIndex=4;\;ItemID=1012", "Coords=34,37"
Window
SetContext, "Caption=Сохранить как", ""
PushButton
Click, "Text=Сохранить"
Window
SetContext, "Caption=Solid Converter PDF", ""
PushButton
Click, "Text=Да"
Window
SetContext, "Caption=Результаты преобразования",
""
InputKeys
"{ESCAPE}"
DelayFor
5000
Window
SetContext, "Caption=Solid Converter PDF", ""
PushButton
Click, "Text=Да"
Window
SetContext, "Caption=Результаты преобразования",
""
Label
Click, "Text=Пользователь отменил
преобразование."
PushButton
Click, "Text=Закрыть"
End Sub
Тест 5.3
Sub Main
Dim
Result As Integer
'Script
Name: test_5_3
'Start
Solid converter
Window
SetContext, "Caption=Program Manager", ""
ListView
DblClick, "Text=FolderView;\;ItemText=Solid Converter PDF",
"Coords=36,24"
DelayFor
5000
'Set
work folder
Window
SetContext, "Caption=Solid Converter PDF", ""
ComboBox
Click, "Label=Папка:", "Coords=254,13"
ComboListBox
Click, "Label=Папка:", "Text=ACERDATA (D:)"
ListView
DblClick, "Text=FolderView;\;ItemText=RobotPRJ",
"Coords=34,9"
ListView
DblClick, "Text=FolderView;\;ItemText=work", "Coords=29,12"
'Set
default params
Toolbar
Click, "ObjectIndex=3;\;ItemID=1010", "Coords=36,29"
Window
SetContext, "Caption=Solid Converter PDF", ""
PushButton
Click
,
"
Text
=Восстановить
параметры по умолчанию"
Window
SetContext, "Caption=Solid Converter PDF", ""
PushButton
Click, "Text=Да"
'Set
preferred params
Window
SetContext, "Caption=Solid Converter PDF", ""
CheckBox
Click, "Text=
Использовать
мастер
"
CheckBox
Click, "Text=
Запуск
программы
просмотра
"
PushButton
Click, "Text=
ОК
"
'Specific
action
Window
SetContext, "Caption=Program Manager", ""
ListView
DblClick, "Text=FolderView;\;ItemText=work", "Coords=35,20"
Window
SetContext, "Caption=work", ""
Window
WMaximize, "", ""
Window
WMinimize, "", ""
Window
SetContext, "Caption=Solid Converter PDF", ""
ListView
Click, "Text=FolderView;\;ItemText=Big.pdf", "Coords=36,8"
Toolbar
Click, "ObjectIndex=4;\;ItemID=1012", "Coords=26,32"
Window
SetContext, "Caption=Сохранить как", ""
PushButton
Click, "Text=Сохранить"
Window
SetContext, "Class=Shell_TrayWnd", ""
Toolbar
Click, "Text=Выполнение приложений;\;ItemText=work",
"Coords=91,12"
Window
SetContext, "Caption=Program Manager", ""
ListView
Click, "Text=FolderView", "Coords=793,85"
Window
SetContext, "Caption=work", ""
Window
WMaximize, "", ""
ListView
Click, "Text=FolderView;\;ItemText=Big.pdf", "Coords=79,23"
InputKeys
"{DELETE}"
Window
SetContext
,
"
Caption
=Подтверждение
удаления файла", ""
InputKeys
"{
ENTER
}"
Window
SetContext
,
"
Caption
=Ошибка
при удалении файла или папки", ""
PushButton
Click, "Text=ОК"
Window
SetContext, "Class=Shell_TrayWnd", ""
Toolbar
Click, "Text=Выполнение приложений;\;ItemText=work",
"Coords=104,16"
Window
SetContext, "Caption=work", ""
Window
WMinimize, "", ""
Window
SetContext, "Caption=Результаты преобразования",
""
PushButton
Click, "Text=Отмена"
Window
SetContext, "Caption=Solid Converter PDF", ""
PushButton
Click, "Text=Да"
Window
SetContext, "Caption=Результаты преобразования",
""
PushButton
Click, "Text=Закрыть"
End Sub