是否有使用 VBScript 使用 IE 打开新的 Ikognito 选项卡的命令?

Is there a command to open a new Ikognito Tab with IE by using VBScript?

大家好,我又来了

我想用 VBScript 在 IE 中打开 "Ikognito-Tab"。但我不知道我该怎么做(或者是否可能)。所以请大家帮忙。是否有使用 VBScript 在 IE 中打开新的 Ikognito 选项卡的命令?

谢谢

乔纳斯

我了解到您正在尝试开发 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 浏览器 window 然后它会导航到该网站,代码会在文本框中填充数据。

输出:

备注:

  1. 确保在 运行 执行此代码之前关闭所有 IE 实例。
  2. 我没有得到直接的方法来创建具有私有模式的 IE 应用程序对象。所以在这里,我首先使用 shell 在私有模式下打开 IE,然后获取该对象以使其自动化。

另外,您可以根据自己的需求尝试修改代码。