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
Just can't find the problem why this is giving me the error:
Object required "ProxyStatus"
(and yes I have a span
element with the id
of proxyStatus
)