求一个能在系统启动结束后每隔一定时间（1-2分钟）依次打开几个程序的小软件。

现在开机的时候自动打开QQ、桌面精灵、酷狗等多个程序，让他们随计算机启动的话，就会卡机，能否编小软件，开机的时候启动这个软件，等系统完成启动后2分钟，就每隔1-2分钟自动依次启动其他软件？

添加一个timer控件

const filecount=2
dim ExeFiles (filecount-1)as string
dim nown as long

sub form_load()
ExeFiles(0)= "c:\windows\notepad.exe" '软件可执行文件的路径
ExeFiles(1)= "x:\xxxxxx\xxxxx.exe"
timer1.interval=60*1000'60秒
timer1.enabled=true
show
' me.hide'隐藏主窗口
end sub

sub timer1_timer()
on error resume next'防止运行不存在的exe文件而报错
shell exefiles(nown)
nown=nown+1
if nown=filecount then unload me
end sub

晕死，以为是VB区，给了你个VB6的例子，换个脚本的吧
把下面的内容复制到记事本里。依照注释，你可以按你的要求修改 filecount和ExeFiles的值使之符合你的要求
另存为xxxxx.vbs
然后把这个VBS文件复制到“开始”－“程序”－“启动”中使其开机自动运行即可

'功能：依次运行指定程序，有时间间隔
on error resume next'防止运行不存在的exe文件而报错,可有可无
DIM objShell
Set objShell = WScript.CreateObject("WScript.Shell")

dim ExeFiles(),filecount
dim nown
filecount=2 '要执行的程序数目
redim ExeFiles(filecount-1)

ExeFiles(0)= "c:\windows\notepad.exe" '软件可执行文件的路径 ，注意序数以0开始
ExeFiles(1)= "x:\xxxxxx\xxxxx.exe '第二个序数是1 ，以下依次类推
'ExeFiles(……

objShell.Sleep 120*1000 '先等120秒
for nown=0 to filecount-2 '依次运行
objShell.Run exefiles(nown)
objShell.Sleep 60*1000 '间隔60秒
next
objShell.Run exefiles(filecount-1)

系统启动网卡速度太慢。自己重装系统就好了

360安全卫士有这个功能-延迟启动