在vb中如何指定时间打开某个程序.?

在窗体里插入Timer控件

Private Sub Form_Load()
Timer1.Interval = 1000 '一定要1000
End Sub

Private Sub Timer1_Timer()
Dim s As String
Dim d As String
s = "13:00:00" '如果你的系统是12小时制就输入 1:00:00
d = CStr(Time)
If d = sThen
Shell ("你要运行的EXE文件的路径")
End If

End Sub

VBS就可以搞定，代码如下：
do
set wshell=wscript.createobject("wscript.shell")
if time="13:00:00" then
wshell.run "c:\1.exe"
end if
wscript.sleep 60000
loop
将以上内容保存为.vbs就可以了。