最近打算把原来的东西搬一搬清理一下,一些可能有点用的部分就放在博客存着吧。
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 //b //nologo %tmp%\delay1.vbs 5000
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