объект VBScript требуется

Question

Option Explicit 
Dim output, ProxyEnable, ProxyServer, wshShell, doc 

Sub Window_onLoad 
    loadProxySettings() 
End Sub 

Set wshShell = CreateObject("WScript.Shell") 
ProxyEnable = wshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable") 
ProxyServer = wshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer") 

Function loadProxySettings() 
    If ProxyEnable = 1 Then 
     proxyStatus.className = "enabled" 
     proxyStatus.innerHTML = "Proxy aktiv" 

     toggleProxyButton.value = "Proxy deaktivieren" 

     proxyServer.value = ProxyServer 
    Else 
     proxyStatus.className = "disabled" 
     proxyStatus.innerHTML = "Proxy deaktiviert" 

     toggleProxyButton.value = "Proxy aktivieren" 

     proxyServer.value = ProxyServer 
    End If 
End Function 

Просто не может найти проблему, почему это дает мне ошибку:

Object required "ProxyStatus"

(да и у меня есть span элемент с id из proxyStatus)

Answer 1

Вернуться к this code

Set ProxyStatus = document.getElementById("proxyStatus") 
Set ToggleProxyButton = document.getElementById("toggleProxy") 
Set ProxyServerInput = document.getElementById("proxyServer") 

Единственная ошибка здесь до тех пор, как HTML правильно сформирована - это использование Set, когда вы просто ссылаетесь на существующие объекты в DOM. Попробуйте удалить Set из этих строк;

Answer 2

В HTAs вы можете использовать ID ID-элементов, таких как переменные, то есть, если у вас есть такой элемент:

<p>foo <span id="proxyStatus">something</span> bar</p> 

вы должны быть в состоянии использовать его в коде, как это без того, чтобы сделать что-нибудь первым:

MsgBox proxyStatus.innerText