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

[Froggy]

Люди, кто-нибудь может меня просветить, может робот считывать инфу из Edit-ов и можно-ли программно задать, как курсору ползать по всяким там ListView-шкам, или все ограничивается записью движений мыши с определением координат нажатия кнопок? Проблема в том, что я хотел бы проанализировать значения в тех-же самых Edit-ах, а как оно деется - не знаю... Как бы Хелп!!!

[globe]

Хелп есть в роботе
Все можно (в пределах разумного).
Для получения данных можно использовать SQAGetProperty и иже с ними (см.SQABasicLanguage Reference)
По ListBoxam также есть help там же.
С примерами
Ну и verification point-ы никто не отменял

[Froggy]

Пасиба, а то мануал на 900 страниц, да еще и на буржуинском... я бы облысел искать

[serega]

Люди, кто-нибудь может меня просветить, может робот считывать инфу из Edit-ов и можно-ли программно задать, как курсору ползать по всяким там ListView-шкам, или все ограничивается записью движений мыши с определением координат нажатия кнопок? Проблема в том, что я хотел бы проанализировать значения в тех-же самых Edit-ах, а как оно деется - не знаю... Как бы Хелп!!!

Ползать тока с помощью мыши, либо команд с клавиатуры. Поэтому позиционирование на заданном значении задача довольно сложная.
Набор значений вытаскивается с помощью в ListView VP.

[Valentin Peltek]

Люди, кто-нибудь может меня просветить, может робот считывать инфу из Edit-ов и можно-ли программно задать, как курсору ползать по всяким там ListView-шкам, или все ограничивается записью движений мыши с определением координат нажатия кнопок? Проблема в том, что я хотел бы проанализировать значения в тех-же самых Edit-ах, а как оно деется - не знаю... Как бы Хелп!!!

Ползать тока с помощью мыши, либо команд с клавиатуры. Поэтому позиционирование на заданном значении задача довольно сложная.
Набор значений вытаскивается с помощью в ListView VP.

А можешь написать кусок кода как это делать, если у меня к примеру EditBox с именем value2, как мне узнать какое у него значение????
Буду ОЧЕНЬ ПРИЗНАТЕЛЕН

[Nadezhda]

Почитайте внимательно help по функциям SQAGetProperty и SQASetProperty.
Dim Result as integer
Dim s as string
Result = SQAGetProperty ("Type=EditBox;Name=value2","value",s)
if Result = SQASuccess then
SQALogMessage SQAPass, "Value in editbox is " + s, ""
else
SQALogMessage SQAFail, "Result = " +CStr(Result)
end if

[Valentin Peltek]

Почитайте внимательно help по функциям SQAGetProperty и SQASetProperty.
Dim Result as integer
Dim s as string
Result = SQAGetProperty ("Type=EditBox;Name=value2","value",s)
if Result = SQASuccess then
  SQALogMessage SQAPass, "Value in editbox is " + s, ""
else
  SQALogMessage SQAFail, "Result = " +CStr(Result)
end if

Надя, спасибо огромное за помощь. Если ты мне ответишь на ещё один вопрос, то просто незнаю....приеду в Харьков выставляться ))))

У меня есть HTMLImage, которая по совместительству является submit. Я пишу HTMLImage Click, "Name=submit", "" - не работает, пробовал уже и Type=Image вставить, все равно... как сделать, чтобы не привязываться к координатам, потому что если их указать во вторых ковычках все работает нормально...

Заранее Вам благодарен и если Вам не сложно, напишите ЛС с Вашей Аськой, буду очень благодарен Вам...

[Nadezhda]

А если вставить Type=HTMLImage (вместо Type=Image)?

[Valentin Peltek]

А если вставить Type=HTMLImage (вместо Type=Image)?

