VBScript更改代理设置

Question

我正在尝试创建一个更改某些代理设置的VBS。我尝试通过以下方法来做到这一点： Internet属性→连接→LAN设置→使用代理服务器→高级。

问题是，如果已选中“为LAN使用代理服务器”框。.我的程序继续进行，最终尝试创建VPN大声笑。

有没有一种方法可以以一种简单的方式完成以下所有任务：

1. 检查该框是否已标记

2. 取消选择

3. 如果未选中，则选择。

到目前为止的代码：

Option Explicit
Dim obj
Set obj = CreateObject("WScript.Shell")

obj.Run "cmd"
WScript.Sleep 500
obj.SendKeys "inetcpl.cpl"
WScript.Sleep 500
obj.SendKeys "{ENTER}"
WScript.Sleep 500

obj.SendKeys "^{Tab}"
WScript.Sleep 500
obj.SendKeys "^{Tab}"
WScript.Sleep 500
obj.SendKeys "^{Tab}"
WScript.Sleep 500
obj.SendKeys "^{Tab}"
WScript.Sleep 500
obj.SendKeys "{L}" 'LAN settings
WScript.Sleep 500

obj.SendKeys "{x}" 'use proxy server
WScript.Sleep 500
obj.SendKeys "{c}" 'advanced
WScript.Sleep 500

obj.SendKeys "proxy"
WScript.Sleep 500
obj.SendKeys "{TAB}"
WScript.Sleep 500
obj.SendKeys "000"
WScript.Sleep 500
obj.SendKeys "{TAB}"
WScript.Sleep 500

obj.SendKeys "proxy"
WScript.Sleep 500
obj.SendKeys "{TAB}"
WScript.Sleep 500
obj.SendKeys "000"
WScript.Sleep 500