批处理之家 - Powered by Discuz! Board

标题: [技术讨论] VBS怎样激活浏览器为当前窗口？ [打印本页]

作者: keshun 时间: 2019-3-14 20:15 标题: VBS怎样激活浏览器为当前窗口？

本帖最后由 keshun 于 2019-3-22 08:20 编辑

Dim WshShell 
Set WshShell = CreateObject("wscript.Shell") 
WshShell.run "网址" 
Wscript.Sleep 5000 
 
复制代码

代码延时5秒后执行其他命令，5秒内浏览器可能不是当前窗口了，想加个代码5秒后重新激活浏览器为当前窗口的代码，请教高手代码，谢谢！！

作者: keshun 时间: 2019-3-16 17:43

本帖最后由 keshun 于 2019-3-22 08:21 编辑

WshShell.run "http://127.0.0.1/"
Wscript.Sleep 500
WshShell.SendKeys "^{w}"
增加代码能重新激活浏览器为当前窗口，傻招也行，呵呵

作者: keshun 时间: 2019-3-19 12:57

本帖最后由 keshun 于 2019-3-22 08:21 编辑

Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate "窗口标题前面部分内容就行"
WshShell.SendKeys "{Enter}"

欢迎光临批处理之家 (http://bathome.net./)