- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
3#
發表於 2013-3-1 14:56
| 只看該作者
回復 2# vesperlee
幫你爬文了 ->技術文件。http://technet.microsoft.com/zh-tw/library/ff699052.aspx
執行VBA 的程序後,如要到 IE查看[連線]設定的改變時都須按下每一子視窗的[確定]鍵 , 當再次的執行 VBA 的程序作改變才會有作用的- Option Explicit
- Const HKEY_CURRENT_USER = &H80000001
- Sub proxy關閉()
- '需修改的部份 proxy.hinet.net:80 (包含Port)' ,1為致能，0為除能
- ProxySettings "proxy-n1.google.com.tw:3125", 0
- End Sub
- Sub proxy打開()
- '需修改的部份 proxy.hinet.net:80 (包含Port)' ,1為致能，0為除能
- ProxySettings "proxy-n1.google.com.tw:3125", 1
- End Sub
- Public Sub ProxySettings(ByRef strAddress As String, ByRef intSwitch As Integer)
- Dim strComputer As String, objRegistry As Object, strKeyPath As String, strValueName As String, dwValue As Integer, strValue As String
- strComputer = "."
- Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
- strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
- strValueName = "ProxyEnable"
- dwValue = intSwitch
- objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue
- strValueName = "ProxyServer"
- strValue = strAddress
- objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
- strValueName = "ProxyOverride"
- '5.的內容 {含有下列起始文字的位址不使用Proxy}
- strValue = "MyTest...." '寫入位址
- 'strValue = "<local>" '清除位址
- objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
- End Sub
|
|
發表於 2013-2-28 17:19
| 
