Как проверить, загружена ли веб-страница или у меня ошибка для XP и Windows 7 и 10 Internet Explorer в VBScript - PullRequest
Новая
       22

Как проверить, загружена ли веб-страница или у меня ошибка для XP и Windows 7 и 10 Internet Explorer в VBScript

0 голосов
/ 14 сентября 2018

Как проверить, загружена или нет невидимая веб-страница.
Из-за проблем с подключением к Интернету или загрузкой страницы с веб-сайта я получаю сообщение об ошибке, например, «веб-страница не отображается» в Internet Explorer для XP или Windows 7 или 10.

Нужен способ сообщить мне, успешно ли загружена веб-страница или возникла проблема, чтобы я мог решить, что делать дальше.

Ответы [ 2 ]

0 голосов
/ 14 сентября 2018

Второй способ: 

On Error Resume Next         
'open the webpage
 Set objIE = wscript.CreateObject("InternetExplorer.Application")
 objIE.visible = 0
 objIE.ToolBar = 0
 objIE.statusbar=0
 objIE.Navigate "https://www.muslimpro.com/Prayer-times-Mecca-Saudi-Arabia-104515"
 While objIE.Busy Or objIE.ReadyState <> 4 : WScript.Sleep 100 : Wend

'check webpage        
 webTXT=objIE.Document.Body.innerHTML
myArray=array("The page cannot be displayed","Internet Explorer cannot display the webpage","not connected to a network","notConnectedTasks","errorText","errorCodeAlign")
For Each item In myArray
If  InStr(1,webTXT,item,1)>0  Then
myMsg="Webpage didn't loaded .Try again."
Exit For 
Else 
myMsg="Webpage loaded successfully."
End If 
Next
MsgBox myMsg

objIE.Quit  
WScript.Quit

Я использовал таким образом массив myArray отображения текста страницы ошибки через Internet Explorer для xp и windows 7 и 10 и некоторые элементы id на этой странице ошибки, чтобы показать, как можно добавить что-либо внутри html-страницу к этому массиву (например, теги id или class имен или просто текст), чтобы проверить, существуют ли они или нет. Итак, вы знаете, загружается страница или нет.

Вы можете заменить myArray значениями на массив текста вашей веб-страницы или Id или Class и проверить, есть ли в теле веб-страницы загрузка IE или нет, так что у вас есть идея, что вы добились успеха загрузить страницу или нет.

0 голосов
/ 14 сентября 2018

Существует множество способов проверить, загружена ли веб-страница или возникла ошибка из-за проблемы с подключением к Интернету или сервера веб-сайта.

. Первый способ проверки - для всех версий Internet Explorer для Xp или windows 7 или10 

On Error Resume Next 
'clean the cookies of Internet explorer first
CreateObject("WScript.Shell").Run "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2",0,False 
WScript.Sleep 1000

'open the webpage
 Set objIE = wscript.CreateObject("InternetExplorer.Application")
 objIE.visible = 0
 objIE.ToolBar = 0
 objIE.statusbar=0
 objIE.Navigate "http://www.muslimpro.com/Prayer-times-Mecca-Saudi-Arabia-104515"  'change "https" to "http"
    While objIE.Busy Or objIE.ReadyState <> 4 : WScript.Sleep 100 : Wend


'check webpage
If objIE.LocationName=objIE.LocationURL Then
MsgBox "webpage did not loaded try again"
ElseIf objIE.LocationName <> objIE.LocationURL Then
MsgBox "webpage loaded successfully  "
End If

objIE.Quit  
WScript.Quit

Важное примечание: вы должны изменить свой URL HTTPS на HTTP.

...