В этой теме нет ответов

[Alex-tester]

Многие приложения в заголовке окна содержат какую-то информацию, которую необходимо будет проверить. Рассмотрим на примере работы Блокнота.
Например, необходимо удостоверится в том, что при сохранении файла окно (Блокнот), меняет свое название, на название сохраненного файла.

Sub Main
Dim Result As Integer
Dim value As String ' переменная, в которую будет помещено свойство объекта, в нашем случае заголовок окна

StartApplication "C:\windows\system32\notepad.exe"
Delayfor 1000
Result=SQAGetProperty("CurrentWindow","Caption",value) ' получить свойства активного окна, в нашем случае заголовка окна
'CurrentWindow – значение которое говорит о том, что работа будет идти с активным окном
'Caption - что за свойство (в нашем случае - заголовок), активного окна, хотим получить.
' value - куда будет помещено значение свойства активного окна

SQAConsoleWrite "Первоначальный заголовок окна - '"+value+"'" ' выведем значение свойства в консоль.

Window SetContext, "Caption=Безымянный - Блокнот", ""
MenuSelect "Файл->Сохранить как..."

Window SetContext, "Caption=Сохранить как", ""
InputKeys "2.txt{ENTER}"

Delayfor 1000
Result=SQAGetProperty("CurrentWindow","Caption",value) ' получить свойства активного окна, в нашем случае заголовка окна
If value = "2 - Блокнот" then
SQALogMessage sqaPass, "Все ок =)","Текущий заголовок окна - '"+value+"'"
Else
SQALogMessage sqaFail, "Все плохо =(","Текущий заголовок окна - '"+value+"'"
End if

End Sub