想编写一个展台模式脚本,以便仅使用 vbs 一次打开两个网站



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

我想编写一个脚本,使用循环使用 vbs 在展台模式下一次打开一个网站,但很容易在它们之间切换。我提供了一个示例脚本,该脚本对于我目前需要的内容不是很有用,这就是为什么一些指导或帮助将不胜感激的原因。最终,目标是在展台模式下打开一个页面,然后随时切换到另一个窗口(根据需要来回切换(。唯一的问题是它们应该处于展台模式。谁能告诉我这在 vbs 中是否合理?任何和所有的帮助都表示赞赏。

信息亭模式非常适合我需要它的目的,因为它用于研究目的的调查,我们将为候选人设置一个调查。 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 中的知识能力有限,我有局限性,这里提供的代码打开了两个窗口而不是选项卡(很可能是我的代码和理解中的错误(

这会打开谷歌,等待它关闭(使用 -k 所以亭模式,您可以从任务栏关闭它(,然后出现 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

最新更新