0

以下は、現在取り組んでいる自動化スクリプトの開始部分です。スクリプトは IE を開き、URL に移動してログオン資格情報を入力します。次に、画像がロードされているかどうかを確認する必要があります ("/codaprod/images/portal.jpg")... 私は本当に多くのことを知りません。以下のコードを最後に追加するまで、スクリプトは正常に機能します。

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

<img src="/codaprod/images/portal.jpg" onload="loadImage">

このコードのスニペットに何か問題がありますか、それとも元のコードに何か不足していますか?

以下は、私が使用している完全な VBScript です。

strURL="https://WEBADDRESS.com/codaprod/servlet/HTMLCompiler?app=com.coda.common.esi.framework.apps.Logon" 

strUser="USERNAME" 

strPass="PASSWORD" 


 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()  

wscript.sleep 3000

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

<img src="/codaprod/images/portal.jpg" onload="loadImage">

読んでくれてありがとう。ヒントやヒントがあれば遠慮なく指摘してください。再度、感謝します

4

2 に答える 2

0

これを修正するには、元の追加を取り除いて、これを使用してみてください。

If GetImgStatus("/codaprod/images/portal.jpg", oIE) = true Then
MsgBox("Image is loaded")
End If



Function GetImgStatus(source, ie)
Dim i

For Each i in ie.Document.GetElementsByTagName("img")
If i.src = source Then
GetImgBySource = i.complete
End If

End Function

スクリプト タグは、HTML ドキュメント内からスクリプトを実行するときに使用されます。

乾杯、LC

于 2013-06-16T22:23:23.377 に答える