Re: [VB6 ] 如何使用VB6修改IE代理伺服器?
※ 引述《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)
討論串 (同標題文章)