模拟按键 - 翼展电脑服务中心


这个代码帮我省了不少力,自动设置资源管理器的图标样式为中等图标

2019-8-6 乱云飞 评论(0) 浏览(44) 标签: 模拟按键 VBS 快捷键 设置图标 中等图标

on error resume next
'自动设置资源管理器的图标样式为中等图标
'VBS by 80c.cc  2019-8-6
Set Shell = CreateObject("WScript.Shell")
WScript.Sleep 1500
Shell.run "C:\windows"
WScript.Sleep 1500
Shell.SendKeys "^{a}"
WScript.Sleep 1500
Shell.SendKeys "^"+"%"+"3"
WScript.Sleep 1500
Shell.SendKeys "^%{3}"
WScript.Sleep 1500
Shell.SendKeys "%{V}"
WScript.Sleep 1500
Shell.SendKeys "{Y}"
WScript.Sleep 1500
Shell.SendKeys "{ENTER}"
WScript.Sleep 1500
Shell.SendKeys "^{TAB}"
WScript.Sleep 1500
Shell.SendKeys "{L}"
WScript.Sleep 1500
Shell.SendKeys "{ENTER}"
WScript.Sleep 1500
Shell.SendKeys "%{F4}"
WScript.Sleep 1500
Shell.SendKeys "%{F4}"

快递单号自动录入程序极速版

2019-7-23 乱云飞 评论(0) 浏览(49) 标签: 模拟按键 快递单号 自动录入 批量录入 批量输入 极速版

未命名-1.fw.png

一个好玩的小程序

2019-6-19 乱云飞 评论(0) 浏览(8) 标签: VB源码 按键处理 模拟按键 单号录入

[该内容已加密,请点击标题输入密码访问]
预ICP备10086-001号 © 翼展网/80C.CC 技术支持/洛阳翼展科技
TEL / 13213610060 QQ / 345794501
Powered by emlog