czjt1234

bat

' & cls & cscript.exe /nologo /e:vbscript "%~f0" "C:\Windows" "regedit.exe;win.ini" & pause & exit

Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.NameSpace(wsh.Arguments(0))
Set oFolderItems = oFolder.Items()
oFolderItems.Filter &H40 + &H80 + &H10000, wsh.Arguments(1)
oFolderItems.InvokeVerbEx "Properties"
wsh.Sleep 60 * 1000
复制代码

把 "C:\Windows" "regedit.exe;win.ini" 改成你的目录和文件名

小白龙

回复 15# czjt1234

多谢大佬, 刚刚发现, 不加后面的延时, 窗口直接就关了, 有办法去掉延时吗?

czjt1234

回复 17# 小白龙


    不能去掉，这个 shell 就这样，除非有别的对象可以