我想编码一个kiosk模式的脚本打开两个网站在同一时间只使用vbs

Question

*修订的脚本需要能够允许两个页面都很容易访问，可能通过ALT-TAB的预期用途。

我想编写一个脚本，使用循环打开一个网站在kiosk模式下使用vbs，但很容易在它们之间切换。我已经提供了一个示例脚本，这对我目前需要的东西并不是很有用，这就是为什么有些指导或帮助会很感激的原因。最终，我们的目标是在kiosk模式下打开一个页面，然后容易地切换到另一个窗口(根据需要来回切换)。唯一的问题是它们应该处于kiosk模式。有没有人能告诉我这在vbs里是不是可行的？感谢任何人的帮助。

kiosk-mode将是我需要它的理想目的，因为它是用于研究目的的调查，我们将为候选人设置一个调查。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

这会打开谷歌，等待它关闭(这是-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