|
|
3#

楼主 |
发表于 2018-6-8 01:13:52
|
只看该作者
- set ws=createobject("wscript.shell")
- Set objShell = Wscript.CreateObject("Wscript.Shell")
- objShell.Run "FolderChangesView.exe"
- Wscript.Sleep 200
- ws.appactivate "FolderChangesView"
- Wscript.Sleep 100
- objShell.SendKeys("{f6}")
- Wscript.Sleep 200
- Dim WSHShell
- Set WSHShell=WScript.CreateObject("WScript.Shell")WSHShell.Run "Rundll32.exe user32.dll,LockWorkStation", 0
复制代码 |
|