VBScript 根据IE窗口的标题输出ESC（vbs弹出对话框代码）难以置信

🌐 经济型：买域名、轻量云服务器、用途：游戏网站等《腾讯云》特点：特价机便宜适合初学者用点我优惠购买

🚀 拓展型：买域名、轻量云服务器、用途：游戏网站等《阿里云》特点：中档服务器便宜域名备案事多点我优惠购买

🛡️ 稳定型：买域名、轻量云服务器、用途：游戏网站等《西部数码》特点：比上两家略贵但是稳定性超好事也少点我优惠购买

文章摘要

这篇文章介绍了一个用于测试指定窗口是否存在的Windows自动化脚本。通过定义名为`PressESC`的函数，可以检测指定窗口标题，并通过发送快捷键（如`ESC`）来对焦或操作该窗口。代码利用了`WScript.Shell`对象来实现这些操作，适用于需要检测特定窗口显示状态的应用场景。

‘测试函数
PressESC “Windows Internet Explorer”, “{ESCAPE}”

‘我们要处理的函数
Function PressESC(WindowTitle, KeyCommand)
Set objShell=CreateObject(“WScript.Shell”) ‘定义一个WHS对象
If objShell.AppActivate(WindowTitle) Then ‘检测是否有我们要检测的Windows
objShell.AppActivate WindowTitle ‘把窗口对焦
objShell.SendKeys KeyCommand ‘发送一个ESC键
End If
End Function