Тест 2.1
Sub Main
Dim
Result As Integer
'Script
Name: test_
2_1
'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=31,7"
Toolbar
Click, "ObjectIndex=4;\;ItemID=1012", "Coords=27,35"
Window
SetContext, "Caption=Сохранить как", ""
PushButton
Click, "Text=Сохранить"
Window
SetContext, "Caption=Solid Converter PDF", ""
PushButton
Click, "Text=Да"
Window
SetContext, "Caption=Результаты преобразования",
""
PushButton
Click, "Text=
Закрыть
"
End Sub
Тест 3.1.1
Sub Main
Dim
Result As Integer
'Script
Name: test_
3
_1
_1
'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", ""
Toolbar
Click, "ObjectIndex=3;\;ItemID=1010", "Coords=37,34"
Window
SetContext, "Caption=Solid Converter PDF", ""
ComboBox
Click, "Label=Путь к выходному файлу:",
"Coords=73,7"
ComboListBox
Click, "Label=Путь к выходному файлу:",
"Text=<Просмотр>"
Window
SetContext, "Caption=Обзор папок", ""
TreeView
Click, "Text=
Выбрать
папку
:;\;ItemText=
Рабочий
стол
->
Мой
компьютер
",
"Location=Button"
TreeView
Click
,
"
Text
=Выбрать
папку:;\;
ItemText
=Рабочий
стол->Мой компьютер->
ACERDATA
(
D
:)",
"
Location
=
Button
"
TreeView
Click
,
"
Text
=Выбрать
папку:;\;
ItemText
=Рабочий
стол->Мой компьютер->
ACERDATA
(
D
:)->
tmp
",
""
PushButton
Click, "Text=ОК"
Window
SetContext, "Caption=Solid Converter PDF", ""
PushButton
Click, "Text=ОК"
Window
SetContext, "Caption=Solid Converter PDF", ""
ListView
Click, "Text=FolderView;\;ItemText=Little.pdf",
"Coords=28,9"
Toolbar
Click, "ObjectIndex=4;\;ItemID=1012", "Coords=28,43"
Window
SetContext, "Caption=Сохранить как", ""
PushButton
Click, "Text=Сохранить"
Window
SetContext, "Caption=Результаты преобразования",
""
PushButton
Click, "Text=Закрыть"
Window
SetContext, "Caption=Program Manager", ""
ListView
DblClick, "Text=FolderView;\;ItemText=Мой компьютер",
"Coords=40,33"
Window
SetContext, "Caption=Мой компьютер", ""
ListView
DblClick, "Text=FolderView;\;ItemText=ACERDATA (D:)",
"Coords=48,29"
ListView
DblClick, "Text=FolderView;\;ItemText=tmp", "Coords=43,29"
ListView
DblClick, "Text=FolderView;\;ItemText=Little.doc",
"Coords=66,31"
Window
SetContext, "Caption=Little.doc - Microsoft Word", ""
Window
SetContext, "Caption=Little.doc;ChildWindow", ""
InputKeys
"{ENTER}{UP}lalala"
End Sub