高级系统设置,现在还有问题不会发送空格键
2019-8-6 乱云飞 评论(0) 浏览(288) 标签: VBS 系统设置 控制面板
dim Shell Set Shell = WScript.CreateObject("WScript.Shell") Shell.Run"rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3" 'Shell.Run"cmd.exe /c rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3",0 WScript.Sleep 1000 Shell.AppActivate "系统属性" Shell.SendKeys " "
这个代码帮我省了不少力,自动设置资源管理器的图标样式为中等图标
2019-8-6 乱云飞 代码 评论(0) 浏览(306) 标签: 模拟按键 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}"
VBS以管理员身份运行程序
2019-8-4 乱云飞 评论(0) 浏览(291) 标签: VBS 管理员权限
Option Explicit RunAsAdmin Msgbox CreateObject("WScript.Shell").CurrentDirectory ' 以管理员身份运行 By Yu2n Sub RunAsAdmin() Dim oItems, vItem, sVer, nVer, vArg, sArgs, sCurDir Set oItems = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem") For Each vItem In oItems sVer = vItem.Version Next Set oItems = Nothing nVer = Clng(Split(sVer, ".")(0) & Split(sVer, ".")(1)) If nVer >= 60 Then If Not WScript.Arguments.Named.Exists("RunAsAdmin") Then For Each vArg In WScript.Arguments sArgs = sArgs & " """ & vArg & """" Next sArgs = sArgs & " /RunAsAdmin:True" CreateObject("Shell.Application").ShellExecute "WScript.exe", _ """" & WScript.ScriptFullName & """" & sArgs, "", "runas", 1 WScript.Quit(0) Else sCurDir = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\") -1) CreateObject("WScript.Shell").CurrentDirectory = sCurDir End If End If End Sub
激活窗口,只写窗口标题前半部分就行
2019-8-2 乱云飞 评论(0) 浏览(277) 标签: 批处理 VBS 激活窗口
Set WshShell = CreateObject("WScript.Shell")WshShell.AppActivate "任务管理"
WshShell.SendKeys "{Enter}"