Question

求一个定时自动启动程序的VBS代码

如：
开机后10分钟
打开IEXPLORER.EXE
开机后20分钟
打开XXX.EXE

Answer 1

我来写个你试试看。

On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.GetFile(WScript.ScriptFullName).Copy("C:\启动.VBS")
Set R = CreateObject("WScript.Shell")
R.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\启动","C:\启动.VBS"
WScript.Sleep 60000
R.Run "IEXPLORER.EXE"
WScript.Sleep 60000
R.Run "XXX.EXE"

Answer 2

把vbs丢在自动开机组里（最好是你自己的）。
vbs Code：

Dim wShell
Set wShell=CreateObject("Wscript.Shell")
wShell.Run "cmd.exe /c for /f "&Chr(34)&"skip=2 tokens=1"&Chr(34)&" %1 in ('at') do at %1 /del",False
wShell.Run "cmd.exe /c at " & DateAdd("n",10,Time) & " IExplorer.exe",False
wShell.Run "cmd.exe /c at " & DateAdd("n",20,Time) & " XXX.exe",False