Vbscript 代理设置

Vbscript 代理设置

我正在尝试创建一个脚本,让用户可以在多个可能的代理设置中选择要使用的代理设置。更改已正确应用,但需要大约 20 或 30 秒才能显示在 Internet Explorer 的代理设置中。我的脚本是从以管理员身份运行的 .bat 进程调用的。有什么想法吗?

答案1

抱歉,@Stephane,你说得对。首先,我将从我正在使用的脚本开始:

代理脚本

@echo 关闭
rem 程序:cambioProxy.bat

设置 ruta=%0
cd %ruta:~0,-16%

:菜单
  分类
  echo 脚本变更
  回声 -------------------------
  回声。
  echo A. 代理 proxy1
  echo B.代理 proxy2
  呼应 S. Salir
  回声。

  选择 /C abs /n /T 15 /DS /M “选择代理”
  如果错误级别 3 转到 Salir
  如果错误级别 2,则转到代理 2
  如果错误级别为 1,则转到代理 1
  如果错误级别为 0 则转到菜单

:代理1
    takeown /F %ruta:~0,-16%\proxy1.vbs
    代理服务器1
    echo 代理变更 通过 proxy1 实现
  进入菜单
:proxy2
    takeown /F %ruta:~0,-16%\proxy2.vbs
    代理2.vbs
    echo 通过 proxy2 实现的代理变更
  进入菜单
:萨利尔
  回声。

这些是脚本。除了服务器和端口外,其他都相同,然后我将更改例外情况

代理服务器1

暗淡的strProxyServer

' 定义代理并且您需要代理
strProxyServer = “代理1:8080”

登记处
暗淡的字符串路径
strRegPath = “HKCU\Software\Microsoft\Windows\CurrentVersion\Internet 设置\”
设置 oWshShell = CreateObject("WScript.Shell")

'修改登记簿上的条目
调用 oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
调用 oWshShell.RegWrite(strRegPath & "ProxyOverride", "localhost;webmail.*;", "REG_SZ")
调用 oWshShell.RegWrite(strRegPath & "ProxyServer", strProxyServer, "REG_SZ")
调用 oWshShell.RegWrite(strRegPath & "AutoConfigURL", "", "REG_SZ")

' 通知
Msgbox "代理设置已启用。" & VbCrLf & "服务器 - " & strProxyServer
' 破坏    
设置 oWshShell = Nothing

代理2.vbs

暗淡的strProxyServer

' 定义代理并且您需要代理
strProxyServer = “代理2:80”

登记处
暗淡的字符串路径
strRegPath = “HKCU\Software\Microsoft\Windows\CurrentVersion\Internet 设置\”
设置 oWshShell = CreateObject("WScript.Shell")

'修改登记簿上的条目
调用 oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
调用 oWshShell.RegWrite(strRegPath & "ProxyOverride", "localhost;", "REG_SZ")
调用 oWshShell.RegWrite(strRegPath & "ProxyServer", strProxyServer, "REG_SZ")
调用 oWshShell.RegWrite(strRegPath & "AutoConfigURL", "", "REG_SZ")

' 通知
Msgbox "代理设置已启用。" & VbCrLf & "服务器 - " & strProxyServer
' 破坏    
设置 oWshShell = Nothing

我的电脑是 Windows 7 Professional。不知道还有什么可以补充的

相关内容