设置IE代理服务器-AngelHis
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


设置IE代理服务器

发表时间:2020/12/15 21:55:24 评论(0) 浏览(2800)  评论 | 加入收藏 | 复制
   
摘 要:'API设置IE代理服务器
Private Declare Function internetsetoption Lib "wininet.dll" Alias "InternetSetOptionA" _
  (ByVal hinternet As Long, ByVal dwoption As Long, ByRef lpbuffer As Any, ByVal dwbufferlength As Long) As Long
正 文:
'VB设置IE代理服务器
Private Declare Function internetsetoption Lib "wininet.dll" Alias "InternetSetOptionA" _
  (ByVal hinternet As Long, ByVal dwoption As Long, ByRef lpbuffer As Any, ByVal dwbufferlength As Long) As Long

'proxyaddress=192.168.1.1:80格式
'isEnable为TRUE时设置代理服务器,为FALSE时取消
Public Function ChangProxy(ProxyAddress As String, isEnable As Boolean)
If isEnable Then
    ModRW_Reg.SetStringValue "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", ProxyAddress

    ModRW_Reg.SetDWORDValue "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", 1
Else
    ModRW_Reg.DelValue "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer"
    ModRW_Reg.SetDWORDValue "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", 0
End If
    '写入注册表后调用,即可不重启IE实现代理地址的更换
    Call internetsetoption(0, 39, 0, 0)
End Function

Access软件网交流QQ群(群号:198465573)
 
 相关文章
开机后如何设置自动启动SQL SERVER的管理下的sql s...  【杨雪  2015/10/13】
使用蒲公英VPN远程访问动态IP服务器  【刘文涛  2018/1/3】
Access快速开发平台企业版--数据库服务器配置设置端口号方法  【麥田  2019/10/29】
【转】阿里云ECS云服务器通过外网IP无法连接SQLSERVER的...  【金宇  2019/12/24】
SQL Server新建维护计划来实现自动备份,“代理 XP”组件...  【宏鹏  2020/7/12】
常见问答
技术分类
相关资源
文章搜索
关于作者

AngelHis

文章分类

文章存档

友情链接