Vbscript 想要编写一个信息亭模式脚本,用于一次仅使用vbs打开两个网站

Vbscript 想要编写一个信息亭模式脚本,用于一次仅使用vbs打开两个网站,vbscript,kiosk-mode,Vbscript,Kiosk Mode,*修改后的脚本需要能够允许两个页面都可以随时访问,可能是通过ALT-TAB实现预期用途 我想撰写一个脚本,使用循环打开一个网站在一次亭模式使用vbs,但随时切换它们之间。我已经提供了一个示例脚本,它对于我目前所需要的不是很有用,这就是为什么我们需要一些指导或帮助。最终,目标是在kiosk模式下打开一个页面,然后随时切换到另一个窗口(根据需要来回切换)。唯一的问题是,他们应该在亭模式。有人能告诉我在vbs中这样做是否合理吗?感谢您的帮助 信息亭模式将是理想的用途,我需要它,因为它是用于调查的研究目

*修改后的脚本需要能够允许两个页面都可以随时访问,可能是通过ALT-TAB实现预期用途

我想撰写一个脚本,使用循环打开一个网站在一次亭模式使用vbs,但随时切换它们之间。我已经提供了一个示例脚本,它对于我目前所需要的不是很有用,这就是为什么我们需要一些指导或帮助。最终,目标是在kiosk模式下打开一个页面,然后随时切换到另一个窗口(根据需要来回切换)。唯一的问题是,他们应该在亭模式。有人能告诉我在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
const navOpenInNewTab=&h0800
昏暗的奥布杰
设置objShell=CreateObject(“Wscript.Shell”)
Set objIE=CreateObject(“InternetExplorer.Application”)
objIE.Navigate(“关于:空白”)
objIE.导航“http://www.google.com“,CLng(导航开放新实验室)
objIE.FullScreen=True
设置objDoc=objIE.Document.Body
strHTML=“显示此消息。”
objDoc.InnerHTML=strHTML
objIE.Visible=True
objIE.StatusBar=False
运行(“iexplore-k”)
WScript.Sleep(500)
objIE,退出

就目前情况而言,由于我在vbs方面的知识能力有限,我有一些局限性,这里显示的代码将打开两个窗口而不是选项卡(很可能是我的代码和理解错误)

这将打开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(等待进程完成)完成的


这将打开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(等待进程完成)完成的


谢谢,我会尝试一下。很抱歉,问题已经改变,两个网站都需要能够根据需要切换。什么是根据需要切换?切换的唯一方法是使用alt tab,在这种情况下,更改脚本以不等待执行。同样,您可以更改上述脚本,而不是在运行命令时更改true,放置false,这将在kiosk模式下打开两个internet Explorer。然后使用Alt tab可以在它们之间切换。但是,如果您想要并排的东西,可以查看以下主题:。你想用AutoIT做什么,并发送Win+左或右命令:谢谢,我会尝试一下。我很抱歉,因为请求已更改,两个网站都需要能够根据需要切换。什么是根据需要切换?切换的唯一方法是使用alt tab,在这种情况下,请更改脚本以不等待执行。再次,您可以更改上面的脚本,而不是run命令中的true,将false放在其中,这将在kiosk模式下打开两个internetexplorer。然后使用Alt tab可以在它们之间切换。但是,如果您想要并排的东西,可以查看以下主题:。应使用AutoIT完成所需操作,并发送Win+左或右命令: