修改代理服务器

概述修改代理服务器

下面是内存溢出 jb51.cc 通过网络收集整理的代码片段。

内存溢出小编现在分享给大家，也给大家做个参考。

Const HKCU=&H80000001 'HKEY_CURRENT_USERConst HKLM=&H80000002 'HKEY_LOCAL_MACHINEConst REG_SZ=1Const REG_EXPAND_SZ=2Const REG_BINARY=3Const REG_DWORD=4Const REG_MulTI_SZ=7Const HKCU_IE_PROXY = "Software\Microsoft\windows\CurrentVersion\InternetSettings"Set oReg=Getobject("winmgmts:!root/default:StdRegProv")MainSub Main()' If Proxy is set then turn it offIf GetValue(HKCU,HKCU_IE_PROXY,"ProxyEnable",REG_DWORD) = 1 ANDLen(GetValue(HKCU,"ProxyServer",REG_SZ)) > 0 ThenCreateValue HKCU,REG_DWORDwscript.echo "Proxy Disabled"Else' If Proxy is not set then turn it onstrProxyServer = "MyProxySvr:80"strProxyOverIDe = "*.domain.com;*.domain2.com;*domain3.com"CreateValue HKCU,strProxyServer,REG_SZCreateValue HKCU,1,REG_DWORDCreateValue HKCU,"ProxyOverrIDe",strProxyOverIDe,REG_SZwscript.echo "Proxy Enabled" & vbcrlf & "(" & strProxyServer & ")"End IfEnd SubFunction CreateValue(Key,SubKey,Valuename,Value,KeyType)Select Case KeyTypeCase REG_SZCreateValue = oReg.SetStringValue(Key,Value)Case REG_EXPAND_SZCreateValue =oReg.SetExpandedStringValue(Key,Value)Case REG_BINARYCreateValue = oReg.SetBinaryValue(Key,Value)Case REG_DWORDCreateValue = oReg.SetDWORDValue(Key,Value)Case REG_MulTI_SZCreateValue =oReg.SetMultiStringValue(Key,Value)End SelectEnd FunctionFunction DeleteValue(Key,Valuename)DeleteValue = oReg.DeleteValue(Key,Valuename)End FunctionFunction GetValue(Key,KeyType)Dim RetSelect Case KeyTypeCase REG_SZoReg.GetStringValue Key,ValueRet = ValueCase REG_EXPAND_SZoReg.GetExpandedStringValue Key,ValueRet = ValueCase REG_BINARYoReg.GetBinaryValue Key,ValueRet = ValueCase REG_DWORDoReg.GetDWORDValue Key,ValueRet = ValueCase REG_MulTI_SZoReg.GetMultiStringValue Key,ValueRet = ValueEnd SelectGetValue = RetEnd Function

以上是内存溢出(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。

总结

以上是内存溢出为你收集整理的修改代理服务器全部内容，希望文章能够帮你解决修改代理服务器所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。