打开APP
userphoto
未登录

开通VIP,畅享免费电子书等14项超值服

开通VIP
使用vbs添加windows网络代理

添加代理脚本,把代码里面的Data="172.16.1.1:8120" 更改成自己的代理地址及端口,把需要排除不通过代理的对象修改成一下 Data="192.*;<local>;" ,把以下代理保存到文本文档,保存后,修改文本的扩展名为vbs即可

On error resume next

Const HKEY_CURRENT_USER = &H80000001  

Const HKEY_LOCAL_MACHINE = &H80000002  

Const HKEY_USERS = &H80000003  

Const HKEY_CURRENT_CONFIG = &H80000005  

Const HKEY_DYN_DATA = &H80000006  

Const REG_SZ = 1  

Const REG_EXPAND_SZ = 2  

Const REG_BINARY = 3  

Const REG_DWORD = 4  

Const REG_MULTI_SZ = 7

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections"  

strValue = "SavedLegacySettings" 

Data=Array(&H46,&H00,&H00,&H00,&H87,&H0a,&H00,&H00,&H03,&H00,&H00,&H00,&H16,&H00,&H00,&H00,&H70,&H72,&H6f,&H78,&H79,&H2e,&H73,&H6f,&H6e,&H79,&H2e,&H63,&H6f,&H6d,&H2e,&H63,&H6e,&H3a,&H38,&H30,&H38,&H30,&H2f,&H00,&H00,&H00,&H34,&H33,&H2e,&H2a,&H3b,&H2a,&H73,&H65,&H68,&H2e,&H73,&H6f,&H6e,&H79,&H2e,&H63,&H6f,&H6d,&H2e,&H63,&H6e,&H2a,&H3b,&H2a,&H2e,&H69,&H6d,&H61,&H70,&H73,&H76,&H32,&H2e,&H73,&H6f,&H6e,&H79,&H2e,&H2a,&H3b,&H3c,&H6c,&H6f,&H63,&H61,&H6c,&H3e,&H00,&H00,&H00,&H00,&H01,&H00,&H00,&H00,&H19,&H00,&H00,&H00,&H68,&H74,&H74,&H70,&H3a,&H2f,&H2f,&H34,&H33,&H2e,&H36,&H38,&H2e,&H38,&H2e,&H35,&H2f,&H77,&H70,&H61,&H64,&H2e,&H64,&H61,&H74,&H00,&H36,&H5c,&H16,&H57,&H0b,&Hc6,&H01,&H01,&H00,&H00,&H00,&H2b,&H52,&H24,&H58,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00)

Call hexRegWrite(strKeyPath, strValue, Data)

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections"  

strValue = "DefaultConnectionSettings"  

Data=Array(&H46,&H00,&H00,&H00,&H8e,&H00,&H00,&H00,&H03,&H00,&H00,&H00,&H16,&H00,&H00,&H00,&H70,&H72,&H6f,&H78,&H79,&H2e,&H73,&H6f,&H6e,&H79,&H2e,&H63,&H6f,&H6d,&H2e,&H63,&H6e,&H3a,&H38,&H30,&H38,&H30,&H2f,&H00,&H00,&H00,&H34,&H33,&H2e,&H2a,&H3b,&H2a,&H73,&H65,&H68,&H2e,&H73,&H6f,&H6e,&H79,&H2e,&H63,&H6f,&H6d,&H2e,&H63,&H6e,&H2a,&H3b,&H2a,&H2e,&H69,&H6d,&H61,&H70,&H73,&H76,&H32,&H2e,&H73,&H6f,&H6e,&H79,&H2e,&H2a,&H3b,&H3c,&H6c,&H6f,&H63,&H61,&H6c,&H3e,&H00,&H00,&H00,&H00,&H01,&H00,&H00,&H00,&H19,&H00,&H00,&H00,&H68,&H74,&H74,&H70,&H3a,&H2f,&H2f,&H34,&H33,&H2e,&H36,&H38,&H2e,&H38,&H2e,&H35,&H2f,&H77,&H70,&H61,&H64,&H2e,&H64,&H61,&H74,&H00,&H36,&H5c,&H16,&H57,&H0b,&Hc6,&H01,&H01,&H00,&H00,&H00,&H2b,&H52,&H24,&H58,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00)

Call hexRegWrite(strKeyPath, strValue, Data)

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"  

strValue = "ProxyEnable"

Data=00000001

Call dwordRegWrite(strKeyPath, strValue, Data)

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"  

strValue = "ProxyServer"

Data="172.16.1.1:8120"

Call strRegWrite(strKeyPath, strValue, Data)

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"  

strValue = "ProxyOverride"

Data="192.*;<local>;"

Call strRegWrite(strKeyPath, strValue, Data)

'WScript.Echo "Modify Completely!"

Sub hexRegWrite(strKeyPath, strValue, Data)  

strComputer = "."  

Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")   

objRegistry.CreateKey HKEY_CR, strKeyPath  

retcode = objRegistry.SetBinaryValue(HKEY_CURRENT_USER, strKeyPath, strValue, Data)   

If (retcode = 0) And (Err.Number = 0) Then  

  'WScript.Echo "Binary value added successfully"  

Else  

  WScript.Echo "An error occurred. Return code: " & retcode  

End If  

End Sub

Sub dwordRegWrite(strKeyPath, strValue, Data)  

strComputer = "."  

Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")   

objRegistry.CreateKey HKEY_CR, strKeyPath  

retcode = objRegistry.SetDwordValue(HKEY_CURRENT_USER, strKeyPath, strValue, Data)   

If (retcode = 0) And (Err.Number = 0) Then  

  'WScript.Echo "Binary value added successfully"  

Else  

  WScript.Echo "An error occurred. Return code: " & retcode  

End If  

End Sub

Sub strRegWrite(strKeyPath, strValue, Data)  

strComputer = "."  

Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")   

objRegistry.CreateKey HKEY_CR, strKeyPath  

retcode = objRegistry.SetStringValue(HKEY_CURRENT_USER, strKeyPath, strValue, Data)   

If (retcode = 0) And (Err.Number = 0) Then  

  'WScript.Echo "Binary value added successfully"  

Else  

  WScript.Echo "An error occurred. Return code: " & retcode  

End If  

End Sub

本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请点击举报
打开APP,阅读全文并永久保存 查看更多类似文章
猜你喜欢
类似文章
【热】打开小程序,算一算2024你的财运
完整的注册表操作实例 VBS脚本
用来查看Windows XP /Vista /Win7 等多种版本序列号的脚本
在域环境下禁用USB存储设备的方法
VBS脚本使用WMI操作注册表
如何用VBS脚本收集远程计算机或本地计算机安装的软件
教菜鸟一做个简单的病毒!
更多类似文章 >>
生活服务
热点新闻
分享 收藏 导长图 关注 下载文章
绑定账号成功
后续可登录账号畅享VIP特权!
如果VIP功能使用有故障,
可点击这里联系客服!

联系客服