2019. VBS с использованием HP UFT (QTP)
В HP UFT я нашел несколько способов запустить браузер через VBS.
Мой любимый SystemUtil.Run .
1.SystemUtil.Run
strURL = "www.google.com"
str_NavigateTo = "https://chesstempo.com/chess-tactics.html#5"
int_mode_Maximized = 3
SystemUtil.Run "iexplore.exe",strURL, , ,3
SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE", str_NavigateTo,"C:\Program Files\Internet Explorer", ,int_mode_Maximized
Где режим и описание
- '0 Скрывает окно и активирует другое окно.
- '1 Активирует и отображает окно. Если окно свернуто или развернуто, система восстанавливает его первоначальный размер
и положение. Укажите этот флаг при отображении окна для
первый раз.
- '2 Активирует окно и отображает его как свернутое окно.
- ' 3 - активирует окно и отображает его в виде развернутого окна.
- '4 Отображение окна в его самом последнем размере и положении. Активное окно остается активным.
- '5 Активирует окно и отображает его в текущем размере и положении.
- '6 Минимизирует указанное окно и активирует
следующее окно верхнего уровня в Z-порядке.
- '7 Отображение окна в виде свернутого окна. Активное окно остается активным.
- '8 Отображение окна в его текущем состоянии. Активное окно остается активным.
'9 Активирует и отображает окно. Если окно свернуто или развернуто, система восстанавливает его первоначальный размер
и положение. Укажите этот флаг при восстановлении свернутого окна.
'10 Устанавливает состояние показа на основе состояния программы, которая запустила приложение.
* Дополнительные подробные описания параметров SystemUtil можно найти здесь:
SystemUtil.Run
2. InvokeApplication
InvokeApplication "C://Program Files/Internet Explorer/IEXPLORE.EXE http://www.wp.pl"
3. VBScript через WScript.shell
Если путь к вашему исполняемому файлу содержит пробелы, используйте Chr (34), чтобы убедиться, что путь содержится в двойных кавычках.
Dim oShellSet oShell = CreateObject ("Wscript.shell")'
'Пример 1 - запустить командный файл:
oShell.run "F://jdk1.3.1/demo/jfc/SwingSet2.bat"
'Пример 2 - запустить файл jar Java:
oShell.run "java -jar F://jdk1.3.1/demo/jfc/SwingSet2/SwingSet2.jar"
'Пример 3 - запустить Internet Explorer:
oShell.Run Chr(34) & "C://Program Files/Internet Explorer/IEXPLORE.EXE" & Chr(34)
Set oShell = Nothing
4. IE объектная модель автоматизации
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate "http://www.google.com/"
oIE.Visible = True
......
Set oIE = Nothing
5. Используйте диалоговое окно Windows \ Пуск \ Выполнить.
- Добавьте кнопку «Пуск» в хранилище объектов с помощью кнопки «Добавить объекты» в диалоговом окне «Репозиторий объектов».
- Откройте диалоговое окно «Выполнить» («Пуск» -> «Выполнить») и запишите поле редактирования «Открыть» и кнопку «ОК» в репозиторий объектов.
Переключитесь на экспертный вид и вручную добавьте строки, чтобы открыть диалоговое окно «Выполнить».
Пример:
Window("Window").WinButton("Button").ClickWindow("Window").Type("R")
Вручную введите строки для ввода информации для запуска приложения и нажмите кнопку «ОК» в диалоговом окне «Выполнить».
Пример:
Dialog("Run").WinEdit("Open:").Type "C://Windows/System32/notepad.exe"
Dialog("Run").WinButton("OK").Click
- Объект WebUtil
В обновлении UFT 14.01 HPE представила два новых метода для WebUtil Object.
LaunchBrowser и LaunchMobileBrowserWithID
WebUtil.LaunchBrowser Browser, [device_model, device_manufacturer, device_ostype, device_osversion]
WebUtil.LaunchBrowser "MOBILE_CHROME", "Apple_5s", "Apple", "IOS", "10.1.3"
WebUtil.LaunchMobileBrowserWithID Browser, device_ostype, device_id
WebUtil.LaunchMobileBrowserWithID "MOBILE_CHROME", "IOS", "02"
Источник с дополнительной информацией: 6 способов запуска вашего приложения