Board logo

標題: [發問] 請教如何使用VBA修改IE 的PROXY的設定？？？ [打印本頁]
作者: vesperlee    時間: 2013-2-28 17:19     標題: 請教如何使用VBA修改IE 的PROXY的設定？？？

[attach]14272[/attach]

執行 proxy關閉 程序，再執行proxy打開 程序，重開IE後，
(1)請教如何不讓  4. 的位置 {近端網址不使用Proxy(B)} 的勾選不要不見？
(2)請教如何在程式裏設定 {近端網址不使用Proxy(B)}的勾選選項 為打勾或不打勾？

5.的內容 {含有下列起始文字的位址不使用Proxy} 也會不見
(3)請問  如何設定 5.的內容 不要不見？
(4)或如何在程式裏設定 {含有下列起始文字的位址不使用Proxy} 的內容？

相關程序碼如下：
[attach]14273[/attach]

萬分感謝~~！
作者: vesperlee    時間: 2013-2-28 23:55

爬文了好久~_~  依然困惑提供下列技術文件。
麻煩各位先進指點迷津

http://technet.microsoft.com/zh-tw/library/ff699052.aspx
作者: GBKEE    時間: 2013-3-1 14:56

回復 2# vesperlee
幫你爬文了  ->技術文件。http://technet.microsoft.com/zh-tw/library/ff699052.aspx
執行VBA 的程序後,如要到 IE查看[連線]設定的改變時都須按下每一子視窗的[確定]鍵 , 當再次的執行 VBA 的程序作改變才會有作用的
  1. Option Explicit
  2. Const HKEY_CURRENT_USER = &H80000001
  3. Sub proxy關閉()
  4.        '需修改的部份 proxy.hinet.net:80 (包含Port)'  ,1為致能，0為除能
  5.     ProxySettings "proxy-n1.google.com.tw:3125", 0
  6. End Sub
  7. Sub proxy打開()
  8.        '需修改的部份 proxy.hinet.net:80 (包含Port)'  ,1為致能，0為除能
  9.      ProxySettings "proxy-n1.google.com.tw:3125", 1
  10. End Sub
  11. Public Sub ProxySettings(ByRef strAddress As String, ByRef intSwitch As Integer)
  12.     Dim strComputer As String, objRegistry As Object, strKeyPath As String, strValueName As String, dwValue As Integer, strValue As String
  13.     strComputer = "."
  14.     Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
  15.     strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
  16.     strValueName = "ProxyEnable"
  17.     dwValue = intSwitch
  18.     objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue
  19.     strValueName = "ProxyServer"
  20.     strValue = strAddress
  21.     objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
  22.     strValueName = "ProxyOverride"
  23.     '5.的內容 {含有下列起始文字的位址不使用Proxy}
  24.     strValue = "MyTest...."  '寫入位址
  25.     'strValue = "<local>"  '清除位址
  26.     objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
  27. End Sub
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)