Question

geckoWebBrowser 怎么设置代理服务器地址

Answer 1

Private Type INTERNET_PROXY_INFO
dwAccessType As Long
lpszProxy As String
lpszProxyBypass As String
End Type
Private Const INTERNET_OPEN_TYPE_PROXY = 3
Private Const INTERNET_OPTION_PROXY = 38
Private Const INTERNET_OPTION_SETTINGS_CHANGED = 39
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

Dim options As INTERNET_PROXY_INFO
options.dwAccessType = INTERNET_OPEN_TYPE_PROXY
options.lpszProxy = "SOCKS=IP:端口" '如果是http代理就是HTTP=IP:端口
options.lpszProxyBypass = ""
internetsetoption 0, INTERNET_OPTION_PROXY, options, LenB(options)
internetsetoption 0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0