Серый форум — VBS: Организовать последовательный переход по ссылкам

Re: VBS: Организовать последовательный переход по ссылкам

2014-05-20T19:07:17Z

Огромное спасибо

Re: VBS: Организовать последовательный переход по ссылкам

2014-05-19T01:56:33Z

Для Хрома поправил.
У него, кстати, ключ был -–single-process, кот. позволял вкладки в одном процессе создавать, но на современных версиях у меня не заработал.

Dizzy221 пишет:

И как приостановить действие скрипта если потребуется?

Убить процесс WScript.exe.

Re: VBS: Организовать последовательный переход по ссылкам

2014-05-18T21:26:13Z

Хотя если сделать IE то всё нормально. Так что в этом нет смысла. Вот только встала проблема в том, что символы, такие как / и ? & он пишет в кодировке %2F и т.д.

Re: VBS: Организовать последовательный переход по ссылкам

2014-05-18T19:09:55Z

Flasher, по умолчанию стоит хром и он его и открывает

Re: VBS: Организовать последовательный переход по ссылкам

2014-05-18T16:01:56Z

В данном случае вообще не было нужды цитировать. Убрал.

Re: VBS: Организовать последовательный переход по ссылкам

2014-05-18T14:14:14Z

Dizzy221
Браузер и его версия какие?

P.S.: не надо цитировать всё подряд.

Re: VBS: Организовать последовательный переход по ссылкам

2014-05-18T07:55:59Z

Большое спасибо, всё отлично работает!
Но как скорректировать один нюанс: нужно чтобы открывалась не новая вкладка, а постоянно заменялась одна открытая, а то через минут 20 компьютер зависнет от такого количества вкладок. И как приостановить действие скрипта если потребуется?

Re: VBS: Организовать последовательный переход по ссылкам

2014-05-17T21:44:34Z

List = "C:\file.txt" ' список ссылок
Sec  = 30 ' секундный интервал на открытие

Dim WSH : Set WSH = CreateObject("WScript.Shell")
P = WSH.RegRead("HKEY_CLASSES_ROOT\http\shell\open\command\")
Path = Left(P, InstrRev(P, """ "))

With CreateObject("Scripting.FileSystemObject")
  If Not .FileExists(List) Then MsgBox "Файл " & List & " не существует!" : WScript.Quit : End if
  Mass = Filter(Split(.OpenTextFile(List).ReadAll, vbNewLine), ".")
  Max  = Ubound(Mass) + 2
  For Each F in Mass
    F = Trim(F) : c = c + 1
    If Left(F, 4) <> "http" Then F = "http://" & F
    If c > 1 Then
      WScript.Sleep 1000 * Sec : WSH.Exec(Path & " " & F)
      Do Until A : A = WSH.AppActivate(" " & .GetBaseName(Path)) : Loop
      WScript.Sleep 100 : If c < Max Then WSH.SendKeys "^+{TAB}^{F4}"
    Else WSH.Exec(Path & " " & F)
    End If
  Next
End With : Set WSH = Nothing

VBS: Организовать последовательный переход по ссылкам

2014-05-17T17:44:12Z

Имеется file.txt где приведен список ссылок

site1.ru
site2.ru
site3.ru

Можно ли как то осуществить последовательный переход по ссылкам с интервалом в 30 секунд?

Надеюсь на понимание и поддержку, перерыл весь софт...