naoga

用VB制作定时发作的病毒

小诺重要提醒： 
学习病毒原理只用。。。。 
不要搞恶意破坏，否则真进了监狱后果自负！ 


用VB制作定时发作的病毒-------------------------------- 
建立一个TIMER控件，把TIMER的Interval属性设置成100 
给TIMER控件加入以下代码 
Dim a 
Private Sub Timer1_Timer() 
a = #8:00:00 PM# '发作的时间，自己可以修改 
Form1.Caption = Time '把FORM1的标题改成时间 
If Form1.Caption = a Then 
magbox "病毒发作！", 48, "注意" '这个是时间到了后自动弹出的对话框，也可以把它改成别的。 
End If 
End Sub 


接下来给FORM1加代码 

Private Sub Form_Load() 
Form1.Visible = False '在初始化过程中隐藏主窗体 
Form1.ShowInTaskbar = False '不在任务栏显示 
End Sub