【3.A.S.T】网络安全爱好者 - Powered by Discuz! Board

标题: 用VB制作定时发作的病毒 [打印本页]

作者: 小雨NEIL 时间: 2008-9-29 09:23 标题: 用VB制作定时发作的病毒

用VB制作定时发作的病毒
建立一个TIMER控件，把TIMER的Interval属性设置成100

给TIMER控件加入以下代码

Dim a

Private Sub Timer1_Timer()

a = #0: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

欢迎光临【3.A.S.T】网络安全爱好者 (http://3ast.com./)