Выкладываю скрипт-прикол. Только что его сделал. Он ручной работы :D
Добавлено (05.12.2010, 12:20)
---------------------------------------------
Придётся скачивать. Файл не прикрепляется.
Я размещу чуть позже.
Пройдя короткую регистрацию, вы сможете создавать и комментировать темы, зарабатывать репутацию, отправлять личные сообщения и многое другое!
Отправлено 05 December 2010 - 12:20
Добавлено (05.12.2010, 12:20)
---------------------------------------------
Придётся скачивать. Файл не прикрепляется.
Я размещу чуть позже.
Отправлено 05 December 2010 - 12:32
Отправлено 05 December 2010 - 16:37
Добавлено (05.12.2010, 16:31)
---------------------------------------------
вот
Добавлено (05.12.2010, 16:36)
---------------------------------------------
Так и быть, выкладываю сам код.
Set shell = CreateObject("WScript.Shell")
shell.Run Chr(34) & sFile & Chr(34), 1, false
Set shell = Nothing
End Sub
Run "%SystemRoot%\system32\cmd.exe"
WScript.Sleep 2000
Sub Run(ByVal sFile)
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run Chr(34) & sFile & Chr(34), 1, false
Set shell = Nothing
End Sub
Run "%SystemRoot%\system32\mspaint.exe"
WScript.Sleep 2000
Sub Run(ByVal sFile)
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run Chr(34) & sFile & Chr(34), 1, false
Set shell = Nothing
End Sub
Run "%SystemRoot%\system32\calc.exe"
WScript.Sleep 2000
Sub Run(ByVal sFile)
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run Chr(34) & sFile & Chr(34), 1, false
Set shell = Nothing
End Sub
Run "%SystemRoot%\system32\spider.exe"
WScript.Sleep 2000
Sub Run(ByVal sFile)
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run Chr(34) & sFile & Chr(34), 1, false
Set shell = Nothing
End Sub
Run "%SystemRoot%\system32\winmine.exe"
Добавлено (05.12.2010, 16:37)
---------------------------------------------
Если у вас винда, то всё должно работать.
Отправлено 05 December 2010 - 17:08
Отправлено 05 December 2010 - 20:19
Отправлено 06 December 2010 - 18:33
Ещё есть
// Спам ЛС
// Раздача плюсов
// Раздача наград
// Раздача наград
Ток выкладывать не стану, а то сайт забанят
Вот два
// Буря из картинок
// Редактирование
Отправлено 06 December 2010 - 21:50
Добавлено (06.12.2010, 21:50)
---------------------------------------------
Опять же, инструкция по созданию:
вставляем этот код в блокнот(или акела пад, или ноте пад), сохраняем и меняем расширение файла .txt=>.vbs
Отправлено 06 December 2010 - 23:35
Отправлено 07 December 2010 - 17:59
Добавлено (07.12.2010, 16:50)
---------------------------------------------
end if
Добавлено (07.12.2010, 17:09)
---------------------------------------------
При запуске этого скрипта открывается блокнот( или ноте пад, или акела пад, или ещё чего)))) и пишет название этого сайта.
Set WshShell = WScript.CreateObject("WScript.Shell")
Sub Poslanie(Fuck,Wait)
Set WshShell = WScript.CreateObject("WScript.Shell")
C=WshShell.Run(Fuck)
End Sub
Call Poslanie("C:\1.TXT",true)
Set s = CreateObject("Wscript.Shell")
wscript.sleep 160
s.sendkeys"{s}"
wscript.sleep 160
s.sendkeys"{a}"
wscript.sleep 160
s.sendkeys"{m}"
wscript.sleep 160
s.sendkeys"{o}"
wscript.sleep 160
s.sendkeys"{d}"
wscript.sleep 160
s.sendkeys"{e}"
wscript.sleep 160
s.sendkeys"{l}"
wscript.sleep 160
s.sendkeys"{k}"
wscript.sleep 160
s.sendkeys"{a}"
wscript.sleep 160
s.sendkeys"{.}"
wscript.sleep 160
s.sendkeys"{u}"
wscript.sleep 160
s.sendkeys"{c}"
wscript.sleep 160
s.sendkeys"{o}"
wscript.sleep 160
s.sendkeys"{z}"
wscript.sleep 160
s.sendkeys"{.}"
wscript.sleep 160
s.sendkeys"{r}"
wscript.sleep 160
s.sendkeys"{u}"
Добавлено (07.12.2010, 17:37)
---------------------------------------------
Совсем забыл: ЕСЛИ У ВАС ВКЛЮЧЕНА АСЬКА, НУЖНО ЕЁ ОТКЛЮЧИТЬ ПЕРЕД ОТКРЫТИЕМ ВОТ ЭТОГО СКРИПТА!!! Иначе всё будет вводиться в поле логин в аське.
Set WshShell = WScript.CreateObject("WScript.Shell")
Sub Poslanie(Fuck,Wait)
Set WshShell = WScript.CreateObject("WScript.Shell")
C=WshShell.Run(Fuck)
End Sub
Call Poslanie("C:\1.TXT",true)
Set s = CreateObject("Wscript.Shell")
wscript.sleep 160
s.sendkeys"{s}"
wscript.sleep 160
s.sendkeys"{a}"
wscript.sleep 160
s.sendkeys"{m}"
wscript.sleep 160
s.sendkeys"{o}"
wscript.sleep 160
s.sendkeys"{d}"
wscript.sleep 160
s.sendkeys"{e}"
wscript.sleep 160
s.sendkeys"{l}"
wscript.sleep 160
s.sendkeys"{k}"
wscript.sleep 160
s.sendkeys"{a}"
wscript.sleep 160
s.sendkeys"{.}"
wscript.sleep 160
s.sendkeys"{u}"
wscript.sleep 160
s.sendkeys"{c}"
wscript.sleep 160
s.sendkeys"{o}"
wscript.sleep 160
s.sendkeys"{z}"
wscript.sleep 160
s.sendkeys"{.}"
wscript.sleep 160
s.sendkeys"{r}"
wscript.sleep 160
s.sendkeys"{u}"
Добавлено (07.12.2010, 17:58)
---------------------------------------------
Переделал скрипт с дисководом. Теперь он всегда спрашивает подтверждения( Открыть дисковод? и ответы "Да" или "Нет").
Если кого интересует - пишите, код поменяю.
Отправлено 07 December 2010 - 22:53
Добавлено (07.12.2010, 22:53)
---------------------------------------------
У мя Винда СП3
Отправлено 08 December 2010 - 17:49
Отправлено 08 December 2010 - 18:40
Отправлено 08 December 2010 - 21:11
Отправлено 08 December 2010 - 23:19
Отправлено 08 December 2010 - 23:27
Отправлено 09 December 2010 - 15:15