VB定时运行

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

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

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

then

msgbox

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

---