Есть ли команда для открытия новой вкладки Ikognito с IE с помощью VBScript? - PullRequest
Новая
       107

Есть ли команда для открытия новой вкладки Ikognito с IE с помощью VBScript?

0 голосов
/ 06 мая 2020

Привет, ребята, я снова здесь.

Я хочу открыть «Ikognito-Tab» в IE с помощью VBScript. Но я понятия не имею, как я могу это сделать (или возможно ли это вообще). Поэтому я прошу вас всех о помощи. Есть ли команда для открытия новой вкладки Ikognito с IE с помощью VBScript?

Спасибо

Jonas

1 Ответ

2 голосов
/ 06 мая 2020

Я понимаю, что вы пытаетесь разработать сценарий VB для запуска браузера IE в частном режиме и хотите выполнить некоторые задачи автоматизации.

Я предлагаю вам скопировать и вставить приведенный ниже код в блокнот и сохраните файл с расширением .vbs . 

dim IE

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ("iexplore -private")

WScript.Sleep 1000

For Each wnd In CreateObject("Shell.Application").Windows
  If InStr(1, wnd.FullName, "iexplore.exe", vbTextCompare) > 0 Then
    Set IE = wnd

    Exit For
  End If
Next

IE.Navigate("http://localhost/form.html")

 Do While IE.Busy Or IE.readyState <> 4
    'Do nothing, wait for the browser to load.
  Loop

  Do While IE.Document.ReadyState <> "complete"
    'Do nothing, wait for the VBScript to load the document of the website.
  Loop
WScript.Sleep 1000
IE.Document.getElementsByName("fname").Item(0).Value = "abc"
WScript.Sleep 1000
IE.Document.getElementsByName("lname").Item(0).Value = "xyz"

Когда вы запустите указанный выше код, он запустит браузер IE в частном окне, после чего он перейдет на веб-сайт и код заполнит данные в текстовом поле.

Вывод:

enter image description here

Примечания:

  1. Обязательно закройте все экземпляры IE перед запуском этого кода.
  2. У меня не было прямого способа создать объект приложения IE в частном режиме. Итак, здесь я сначала открываю IE в частном режиме с помощью оболочки, а затем извлекаю этот объект для его автоматизации.

Кроме того, вы можете попробовать изменить код в соответствии со своими требованиями.

...