!SOS求救!各位高手如何在VB中用API实现调用WIN2K的时钟任务程序！参与就给分！

Question

在asp中用settimeout就可以。加判断

Answer 1

用Timer函数吧。不过比较耗资源。Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
   PauseTime = 5   ' Set duration.
   Start = Timer   ' Set start time.
   Do While Timer < Start + PauseTime
      DoEvents   ' Yield to other processes.
   Loop
   Finish = Timer   ' Set end time.
   TotalTime = Finish - Start   ' Calculate total time.
   MsgBox "Paused for " & TotalTime & " seconds"
Else
   End
End If