PopupMenuSelect
Автор Angel, 25 сен 2006 12:44
Сообщений в теме: 6
#1
Отправлено 25 сентября 2006 - 12:44
Пишу скрипт , робот записывает выбор меню как
PopupMenuSelect "Сервис->Настройки интерфейса".
При проигрывании скрипта выбор меню не происходит.
Приложение использует Rebar в качестве меню использует ToolBar с выпадающем меню. ID назначаются динамически , так что ипользовать выбор по ID немогу(хотя по ним работает). Кто что подскажет ?
PopupMenuSelect "Сервис->Настройки интерфейса".
При проигрывании скрипта выбор меню не происходит.
Приложение использует Rebar в качестве меню использует ToolBar с выпадающем меню. ID назначаются динамически , так что ипользовать выбор по ID немогу(хотя по ним работает). Кто что подскажет ?
#2
Отправлено 29 сентября 2006 - 15:25
Вообщем первая проблема решена !
Хочется чтоб скрипт тестирования запускался автоматически в 6 утра каждый день , как реальзовать никто неподскажет ????
----
Вопрос cнят ..... все ясно стало .... лень вперед меня родилась ! ;)
Хочется чтоб скрипт тестирования запускался автоматически в 6 утра каждый день , как реальзовать никто неподскажет ????
----
Вопрос cнят ..... все ясно стало .... лень вперед меня родилась ! ;)
#3
Отправлено 06 октября 2006 - 13:58
Почему не работает такая функция
Function CheckForOKCancelButtons () As Integer
Dim Result as Integer
If SQAFindObject("Type=PushButton;Text=OK") = sqaSuccess And
SQAFindObject("Type=PushButton;Text=Cancel") = sqaSuccess
Then Result = sqaPass
Else
Result = sqaFail
End If
'Get the recognition information for current context window
Dim CurrentWindow As Variant
SQAGetProperty ".\", "Recognition", CurrentWindow
SQALogMessage Result, "Test for existence of OK and Cancel buttons", "Window being tested: " + CurrentWindow
CheckForOKCancelButtons = Result
End Function
Ругается на оператор IF
Error: IF syntax error
Скопировал данный кусок с хелпа , думал что может я уже забыл все насвете .....
В простом варианте типа
if a>b then
.....
else
.....
end if
все работает и компилятор не ругается .....
Function CheckForOKCancelButtons () As Integer
Dim Result as Integer
If SQAFindObject("Type=PushButton;Text=OK") = sqaSuccess And
SQAFindObject("Type=PushButton;Text=Cancel") = sqaSuccess
Then Result = sqaPass
Else
Result = sqaFail
End If
'Get the recognition information for current context window
Dim CurrentWindow As Variant
SQAGetProperty ".\", "Recognition", CurrentWindow
SQALogMessage Result, "Test for existence of OK and Cancel buttons", "Window being tested: " + CurrentWindow
CheckForOKCancelButtons = Result
End Function
Ругается на оператор IF
Error: IF syntax error
Скопировал данный кусок с хелпа , думал что может я уже забыл все насвете .....
В простом варианте типа
if a>b then
.....
else
.....
end if
все работает и компилятор не ругается .....
#4
Отправлено 09 октября 2006 - 06:58
...
If SQAFindObject("Type=PushButton;Text=OK") = sqaSuccess And _
SQAFindObject("Type=PushButton;Text=Cancel") = sqaSuccess _
Then
Result = sqaPass
Else
Result = sqaFail
End If
...
If SQAFindObject("Type=PushButton;Text=OK") = sqaSuccess And _
SQAFindObject("Type=PushButton;Text=Cancel") = sqaSuccess _
Then
Result = sqaPass
Else
Result = sqaFail
End If
...
#5
Отправлено 09 октября 2006 - 09:57
Непомогло ..... ругается именно на строчку...
If SQAFindObject("Type=PushButton;Text=OK") = sqaSuccess And _
SQAFindObject("Type=PushButton;Text=Cancel") = sqaSuccess _
Then
Result = sqaPass
Else
Result = sqaFail
End If
...
If SQAFindObject("Type=PushButton;Text=OK") = sqaSuccess And
#6
Отправлено 09 октября 2006 - 10:12
?
Sub Main
Dim Result As Integer
'Initially Recorded: 09.10.2006 13:10:12
'Script Name: test
If SQAFindObject("Type=PushButton;Text=OK") = sqaSuccess And _
SQAFindObject("Type=PushButton;Text=Cancel") = sqaSuccess _
Then
Result = sqaPass
Else
Result = sqaFail
End If
End Sub
Compiling test.rec...
0 warning(s), 0 error(s)
Sub Main
Dim Result As Integer
'Initially Recorded: 09.10.2006 13:10:12
'Script Name: test
If SQAFindObject("Type=PushButton;Text=OK") = sqaSuccess And _
SQAFindObject("Type=PushButton;Text=Cancel") = sqaSuccess _
Then
Result = sqaPass
Else
Result = sqaFail
End If
End Sub
Compiling test.rec...
0 warning(s), 0 error(s)
#7
Отправлено 09 октября 2006 - 10:37
Сенькс ...... работает .....
Количество пользователей, читающих эту тему: 1
0 пользователей, 1 гостей, 0 анонимных