vb 怎么设置自动开启程序

要随计算机系统的启动而启动有两种办法：

1、把程序运行参数、路径写入注册表的run项目下：

在运行输入regeid回车，找到

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

在右面窗口空白处右单击鼠标，建立--字符串，修改键名为myprg,在空白处单击一下，然后再双击myprg，在d出的窗口的数据值输入程序的路径(比如：d:\1.exe)，确定即可。

2、把程序的快捷方式复制到系统的启动文件夹，一般是：

C:\Documents and Settings\Administrator\「开始」菜单\程序\启动

在timer事件中加入(timer设置为每1000毫秒运行一次)：if

str(time)="09:00:00"

then

msgbox

"时间到！请关电脑去吃早餐！"(楼主，我是99tools，上面的代码有点BUG，改为以上，给分请给到99tools)

Private Sub Command1_Click()

MsgBox "hi"

End Sub

Private Sub Form_Load()

Command1_Click

End Sub

'过一段时间自动按可以用timer计时调用

'----------------------------------

Private Sub Timer1_Timer()

Dim s As Long

s = Hour(Time) &Minute(Time) &Second(Time)

If s = 100 Or s = 1300 Then Shell "iexplore.exe www.baidu.com"

's的为时分秒(如10:03:53则s=10353)，上面考虑1点跟13点时自动运行

'timer的interval设为1000,enabled为true

End Sub

---