最近打算把原来的东西搬一搬清理一下,一些可能有点用的部分就放在博客存着吧。
1.建立delay.vbs,代码:
Set ws = CreateObject(
"Wscript.Shell")
ws
.run "cmd /c delay.bat",vbhide
2.delay.bat,代码:
@echo off
echo Wscript.Sleep WScript.Arguments(
0) >
%tmp%\delay1.vbs
cscript
notepad
del/f
%tmp%\delay1.vbs
运行时点delay.vbs就好了。
用Hide_run.vbs,格式 Hide_Run.vbs [command1] … :
Set objArgs=WScript.Arguments
For I=
0 to objArgs.Count-
1
strArgs=objArgs(I)
if strArgs<>
"" then HideRun(strArgs)
Next
function HideRun(h)
set oWSl=WScript.
CreateObject(
"WScript.Shell")
rtn=oWSl.run(h,
0,
false)
end function
转载请注明原文地址: https://ju.6miu.com/read-972073.html