Сообщений в теме: 6

[Angel]

Пишу скрипт , робот записывает выбор меню как
PopupMenuSelect "Сервис->Настройки интерфейса".
При проигрывании скрипта выбор меню не происходит.
Приложение использует Rebar в качестве меню использует ToolBar с выпадающем меню. ID назначаются динамически , так что ипользовать выбор по ID немогу(хотя по ним работает). Кто что подскажет ?

[Angel]

Вообщем первая проблема решена !
Хочется чтоб скрипт тестирования запускался автоматически в 6 утра каждый день , как реальзовать никто неподскажет ????
----
Вопрос cнят ..... все ясно стало .... лень вперед меня родилась ! ;)

[Angel]

Почему не работает такая функция

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

все работает и компилятор не ругается .....

[berzinc]

...
If SQAFindObject("Type=PushButton;Text=OK") = sqaSuccess And _
SQAFindObject("Type=PushButton;Text=Cancel") = sqaSuccess _
Then
Result = sqaPass
Else
Result = sqaFail
End If
...

[Angel]

...
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

[berzinc]

?

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)

[Angel]

Сенькс ...... работает .....