VBS-Bat Script

Ёлка

Root0000x07 — Tue, 20 Jan 2015 12:07:33 GMT

Скрипт Был взят с групы https://vk.com/vbs_script

1) Переименовываем в "Ёлки.bat" и запускаем.

-----------------------------------------------------------------------------------------------------------------------------

::'@echo off
::'mode con: cols=80 lines=200
::'color 0a
::'cscript //nologo //e:vbscript "%~f0" %*
::'exit /b
for wq = 1 To 2015
Randomize
j=(3*rnd)\2+1
a1 = "Я/"
a2 = "\R"
For i=1 To j
a1 = a1 + a1
a2 = a2 + a2
Next
aa = a1 + a2
bb = Left("/" + a1,Len(a1)) + Right(a2 + "\",Len(a2))
i=0
y = (Len(aa)-1)\2
If i=1 Then a = bb
If i=0 Then a = aa
i = 1 - i
y1 = y - 1
Randomize
zzz = Space(((160-18)*rnd)\2+1)
For u = 1 To y1
q = zzz & String(y," ") + Mid(a,y+1,Len(a)-y*2) + String(y," ")
wscript.echo q
wscript.sleep 130
If y>1 Then y = y - 1
If i=1 Then a = bb
If i=0 Then a = aa
i=1-i
q = zzz & String(y," ") + Mid(a,y+1,Len(a)-y*2) + String(y," ")
wscript.echo q
wscript.sleep 130
If y>1 Then y = y - 1
If i=1 Then a = bb
If i=0 Then a = aa
i=1-i
q = zzz & String(y," ") + Mid(a,y+1,Len(a)-y*2) + String(y," ")
wscript.echo q
wscript.sleep 130
y = y + 1
If i=1 Then a = bb
If i=0 Then a = aa
i=1-i
Next
For qq = 1 To 5*Rnd+3
wscript.echo
wscript.sleep 100
Next
Next

-----------------------------------------------------------------------------------------------------------------------------

Маленький безобидный скрипт

Root0000x07 — Tue, 20 Jan 2015 05:46:49 GMT

Скрипт Был взят с групы https://vk.com/vbs_script

1) Заставляет мигать лампочки у клавиатуры, а так же делает написанный текст вида: ПрИмЕр ТеКсТа

-----------------------------------------------------------------------------------------------------------------------------

Set s = CreateObject("Wscript.Shell")
do
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
loop

-----------------------------------------------------------------------------------------------------------------------------

Прикольный скрипт

Root0000x07 — Mon, 19 Jan 2015 12:50:43 GMT

Скрипт Был взят с групы https://vk.com/vbs_script

1) Вот кстати прикольный скрипт

-----------------------------------------------------------------------------------------------------------------------------

do
msgbox "Нажми OK"
msgbox "Ладно хватит"
msgbox "Я серьёзно!"
msgbox "Пошутили и хватит"
msgbox "Всё?"
msgbox "Хватит!"
msgbox "Хочешь поиграть?"
msgbox "Ладно жми!"
msgbox "Давай!"
msgbox "Я жду!"
msgbox "Да, да, да!"
msgbox "Жми!"
msgbox "Ладно"
msgbox "Попробуй закрыть!"
msgbox "Никак!"
msgbox "Я вирус!"
msgbox "И меня не остановить!"
msgbox "Жми!"
msgbox "Я убью компьютер быстрее!"
msgbox "Жми!"
msgbox "Тебе не надоело?"
msgbox "Ладно!"
loop

-----------------------------------------------------------------------------------------------------------------------------

Системный динамик пищит музыку

Root0000x07 — Mon, 19 Jan 2015 12:02:05 GMT

Скрипт Был взят с групы https://vk.com/vbs_script

1) Системный динамик пищит музыку

-----------------------------------------------------------------------------------------------------------------------------
With CreateObject("WScript.Shell")
b = "%comspec% /c echo " & Chr(7)
.Run b, 0, True
WScript.Sleep 200
.Run b, 0, True
WScript.Sleep 200
.Run b, 0, True
.Run b, 0, True
.Run b, 0, True
WScript.Sleep 200
.Run b, 0, True
.Run b, 0, True
.Run b, 0, True
.Run b, 0, True
WScript.Sleep 200
.Run b, 0, True
.Run b, 0, True
WScript.Sleep 2000
End With

-----------------------------------------------------------------------------------------------------------------------------

Bизуально пугающий скрипт

Root0000x07 — Mon, 19 Jan 2015 11:56:43 GMT

Скрипт Был взят с групы https://vk.com/vbs_script

Вот кстати визуально пугающий скрипт:
1)Нету))
2)Тоже окошко, только помимо этого закрывается explorer.exe и вырубается диспетчер задач, после нажатия "Да" все восстановится!
3)
-----------------------------------------------------------------------------------------------------------------------------
Set s = CreateObject("WScript.Shell")
s.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\disabletaskmgr",1,"REG_DWORD"
s.run"taskkill /f /im explorer.exe",0
do
a = MsgBox ("Ты лох?", 35, "Script by $h@d0w")
loop until a = 6
Set s = CreateObject("WScript.Shell")
s.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\disabletaskmgr",0,"REG_DWORD"
s.run "explorer.exe"
-----------------------------------------------------------------------------------------------------------------------------

Самый простой .vbs скрипт

Root0000x07 — Mon, 19 Jan 2015 11:53:24 GMT

Скрипт Был взят с групы https://vk.com/vbs_script

Вот пример скрипта, он даже не пугает ))
1)Я его не придумал и не буду :P
2)Вылезает окошко с вопросом "Ты лох?", и 3 кнопки (скрипт закроется только по нажатию кнопки "Да")
3)
-----------------------------------------------------------------------------------------------------------------------------
do
a = MsgBox ("Ты лох?", 35, "Script by $h@d0w")
loop until a = 6
-----------------------------------------------------------------------------------------------------------------------------