VBScript 80004005;按預期工作了幾個小時，突然不是

Question

我是VBScripting的新手。對不起，或者缺少必要的信息。我會盡我所能包括我能幫助你的一切。

我的問題是，當我執行該腳本，我得到以下錯誤：

• Line: 22
• Char: 5
• Error: Unspecified error
• Code: 80004005
• Source: (null)

什麼奇怪的是，我一直在運行相同的腳本被多次整天沒有任何問題。現在，當我運行它時，顯示錯誤。腳本中沒有任何更改。我試過重新啓動，但那似乎什麼也沒做。

下面是代碼：

Call Main 

Function Main 
Dim IE 
Dim pin 
Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_") 
Set objShellApp = CreateObject("Shell.Application") 
Set IE2 = WScript.CreateObject("InternetExplorer.Application", "IE_") 

pin=inputbox("Pin: ","Enter the pin to continue","") 

IE.Visible = True 
IE.Navigate "https://ps.hasdk12.org/admin/pw.html" 

For Each objWindow in objShellApp.Windows 
If LCase(objWindow.LocationName) = LCase("PowerSchool") Then 
    Set IE2 = objWindow 
End If 
WScript.Sleep (5) 
Next 

With IE2.Document 
    .getElementByID("fieldPassword").value = "username;" + pin 
    .getElementByID("btnEnter").click 
End With 

For Each objWindow in objShellApp.Windows 
If LCase(objWindow.LocationName) = LCase("Start Page") Then 
    Set IE2 = objWindow 
End If 
WScript.Sleep (5) 
Next 

End Function 

Answer 1

最有可能的原因，你的腳本發生故障是在頁面加載時間的變化，或打開外殼瀏覽器和IE窗口等nuber所有的煩惱，因爲你的腳本不在IE加載頁面等待時，它會檢查每個資源管理器窗口，並且即使未找到目標窗口也會繼續。

試試這個代碼：

Call Main 

Function Main() 
    Dim oIE 
    Dim sPin 
    Set oIE = WScript.CreateObject("InternetExplorer.Application", "IE_") 
    sPin = InputBox("pin: ","Enter the pin to continue", "") 
    oIE.Visible = True 
    oIE.Navigate "https://ps.hasdk12.org/admin/pw.html" 
    WaitIE oIE, "PowerSchool" 
    With oIE.Document 
     .getElementByID("fieldPassword").value = "username;" + sPin 
     .getElementByID("btnEnter").click 
    End With 
    WaitIE oIE, "PowerSchool" 
End Function 

Function WaitIE(oIE, sLocation) 
    Do Until (LCase(oIE.LocationName) = LCase(sLocation)) And (Not oIE.Busy) And (oIE.ReadyState = 4) 
     WScript.Sleep 5 
    Loop 
End Function 

我已經刪除第二IE的變量，你爲什麼要通過objShellApp.Windows得到IE2？也許我想念什麼..？國際海事組織你已經有IE實例因此得到相同的實例這樣的方式是沒有必要的，只是控制你的實例。此外，我添加了單獨的功能，等待IE來完成頁面加載。