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
版权声明 本博客所有的原创文章,作者皆保留版权。转载必须包含本声明,保持本文完整,并以超链接形式注明作者 BensonLaur 和本文原始地址: https://www.cnblogs.com/BensonLaur/p/5234529.html |
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· go语言实现终端里的倒计时
· 如何编写易于单元测试的代码
· 10年+ .NET Coder 心语,封装的思维:从隐藏、稳定开始理解其本质意义
· .NET Core 中如何实现缓存的预热?
· 从 HTTP 原因短语缺失研究 HTTP/2 和 HTTP/3 的设计差异
· 周边上新:园子的第一款马克杯温暖上架
· 分享 3 个 .NET 开源的文件压缩处理库,助力快速实现文件压缩解压功能!
· Ollama——大语言模型本地部署的极速利器
· DeepSeek如何颠覆传统软件测试?测试工程师会被淘汰吗?
· 使用C#创建一个MCP客户端