我用VB自己弄了个计时器,源代码是:
Dim RunCount As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
RunCount = 0
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
RunCount = RunCount + 1
If RunCount >= 3300 Then
MsgBox "时间快到了"
Timer1.Enabled = False
End If
Command1.Caption = Int(RunCount / 60) & "分钟" & RunCount Mod 60 & "秒"
End Sub

生成的exe文件会被误杀

用户系统信息：Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; TencentTraveler 4.0; .NET CLR 2.0.50727)