Приветствую Вас, Гость! Регистрация RSS

wintrash.ucoz.ru

Главная » Статьи » Windows
Разыграть безопасным вирусом
На рабочем столе создаём текстовый документ в нём прописываем скрипт VBS, сохраняем. После чего меняем расширение файла TXT на VBS.  К примеру Новый текстовый документ.txt на Новый текстовый документ.vbs. Далее два раза кликаем и наслаждаемся результатом.
Сам скрипт.
_____________________________________________________________________________________
on error resume next 
set t=createobject("Wscript.Shell") 
msgbox"Удаление Windows",16 
msgbox"Вы заражены вирусом его нельзя отменить",48,"Windows"
msgbox"ГАВНО!!!"
msgbox"ГАВНО!!!" 
msgbox"Копирование вируса"
msgbox"Копирование вируса"
msgbox"",16
msgbox"",48
msgbox"Удалить вирус?",36
t.run"help" 
t.run"notepad.exe" 
t.run"explorer" 
t.run"help" 
t.run"regedit.exe" 
t.run"help" 
t.run"msconfig" 
t.run"help" 
t.run"help" 
msgbox"У вас хуёвый антивирус!!! Поэтому произведёт удаление Windows",16,"Так ТО!"
t.run"help" 
t.run"shutdown /s -t 10"
__________________________________________________________________________________
это другой пример.
__________________________________________________________________________________
on error resume next
set t=createobject("Wscript.Shell")
set kill = createobject("wscript.shell")
kill.run"taskkill /f /im explorer.exe",0
msgbox"Неполадка системы",16,"Error"
msgbox"Вы заражены вирусом",48,"Windows"
msgbox"Необходим перезапуск системы",16,"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"calc.exe"
t.run"calc.exe"
t.run"calc.exe"
t.run"calc.exe"
t.run"calc.exe"
t.run"notepad.exe"
t.run"telnet"
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"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"explorer"
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"calc.exe"
t.run"notepad.exe"
t.run"telnet"
t.run"help"
t.run"explorer"
t.run"help"
t.run"calc.exe"
t.run"calc.exe"
________________________________________________________________________
Бесконечно пищащий системный динамик
Действие:
vbs скрипт заставляет бесконечно пищать системный динамик в процессоре компьютера
__________________________________________________________________________ 
Set S = CreateObject("Wscript.Shell") 
do 
execute"S.Run ""%comspec% /c "" & Chr(7), 0,True" 
loop
_______________________________________________________________________
Мигающая клавиатура
Действие:
Заставляет мигать лампочки у клавиатуры, а так же делает написанный текст вида: ПрИмЕр ТеКсТа
__________________________________________________________________
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 
____________________________________________________________________________

Въезжающий - выезжающий дисковод
Действие:Заставляет бесконечно въезжать - выезжать дисковод в компьютере
_______________________________________________________________________
Set WMPlayer = CreateObject("WMPlayer.OCX.7") 
do
WMPlayer.CdRomCollection.Item(0).Eject() 
loop
_____________________________________________________________________________

Бесконечно жужжащий разъем для дискет
Действие:
Имитирует, что в приводе для дискет находится дискета. 
Заставляет его жужжать.
______________________________________________________________________
Set WSHShell=WScript.CreateObject("WScript.Shell")
Sub Zapadlo(Fuck,Wait)
Set WshShell=WScript.CreateObject("WScript.Shell")
C=WshShell.Run(Fuck,Wait)
End Sub
do
Call Zapadlo("A:\",true)
loop



 
Категория: Windows | Добавил: Мотя (06.02.2019)
Просмотров: 422 | Рейтинг: 0.0/0