找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 15703|回复: 2

[技术讨论] VBS怎样激活浏览器为当前窗口?

[复制链接]
发表于 2019-3-14 20:15:17 | 显示全部楼层 |阅读模式
本帖最后由 keshun 于 2019-3-22 08:20 编辑
  1. Dim WshShell
  2. Set WshShell = CreateObject("wscript.Shell")
  3. WshShell.run "网址"
  4. Wscript.Sleep 5000

复制代码
代码延时5秒后执行其他命令,5秒内浏览器可能不是当前窗口了,想加个代码5秒后重新激活浏览器为当前窗口的代码,请教高手代码,谢谢!!
 楼主| 发表于 2019-3-16 17:43:49 | 显示全部楼层
本帖最后由 keshun 于 2019-3-22 08:21 编辑

WshShell.run "http://127.0.0.1/"
Wscript.Sleep 500
WshShell.SendKeys "^{w}"
增加代码能重新激活浏览器为当前窗口,傻招也行,呵呵
 楼主| 发表于 2019-3-19 12:57:46 | 显示全部楼层
本帖最后由 keshun 于 2019-3-22 08:21 编辑

Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate "窗口标题前面部分内容就行"
WshShell.SendKeys "{Enter}"
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 07:49 , Processed in 0.014821 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表