VB中webbrowser控件使用SOCKS5袋里

让webbrowser控件通过SOCKS5袋里(有认证)来浏览网页

Private Const INTERNET_OPTION_PROXY = 38 

Private Const INTERNET_OPEN_TYPE_PROXY = 3

Private Type INTERNET_PROXY_INFO

dwAccessType As Long

lpszProxy As String

lpszProxyBypass As String

End Type

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

Function SetProxy()

Dim options As INTERNET_PROXY_INFO

options.dwAccessType = INTERNET_OPEN_TYPE_PROXY

options.lpszProxy = "SOCKS=127.0.0.1:9050"

options.lpszProxyBypass = ""

internetsetoption 0, INTERNET_OPTION_PROXY, options, LenB(options)

End Function

link

评论

Popular Posts

随身WiFi折腾指南: 解锁、刷机与DIY

其实所有的电影都很枯燥

N70/72软件 带图/破解版 打包下载

小小恋歌(小さな恋のうた) - 新垣结衣

Cromite - 极度注重隐私的Chromium浏览器

Aria2 GUI - 下载工具图形界面桌面端懒人包

为什么你学的越多,越没法行动?

人生体验新境界——积极的思想

初爱 - 杨宗纬

Internet Explorer 8 简体中文正式版