vbs自学备份

最小化所有窗口:

Set obj = CreateObject("Shell.Application")
obj.MinimizeAll

最小化某窗口:

Const strTitle = "完整的窗口标题"

Dim objShell

Set objShell = CreateObject("Wscript.Shell")

While True
     If objShell.AppActivate(strTitle) Then

     Wscript.Sleep 250

     objShell.SendKeys "% "
     objShell.SendKeys "n"
     Set objShell = Nothing
     Wscript.Quit
     End If
Wend

(该vbs会一直检测指定窗口是否打开,直到检测到,并将其关闭)

(如果想执行一次,去掉循环结构即可)

 

直接运行系统的某些工具

dim wsh

set wsh=createobject("wscript.shell")

wsh.Run "control"

 

VBSendkeys如何用sendkeys模拟按下组合键

Ctrl+Alt+A      SendKeys"^%A"

Alt+F              SendKeys"%{F}"

右键窗口           Sendkeys "% "      (上面最小化的例子)

参考链接:http://www.zhishizhan.net/doc-2760X4443b45d7f158d30.html    (包含各种sendkeys问题)

 

指定某窗口并输入按键:

dim wsh
set wsh=createobject("wscript.shell") 
wscript.sleep 50
wsh.AppActivate("test.txt - Notepad") 
wsh.sendKeys "{ENTER}"

 

按键参考:

链接:http://www.jb51.net/article/4201.htm

 

用VBS控制鼠标的实现代码(获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、、、

链接:http://www.jb51.net/article/28692.htm

 

Windows 键盘基本操作

链接:http://zhidao.baidu.com/question/84441614.html

 

vbs基础篇

链接:http://www.cnblogs.com/sirrah/category/354555.html

sendkeys 链接:http://www.cnblogs.com/sirrah/articles/2348988.html

posted @   BensonLaur  阅读(460)  评论(0编辑  收藏  举报
编辑推荐:
· go语言实现终端里的倒计时
· 如何编写易于单元测试的代码
· 10年+ .NET Coder 心语,封装的思维:从隐藏、稳定开始理解其本质意义
· .NET Core 中如何实现缓存的预热?
· 从 HTTP 原因短语缺失研究 HTTP/2 和 HTTP/3 的设计差异
阅读排行:
· 周边上新:园子的第一款马克杯温暖上架
· 分享 3 个 .NET 开源的文件压缩处理库,助力快速实现文件压缩解压功能!
· Ollama——大语言模型本地部署的极速利器
· DeepSeek如何颠覆传统软件测试?测试工程师会被淘汰吗?
· 使用C#创建一个MCP客户端
点击右上角即可分享
微信分享提示