想编写一个 kiosk 模式脚本，以仅使用 vbs 一次打开两个网站

Question

*REVISED 脚本需要能够让两个页面都易于访问，可能通过 ALT-TAB 用于预期用途。

我想编写一个脚本，以使用循环在信息亭模式下使用 vbs 一次打开一个网站，但很容易在它们之间切换。我提供了一个示例脚本，它对我目前需要的东西不是很有用，这就是为什么一些指导或帮助会受到赞赏的原因。最终，目标是在信息亭模式下打开一个页面，然后轻松切换到另一个窗口（根据需要来回切换）。唯一的问题是它们应该处于信息亭模式。谁能告诉我这在vbs中是否可行？任何和所有的帮助表示赞赏。

kiosk 模式非常适合我需要它的目的，因为它用于研究目的的调查，我们将为候选人设置一项调查。 vbs 是我目前可以使用的唯一批准的方法。我们有一个反馈响应，我们将使用它，以便我们可以利用候选人遇到的每个实例的反馈来解决质量问题。

const navOpenInNewTab = &h0800

Dim objIE
Set objShell = CreateObject("Wscript.Shell")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")

objIE.Navigate "http://www.google.com",CLng(navOpenInNewTab)

objIE.FullScreen=True
Set objDoc = objIE.Document.Body
strHTML = "<H1>Display this message.</H1>"
objDoc.InnerHTML = strHTML
objIE.Visible = True
objIE.StatusBar = False
objShell.Run ("iexplore -k")
WScript.Sleep(500)

objIE.Quit

就目前而言，由于我在 vbs 方面的知识能力有限，因此这里提供的代码会打开两个窗口而不是选项卡（很可能是我的代码和理解中的错误）

Answer 1

这会打开google，等待它关闭（是用-k so kiosk模式，你可以从任务栏关闭它），然后出现microsoft.com：

Option Explicit 

Dim objShell

Set objShell = WScript.CreateObject("WScript.Shell")

objShell.Run "iexplore -k http://google.ro" , 1, true


objShell.Run "iexplore -k http://microsoft.com" , 1, true

set objShell = nothing

Wscript.Quit

这是使用 .run 参数 1（显示执行）和 true（等待进程完成）来完成的

https://ss64.com/vb/run.html