洛阳翼展电脑

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

2019-8-6 乱云飞 代码 评论(0) 浏览(712) 标签: 模拟按键 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}"