其实定时运行程序的VB原理很简单,有些基础的就能知道。
首先建立一个TIMER控件,把TIMER的Interval属性设置成100
给TIMER控件加入以下代码
Private Sub Timer1_Timer()
Dim a
a = #12:00:00 AM# ’发作的时间,自己可以修改
Form1.Caption = Time ’把FORM1的标题改成时间以便form写内容
If Form1.Caption = a Then
msgbox "Your Computer Have virus!", 48, "Notice" ’这个是时间到了后自动弹出的对话框,也可以把它改成别的。也可以不提示。!
End If
End Sub

您当前的位置:
