高级系统设置，现在还有问题不会发送空格键
2019-8-6 乱云飞 评论(0) 浏览(63) 标签: 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) 浏览(64) 标签: 模拟按键 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) 浏览(50) 标签: 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