如何检查网页是否已加载或我在 VBScript 中对 XP 和 windows 7 和 10 Internet Explorer 有错误

Question

如何验证隐形网页是否加载。
由于 Internet 连接或从网站加载页面时出现问题，我在 Internet Explorer for XP 或 windows 7 或 10 中出现 "the web page can't display" 显示错误。

需要一种方法来告诉我网页加载是否成功或有问题，以便我可以决定下一步是什么。

Answer 1

有很多方法可以检查网页是否已加载或您是否因 Internet 连接问题或网站服务器出现错误

第一种检查方法适用于所有版本的 Internet Explorer for 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 .

Answer 2

第二种方式是：

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

我用xp的Internet explorer显示的错误页面文本数组myArray和windows7和10以及一些id元素在此错误页面内显示如何将 html 页面内的任何内容添加到此数组（如 id 或 class 名称的标签或仅文本）以检查是否存在或 not.so 你知道页面加载与否。

您可以将 myArray 值替换为您的网页文本数组或 Id 或 Class 并检查是否存在于正文中网页IE下载与否让你知道你是否成功加载页面。

如何检查网页是否已加载或我在 VBScript 中对 XP 和 windows 7 和 10 Internet Explorer 有错误

How to check if web page is loaded or i have error for XP and windows 7 and 10 Internet explorer in VBScript

windows

vbscript

webpage

loading