VBScript更改代理设置

时间:2019-02-24 08:41:49

标签: vbscript

我正在尝试创建一个更改某些代理设置的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

0 个答案:

没有答案