相信電腦界的每個人都痛恨計算機(jī)病毒，她給我們帶來了很多麻煩和損失，可你知道編寫病毒的方法和過程嗎？在此僅以VB編寫為例，揭開她的面紗。

用VB編寫病毒需要考慮到如下幾點：

* 感染主機(jī)

首先染毒文件運行后先要判斷主機(jī)是否以感染病毒，也就是判斷病毒主體文件是否存在，如果不存在則將病毒主體拷貝到指定位置(如：將病毒文件拷貝到c:\windows\system\)，可用filecopy語句實現(xiàn)；如果病毒已感染主機(jī)則結(jié)束判斷。

例如，判斷C:\windows\system\Killer.exe是否存在，如果有則退出判斷，如果沒有則證明本機(jī)未感染病毒，立即拷入病毒文件。

病毒源文件名為game.exe

聲明部分：

""定義 FileExists% 函數(shù)

public success%

Function FileExists%(fname$)

On Local Error Resume Next

Dim ff%

ff% = FreeFile

Open fname$ For Input As ff%

If Err Then

FileExists% = False

Else

FileExists% = True

End If

Close ff%

End Function