[-] winclass MyTextField : HtmlTextField [+] void IsContain(string sValue, boolean bRaiseException optional) [+] if (this.sValue == sValue) [ ] Log.Write("Текст {sValue} существует в поле {this.sName()}.", "VERIFY") [+] else [+] if (bRaiseException == true) [ ] raise 1, "Текст {sValue} не существует в поле {this.sName()}." [+] else [ ] Log.Write("Текст {sValue} не существует в поле {this.sName()}.", "ERROR")
[+] winclass MyText : HtmlText [+] void VerifyTextColor(string sColor, boolean bRaiseException optional) [ ] STRING sTextColor = this.GetTextProp("$TextColor") [+] if(sTextColor != sColor) [+] if (IsNull(bRaiseException) == true || bRaiseException == false) [ ] Log.Write("Неверный цвет текста в {this.sName}! Ожидаемый: {sColor}, Реальный: '{sTextColor}'.", "ERROR") [+] else [ ] raise 1, "Неверный цвет текста в {this.sName}! Ожидаемый: '{sColor}', Реальный: '{sTextColor}'." [+] else [ ] Log.Write("Верный цвет текста в {this.sName}! Цвет текста: '{sTextColor}'", "VERIFY")
wMainWindow.MyTextField("$username").IsContain("admin")
WINDOW wWebMailBox tag "mailbox" HtmlTable tlbLetters tag "$mailList" HtmlColumn clnFrom tag "from" HtmlColumn clnSubject tag "subject" HtmlColumn clnReceived tag "received"
void VerifyValueInColumn(WINDOW wColumn, STRING sText, INTEGER nRowNumber optional) // --------- SPECS ----------------- // // Функция делает проверку текстового значения в html таблице. // // args: // wColumn - Обьект 'Колонка' в которой необходимо проверить текстовое значение. // sText - Текст который необходимо проверить. // nRowNumber - Номер строки таблицы в которой нужно проверить текст (По умолчанию равен 1). // ----------- VARIABLES ------------ STRING sValue STRING sColumnName // ----------- STEPS ------------ // Column if(IsNull(wColumn) || !IsSet(wColumn)) raise 1, "Need not null value for column." // Text if(IsNull(sText) || !IsSet(sText)) raise 1, "Need not null value for text." // RowNumber if(IsNull(nRowNumber) || !IsSet(nRowNumber)) nRowNumber = 1 do BrowserPage.SetUserOption ("ShowBorderlessTables",0.75,USEROPT_DEFAULT) if (wColumn.HtmlText("#{nRowNumber}").Exists(5)) sValue = wColumn.HtmlText("#{nRowNumber}").GetText() else sValue = wColumn.HtmlLink("#{nRowNumber}").GetCaption() sColumnName = wColumn.GetCaption() if(MatchStr("*{sText}*", sValue)) Log.Write ("Текст '{sText}' найден в колонке '{sColumnName}' в строке номер {nRowNumber}.", "Verify") else Log.Write ("Текст '{sText}' не найден в колонке '{sColumnName}' в строке номер {nRowNumber}.", "ERROR") BrowserPage.SetUserOption ("ShowBorderlessTables",0.50,USEROPT_DEFAULT) except BrowserPage.SetUserOption ("ShowBorderlessTables",0.50,USEROPT_DEFAULT)
//Проверяем что в колонке "From" в первой строке надпись "Иванов Иван Иванович". VerifyValueInColumn(wWebMailBox.tlbLetters.clnFrom, "Иванов Иван Иванович") //Проверяем что в колонке "Subject" в пятой строке надпись "Отчет за сентябрь". VerifyValueInColumn(wWebMailBox.tlbLetters.clnSubject, "Отчет за сентябрь", 5)
[ ] //Пример #1 [ ] STRING sUserName = "administrator" [ ] [ ] wMainWnd.HtmlTextField("$user name").SetText(sUserName ) [ ] Print("В текстовое поле 'user name' был помещен текст {sUserName}.") [ ] [ ] wMainWnd.HtmlPushButton("$login").Click() [ ] Print("Нажата кнопка 'login'.")
[-] winclass MyPushButton : HtmlPushButton [-] void Click(int iBtn optional, int iX optional, int iY optional) [ ] Print("Нажата кнопка '{this.GetCaption()}'.") [ ] derived::Click(iBtn, iX, iY) [-] winclass MyTextField : HtmlTextField [-] void SetText(STRING sValue) [ ] Print("В текстовое поле '{this.GetCaption()}' был помещен текст {sValue}.") [ ] derived :: SetText(sValue)
[ ] //Пример #2 [ ] STRING sUserName = "administrator" [ ] [ ] wMainWnd.MyTextField("$user name").SetText(sUserName ) [ ] [ ] wMainWnd.MyPushButton("$login").Click()
[-] dll dllName.dll [ ] [ReturnType] FuncName ( [ArgList] ) [alias dllFuncName]
// Импорт функции для получения имени залогиненного в данный момент пользователя. [-] dll "advapi32.dll" [ ] LONG DLL_GetUserName(out STRING lpBuffer, inout LONG nSize) alias "GetUserNameW" // Использование импортированной функции. [ ] STRING sUserName // Переменная имени полученного пользователя. [ ] LONG nSize = 0 // Переменная длинны имени полученного пользователя. [ ] DLL_GetUserName(sUserName, nSize)
[-] dll dllName.dll [ ] [ReturnType] FuncName ( [ArgList] ) [alias dllFuncName]
// Импорт функции для получения имени залогиненного в данный момент пользователя. [-] dll "advapi32.dll" [ ] LONG DLL_GetUserName(out STRING lpBuffer, inout LONG nSize) alias "GetUserNameW" // Использование импортированной функции. [ ] STRING sUserName // Переменная имени полученного пользователя. [ ] LONG nSize = 0 // Переменная длинны имени полученного пользователя. [ ] DLL_GetUserName(sUserName, nSize)