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

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

null@example.com (Dizzy221) — Tue, 20 May 2014 19:07:17 +0000

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

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

null@example.com (Flasher) — Mon, 19 May 2014 01:56:33 +0000

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

Dizzy221 пишет:

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

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

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

null@example.com (Dizzy221) — Sun, 18 May 2014 21:26:13 +0000

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

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

null@example.com (Dizzy221) — Sun, 18 May 2014 19:09:55 +0000

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

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

null@example.com (alexii) — Sun, 18 May 2014 16:01:56 +0000

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

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

null@example.com (Flasher) — Sun, 18 May 2014 14:14:14 +0000

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

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

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

null@example.com (Dizzy221) — Sun, 18 May 2014 07:55:59 +0000

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

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

null@example.com (Flasher) — Sat, 17 May 2014 21:44:34 +0000

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: Организовать последовательный переход по ссылкам

null@example.com (Dizzy221) — Sat, 17 May 2014 17:44:12 +0000

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

site1.ru
site2.ru
site3.ru

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

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