ANTICHAT — форум по информационной безопасности, OSINT и технологиям

On Error Resume Next
msgbox "Внимание! Сейчас запустится накрутчик!Соединение с интернетом будет разорвано автоматически!Во время работы крутилки не двигайте МЫШЬЮ и не нажмимаете КЛАВИШИ. Все открытые браузеры закройте! Нажмите ОК или ENTER для продолжения работы крутилки"
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run "rasdial /disconnect",0
set WshShell = Nothing
interval = inputbox("Введите интервал между повторами (в секундах, минимум 30 секунд):")
if interval<30 then 
interval=30
msgbox "Минимальный интервал - 30 секунд, не борзей"
end if
interval=interval*1000
povtor = inputbox("Введите кол-во повторов для посещения")
ssilka = inputbox("Введите URL для накрутки")
for b = 1 to povtor
      Set WSHshell  = Nothing 
      Set objIE = CreateObject("InternetExplorer.Application")
      objIE.Visible = True     'Если не надо ничего видеть, то поставить False
      objIE.Navigate ssilka
      While objIE.Busy
      WScript.Sleep 200
         Wend 
      WScript.Sleep interval
      objIE.Quit
      Set objIE = Nothing 
      set WshShell = WScript.CreateObject("WScript.Shell")
      WshShell.run "rasdial /disconnect",0
      set WshShell = Nothing
next
msgbox "Накрутка закончена"
Wscript.Quit ' -выход