作者FiraxisAngle (所指千歌音之处)
看板Visual_Basic
标题Re: [VB6 ] 如何使用VB6修改IE代理伺服器?
时间Fri Jan 16 17:19:49 2009
※ 引述《banqhsia (banqhsia)》之铭言：
: 您好，请问一下：
: 如何使用VB设定IE的代理伺服器?
: 以及若设定後如何关闭已设定的代理伺服器的服务?
: 不知道这样够不够详细@@
: 烦请各位大大位小弟解答。
Call ProxySettings("proxy.ncu.edu.tw:3128", 0)
Public Sub ProxySettings(ByRef cAddress As String, iEnable As Long)
' iEnable : Set Proxy Enabled Or Disable
' 1 = Enable , 0 = Disable
' Declare
Dim objWSH As Object
Dim strKey As String
Set objWSH = CreateObject("WSCript.shell")
strKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
Call objWSH.RegWrite(strKey & "\ProxyEnable", iEnable, "REG_DWORD")
Call objWSH.RegWrite(strKey & "\ProxyServer", cAddress, "REG_SZ")
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.115.60.193
※ 编辑: FiraxisAngle 来自: 140.115.60.193 (01/16 17:22)