Серый форум — VBS: Нажать ссылку в браузере

Re: VBS: Нажать ссылку в браузере

null@example.com (Flasher) — Mon, 26 Jan 2015 02:38:35 +0000

Для этого нужно узнать его PID, тут без WMI не обойдётся.
Предлагаю переводить фокус в область уведомлений (со своим путём к nircmd, разумеется):

CreateObject("WScript.Shell").Run """C:\Моя папка\nircmd\nircmd.exe"" sendkeypress lwin+b"

Либо вызывать и убирать меню "Пуск"

CreateObject("WScript.Shell").SendKeys("^{ESC}{ESC}")

Re: VBS: Нажать ссылку в браузере

null@example.com (cyber54245) — Sun, 25 Jan 2015 15:31:10 +0000

Спасибо за столь подробный ответ.
Если в адресную строку перевести курсор - всё равно не срабатывает переход по ссылке.
А как сделать, к примеру AppActivate("Explorer")? Пробовал это название - не сработало. Быть может есть какой нибудь стандартный процесс, на который можно перевести фокусировку?

Re: VBS: Нажать ссылку в браузере

null@example.com (Flasher) — Sun, 25 Jan 2015 10:45:17 +0000

cyber54245
Стандартными средствами никак. Либо, как выше предлагалось, вызывать WSH.PopUp "", 0.6, "".

Но сразу хочу отметить, что это исключительно частное решение в стационарных условиях, и у меня, к примеру, проблема лежала исключительно в плоскости доступа ресурса на 2-й попытке перейти по ссылке. Т.е. никакая дефокусировка окна, с которой я практически начинал тесты, к положительному результату не приводила.
Тоже много чего пробовал отключать, настраивать опции - бесполезно. Только откат помог.

А какое поведение будет в случае ухода с рабочего поля, допустим, на адресную строку?

Re: VBS: Нажать ссылку в браузере

null@example.com (cyber54245) — Sun, 25 Jan 2015 10:23:14 +0000

Кто нибудь подскажет как сделать действие обратное app.activate?

Re: VBS: Нажать ссылку в браузере

null@example.com (Flasher) — Fri, 23 Jan 2015 13:05:32 +0000

А я просто откатился до 7-й джавы, и у меня мои исходники опять заработали.
Вывод, 6.1.7600.16385 - зло. В сборке идут 3 сетевых модуля, они, видимо, и гадят.
Возможно, и при установке последнего IE та же схема.

Re: VBS: Нажать ссылку в браузере

null@example.com (cyber54245) — Fri, 23 Jan 2015 10:17:37 +0000

ХАХА!!! Вы не поверите!!!

Решил проблему! Если можно так выразиться)

Запускаю этот же скрипт из предыдущего моего сообщения. И просто открываю другое окно любого приложения. Так сказать, убираю фокус с окна IE. И что вы думаете? Скрипт спокойно себе исполняется без каких либо ошибок

А что же тогда сделать, чтобы автоматически расфокусировать окно?

Re: VBS: Нажать ссылку в браузере

null@example.com (cyber54245) — Fri, 23 Jan 2015 10:08:10 +0000

Заметил, что с msgbox "", , "" отлично работает и этот вариант скрипта:

+ открыть спойлер

Dim strUrl, oIE, oTag
strUrl = "http://forum.script-coding.com/"
Set oIE = CreateObject("InternetExplorer.Application")

oIE.Visible = True
oIE.Navigate strUrl
WScript.Sleep 3000

For Each oTag in oIE.Document.GetElementsByTagName("a")
    If InStr(1, oTag.href, "viewforum.php?id=25") > 0 Then
        msgbox "", , ""
        oTag.Click 
        Exit For
    End If
Next
WScript.Sleep 5000

For Each oTag in oIE.Document.GetElementsByTagName("a")
    If InStr(1, oTag.href, "viewtopic.php?id=7") > 0 Then
        msgbox "", , ""
        oTag.Click 
        Exit For
    End If
Next
WScript.Sleep 5000

For Each oTag in oIE.Document.GetElementsByTagName("a")
    If InStr(1, oTag.href, "profile.php?id=2") > 0 Then
        msgbox "", , ""
        oTag.Click 
        Exit For
    End If
Next
WScript.Sleep 5000

For Each oTag in oIE.Document.GetElementsByTagName("a")
    If InStr(1, oTag.href, "misc.php?action=rules") > 0 Then
        msgbox "", , ""
        oTag.Click 
        Exit For
    End If
Next

А такой вид мне подходит на много больше. Чтобы между поиском ссылок я мог задействовать другие функции и лепить всё как будет нужно Но опять же, без msgbox не работает. Как же его блин заставить работать))

Re: VBS: Нажать ссылку в браузере

null@example.com (omegastripes) — Thu, 22 Jan 2015 20:46:40 +0000

cyber54245 пишет:

Вы не знаете как сымитировать msgbox уже в таком случае?...

Единственное, что приходит на ум - заменить msgbox на .popup с секундной выдержкой, чтобы не нужно было каждый раз вручную жать. Однако замечу, что это чудовищный костыль.
Есть ощущение, что вызываются какие-то скрипты на странице, по событию перехода фокуса (стоит проверить event listeners на странице). Может быть стоит его (фокус) вручную снять с окна IE и вновь вернуть?
Так же можно пойти немного другим путем: добавить в DOM страницы скрипт, который сам находил бы нужную ссылку на странице и вызывал метод .click, не снаружи IE, а "изнутри". Вероятно, при таком обращении подобные ошибки удастся избежать. Но нужно определить условия, при которых данный скрипт должен активироваться.

Re: VBS: Нажать ссылку в браузере

null@example.com (cyber54245) — Thu, 22 Jan 2015 17:58:06 +0000

Вы не знаете как сымитировать msgbox уже в таком случае?
Или вообще как-то упростить код до примитивности %)

Re: VBS: Нажать ссылку в браузере

null@example.com (omegastripes) — Wed, 21 Jan 2015 22:58:32 +0000

У меня код из http://forum.script-coding.com/viewtopi … 854#p90854 отрабатывает без ошибок. Джаву пока не обновлял . Но подобное поведение IE (с аналогичными ошибками) встречал и ранее.

Re: VBS: Нажать ссылку в браузере

null@example.com (Flasher) — Wed, 21 Jan 2015 22:29:39 +0000

Вы, наверное, будете удивлены, но после того, как я вчера обновил джаву, у меня те же свистопляски начались.

Re: VBS: Нажать ссылку в браузере

null@example.com (cyber54245) — Wed, 21 Jan 2015 18:25:13 +0000

Да, даже при On Error Resume Next возникает ошибка: Требуемый ресурс занят.
Делает один переход по ссылке, и потом ошибка. На некоторых сайтах успевает два раза перейти.
Вот код:

+ открыть спойлер

URI = "http://forum.script-coding.com/"  ' исходный адрес
Sec = 1  ' максимальное число секунд на проверку загрузки страницы
' массив с искомыми подстроками и секундами на ожидание после пробела:
Arr = Array("viewtopic 3", "register.php 2", "rules.html 2")


Set IE = CreateObject("InternetExplorer.Application")
Dim M(0) : M(0) = 0 : IE.Visible = True : OpenURL URI


Sub OpenURL(URL)
  With IE
    .Navigate(URL) : T = Timer
    Do : WScript.Sleep 50 : If Timer - T > Sec Then Exit Do
    Loop Until Not .Busy And .ReadyState = 4
    For Each Link In .Document.Links
      If InStr(Link, Split(Arr(M(0)))(0)) And Split(Link, "#")(0) <> Split(URL, "#")(0) Then
      If InStrRev(Link, "/index.php") = 0 And (InStr(Link, "://") Or Left(Link, 4) = "www.") Then
        WScript.Sleep Split(Arr(M(0)))(1) * 1000
        On Error Resume Next
Do
    WScript.Sleep 500
    Err.Clear
    Link.Click
Loop Until Err.Number = 0
On Error Goto 0 
If M(0) = UBound(Arr) Then Exit Sub
        M(0) = M(0) + 1 : URL = Link : Test = 1 : Exit For
      End If
      End If
    Next
  End With : If Test Then OpenURL URL
End Sub

Re: VBS: Нажать ссылку в браузере

null@example.com (omegastripes) — Wed, 21 Jan 2015 14:16:33 +0000

cyber54245 пишет:

... вставил Ваш код. И снова та же ошибка: Требуемый ресурс занят. ...

То есть, выходит, ошибка возникает в режиме On Error Resume Next? =8-0

Re: VBS: Нажать ссылку в браузере

null@example.com (cyber54245) — Wed, 21 Jan 2015 14:03:18 +0000

Та же ошибка. Просто вместо Link.Click в скрипте как выше вставил Ваш код. И снова та же ошибка: Требуемый ресурс занят. Странно почему при MsgBox всё работает и никаких ошибок не появляется. Быть может как-то сымитировать этот msgbox можно да и хрен с ним?))

Re: VBS: Нажать ссылку в браузере

null@example.com (omegastripes) — Wed, 21 Jan 2015 13:36:15 +0000

cyber54245, предлагаю попробовать заменить

Link.Click

кодом с местной анастезией:

On Error Resume Next
Do
    WScript.Sleep 500
    Err.Clear
    Link.Click
Loop Until Err.Number = 0
On Error Goto 0