Вывод, 6.1.7600.16385 - зло. В сборке идут 3 сетевых модуля, они, видимо, и гадят.
Возможно, и при установке последнего IE та же схема.]]>
CreateObject("WScript.Shell").Run """C:\Моя папка\nircmd\nircmd.exe"" sendkeypress lwin+b"Либо вызывать и убирать меню "Пуск"
CreateObject("WScript.Shell").SendKeys("^{ESC}{ESC}")Но сразу хочу отметить, что это исключительно частное решение в стационарных условиях, и у меня, к примеру, проблема лежала исключительно в плоскости доступа ресурса на 2-й попытке перейти по ссылке. Т.е. никакая дефокусировка окна, с которой я практически начинал тесты, к положительному результату не приводила.
Тоже много чего пробовал отключать, настраивать опции - бесполезно. Только откат помог.
А какое поведение будет в случае ухода с рабочего поля, допустим, на адресную строку?
]]>
Решил проблему! Если можно так выразиться)
Запускаю этот же скрипт из предыдущего моего сообщения. И просто открываю другое окно любого приложения. Так сказать, убираю фокус с окна IE. И что вы думаете? Скрипт спокойно себе исполняется без каких либо ошибок
А что же тогда сделать, чтобы автоматически расфокусировать окно?
]]>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 не работает. Как же его блин заставить работать))
Вы не знаете как сымитировать msgbox уже в таком случае?...
Единственное, что приходит на ум - заменить msgbox на .popup с секундной выдержкой, чтобы не нужно было каждый раз вручную жать. Однако замечу, что это чудовищный костыль.
Есть ощущение, что вызываются какие-то скрипты на странице, по событию перехода фокуса (стоит проверить event listeners на странице). Может быть стоит его (фокус) вручную снять с окна IE и вновь вернуть?
Так же можно пойти немного другим путем: добавить в DOM страницы скрипт, который сам находил бы нужную ссылку на странице и вызывал метод .click, не снаружи IE, а "изнутри". Вероятно, при таком обращении подобные ошибки удастся избежать. Но нужно определить условия, при которых данный скрипт должен активироваться.
. Но подобное поведение IE (с аналогичными ошибками) встречал и ранее.]]>
]]>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... вставил Ваш код. И снова та же ошибка: Требуемый ресурс занят. ...
То есть, выходит, ошибка возникает в режиме On Error Resume Next? =8-0
]]>Link.Clickкодом с местной анастезией:
On Error Resume Next
Do
WScript.Sleep 500
Err.Clear
Link.Click
Loop Until Err.Number = 0
On Error Goto 0