Question

我对VBScript或任何脚本都很新。

我希望脚本检查是否加载了图像。下面是我遇到困难的脚本。

strURL="https://www.Test.com/" 

strUser="******" 

strPass="******" 

Set oIE = WScript.CreateObject("InternetExplorer.Application","IE_")  
Timeout=20 'seconds  
oIE.visible=1 : BeginTimer = Timer  
oIE.Navigate strURL  
i=0 : bElementsLoaded=false  
Set CODA_Element_1 = Nothing
Do While (oIE.ReadyState<>4 Or Not(bElementsLoaded)) And i < Timeout  
WScript.Sleep(1000):i=i+1  
On Error Resume Next 

  Set CODA_Element_1 = oIE.Document.getElementById("user")
  Set CODA_Element_2 = oIE.Document.getElementById("password")
  Set CODA_Element_3 = oIE.Document.getElementById("next")


   If     (Not(CODA_Element_1 is Nothing)) Then  

    bElementsLoaded=true  

   End If 

On Error Goto 0  

Loop 

CODA_Element_1.value=strUser 
CODA_Element_2.value=strPass 
CODA_Element_3.Click()

从这里开始我不知道....我想检查的图像是/codaprod/images/portal.jpg

在下面的源代码片段中

<DIV id="esisplitpanelower" class="scroller" style="height:100%; overflow:auto">
<TABLE cellpadding=0 cellspacing=0  height="100%" width="100%">
<TR><TD width="100%" height="100%"><TABLE cellpadding=0 cellspacing=0  height="100%" width="100%">
<TR><TD align="center" valign="top" width="100%" height="100%"><TABLE cellpadding=0 cellspacing=3  align="center" valign="top" height="100%" width="100%">
<TR><TD align="center" width="100%" height="100%"><TABLE cellpadding=0 cellspacing=3  align="center" height="100%" width="100%">
<TR><TD align="center"><IMG src="/codaprod/images/portal.jpg" title="Home Page">
</TD>
</TR></TABLE>
</TD>
</TR></TABLE>
</TD>
</TR></TABLE>
</TD>
</TR></TABLE>
</DIV>

有人可以告诉我如何检查这张图片是否已加载？如果加载显示msgbox "Working!"并且未加载图像，则msgbox "Not Working!"

Answer 1

一种方法是使用<img>的onload（）方法。

<script type="text/vbscript">
sub loadImage()
  msgbox "Image is loaded"
end sub
</script>

<img src="anyold.gif" onload="loadImage">

W3Schools提供同样的JavaScript版本：http://www.w3schools.com/jsref/event_img_onload.asp

Answer 2

您可以使用图片对象的完整属性进行检查 http://www.w3schools.com/jsref/prop_img_complete.asp

以下是一个例子：

For Each pix In oIE.document.images
  Do Until pix.complete=true 
    WScript.Sleep 10
  Loop
Next

您需要根据精确的图像进行定制，可能需要比较图像对象的 src 属性，以便检查是否加载了您想知道的精确图像。

用于检查图像是否已加载的VBScript

2 个答案: