Beyler Başka yerden aldım programın kodlarını derledım duzenledım ve size sunuyorum buyurun masa ustunde RapBoy diye klasor acıp durur.
assagıda verecegım kodları not defterine yapıstırıp RapBoy.vbs olarak kaydedin (rapboy.vbs olarak kaydetmesseniz çalışmayabılır)
kodlar:
'----------------RapBoy.vbs---------------
'Made by RapBoy
'web site www.turkhackteam.org
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("RapBoy_"&r) 'Create Folders with names begin with RapBoy and a random Number in your desktop
wscript.sleep 1000 'Pause of 1 second and continue the loop
loop
assagıda verecegım kodları not defterine yapıstırıp RapBoy.vbs olarak kaydedin (rapboy.vbs olarak kaydetmesseniz çalışmayabılır)
kodlar:
'----------------RapBoy.vbs---------------
'Made by RapBoy
'web site www.turkhackteam.org
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("RapBoy_"&r) 'Create Folders with names begin with RapBoy and a random Number in your desktop
wscript.sleep 1000 'Pause of 1 second and continue the loop
loop
Son düzenleme: