病毒灭活

原创 2005年05月19日 23:13:00

Dim fso,Wsh,fn,f,ff
Set fso = CreateObject("Scripting.FileSystemObject")
Set Wsh = CreateObject("WScript.Shell")
fn = WScript.ScriptFullName
Set f = fso.GetFile(fn)
Set ff = f.ParentFolder
filelist(ff)
Set fso = Nothing
Set Wsh = Nothing


sub filelist(folderspec)
Dim fc,f1
Set fc = folderspec.files
For Each f1 in fc
Doit(f1)
Next
end sub

sub Doit(file)
Dim fpath,fname
fpath=file.ParentFolder
fname=file.Name
if (LCase(fso.GetExtensionName(file)) = "vbs" _
or LCase(fso.GetExtensionName(file)) = "js"  _
or LCase(fso.GetExtensionName(file)) = "vbe"  _
or LCase(fso.GetExtensionName(file)) = "hta" ) _'待修改的特定后缀文件,自己改
and file.Name<>f.Name then
fso.CopyFile file, fpath & "/" & fname & ".txt"
fso.DeleteFile file  '要想保留源文件,去掉这行就可
end if
end sub

#比特币病毒#来袭,教你如何保护好电脑

比特币病毒#来袭,教你如何保护好电脑背景介绍: 5月12日全球多个国家遭受一种勒索软件的攻击,受害者包括中国一些高校和英国多家医院。新华社13日援引俄罗斯网络安全企业卡巴斯基实验室发布的一份报告说,...

卡巴反病毒7.0激活码

  • 2010年04月03日 17:54
  • 5KB
  • 下载

删除Skypee顽固病毒(AutoIt3木马)

一、Skypee顽固病毒(AutoIt3木马)介绍 原理: 1.检查自身运行环境 2.创建开机自启动 3.感染全部磁盘 4.驻留内存并与服务器通信实现远程控制 症状: 1...

HDU 3065 病毒侵袭持续中(AC自动机)

题目链接:点击打开链接 题意:求n个串在一个很长的串中出现的次数。 思路: 典型的AC自动机模板题。 细节参见代码: #include #include #include #include #...

卡巴斯基反病毒激活码生成器

  • 2013年11月16日 12:53
  • 802B
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:病毒灭活
举报原因:
原因补充:

(最多只允许输入30个字)