Пробовал, тоже не получается. Я пока решил эту проблему другим способом, просто InputKey {Enter}, но если честно это не самый лучший вариант :(

[Nadezhda]

Если включить запись и кликнуть на этом Image, что Робот записывает? Может потом повторить то, что записал?

[Valentin Peltek]

Если включить запись и кликнуть на этом Image, что Робот записывает? Может потом повторить то, что записал?

Так действительно работало и так оно было вначале, но мне нельзя привязываться к координатам, а если их убираешь, то работать перестает :(

[Nadezhda]

Тогда, пожалуй, нажатие Enter - единственный выход

[Valentin Peltek]

Тогда, пожалуй, нажатие Enter - единственный выход

А не подскажете, как сделать поиск по странице. Мне требуется проверить, если на странице слово Error или нет...

[Froggy]

по какой странице?

слово Error

- это что, лэйбл, название окна?
В любом случае, скорее всего это делается через VerifPoint

[Valentin Peltek]

по какой странице?

слово Error

- это что, лэйбл, название окна?
В любом случае, скорее всего это делается через VerifPoint

это просто строка на странице!!!

Можете написать пример как это делать, очень нужно...Сижу уже третий день!!!!!!

[Clauster]

Если вы хотите отлавливать ошибки, то это делается не с помощью поиска на странице слова Error. Посоветуйтесь с вашими разработчиками.

[serega]

Можете написать пример как это делать, очень нужно...Сижу уже третий день!!!!!!

Хорошо не третий год
Читаем хелп
Начинаем с SQAGetChildren и далее
Возникают конкретные проблемы, тогда на вопросы и ответы появятся

[Froggy]

На КАКОЙ СТАНИЦЕ
что из себя представляет страница? Что есть страница?
Где содержится означенное слово Еррор? В файле(если да, то просто сравнить строки-символы) или на HTML-странице (тоже можно сделать, как лучше - не знаю, не сталкивался, с ходу могу предложить открыть в HTML-формате, через свойство Text вытянуть содержимое и парсить уже как текстовый файл)

Парсил я примерно так (смотрел, появились те или иные строки в файле)

Function CompareConfigFile(StartString As String, CountString As Integer, SrtingArray() As String, NameControlProcess As String)
        Dim Fchar() As String
        Dim newline As String'строка из файла конфигурации
        Dim FullLine As String
        Dim x As Integer'количество строк в файле
        Dim y As Integer
        
        'открываем файл конфигурации 
        Open "c:\имя файла.ini" for Input as #1
        
        'считаем количество строк в файле
        Do Until x=Lof(1)'проверка на конец файла
        Line Input #1, newline 'считываем строку
        'переход на новую строку
        x=x+1
        y=Seek(1)
        If y>Lof(1) Then
            Exit Do
        Else
            Seek 1,y
        End If          
        Loop
        Close #1
        
        'открываем файл конфигурации 
        Open "c:\имя файла.ini" for Input as #1
        ReDim Fchar(x-1)
            For y=0 To x-1
                Line Input #1, Fchar(y)
            Next y
        Close #1
   
        For y=0 To x-1
            If Fchar(y) = StartString Then
                For yy = y To y+CountString - 1
                    If Fchar(yy) <> SrtingArray(yy-y)Then
                        MsgBox NameControlProcess & "Несоответствие РДВ и " & yy &"-й строки файла c:\имя файла.ini.   " & "Строка в файле:   " & Fchar(yy) & ", необходимая строка:   " & SrtingArray(yy-y) 
                    End If
                Next yy
            End If     
        Next y  
    End Function


Sub Main
    Dim Result As Integer
    Dim StrArr() As String
    Dim ArraySize As Integer
    'Initially Recorded: 03.11.2005  15:38:34
    'Script Name: имя скрипта
    
    'контроль функции..ххх..
    ArraySize =2
    ReDim StrArr(ArraySize)
    StrArr(0) = "<print>"
    StrArr(1) = "0"
    StrArr(2) = "</print>"
    CompareConfigFile "<print>", ArraySize , StrArr, "Контроль функции..ххх... "
    ...

Можете написать пример как это делать, очень нужно...Сижу уже третий день!!!!!!

Дык я уж год сижу.... Хе и все равно многого не знаю. Читайте Хелп.

[Nadezhda]

Грубо, но действует:

Dim s as string
Dim Result as integer

    
    Window SetContext, "CurrentWindow", ""
    InputKeys "^a^c"
    s = Clipboard.gettext
    Result = InStr(s,"Error")
    if Result <> 0 then
        SQALogMessage sqafail, "Error is found", ""
        exit sub
    end if

[Valentin Peltek]

Грубо, но действует:

Dim s as string
Dim Result as integer

    
    Window SetContext, "CurrentWindow", ""
    InputKeys "^a^c"
    s = Clipboard.gettext
    Result = InStr(s,"Error")
    if Result <> 0 then
        SQALogMessage sqafail, "Error is found", ""
        exit sub
    end if

спасибо...Прикольный способ