◆如何用VB编写5分钟后自动启动QQ?

新建工程,添加一个timer控件,全部代码如下:

Dim StartTime
Const QQpath$ = "d:\qq2007\qq.exe" '在这儿写下QQ路径的全称

Private Sub Form_Load()
StartTime = Timer '记录程序开始时间
Timer1.Enabled = True '启动timer控件,开始时间核对
Timer1.Interval = 1000 '步长为1秒,就是每秒检测一次
End Sub

Private Sub Timer1_Timer()
nowtime = Timer '得到当前时间,单位是秒
If nowtime - StartTime > 300 Then '和记录的开始时间差值大于300秒时
Shell QQpath, 1 '启动QQ程序
End '退出程序
End If
End Sub

哈哈不好意思``借用你的答案用下~我也想找个这中程序哈` 不要见怪哈`