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

浩方对战平台优化版 V2.05 部分去除浩方广告和弹出窗口

《活法》作者:[日]稻盛和夫 pdf下载

Virtual Router - 让电脑成为WIFI热点共享上网的开源软件

MIFARE Classic Tool - 安卓NFC门禁卡修改工具

整理RackNerd VPS促销活动机型表格

利用cgroup对docker进行全局资源限制(CPU, 内存, IO读写等限制)

搞懂并自主搭建ChatGPT的Reverse代理

麦当劳免费Wifi帐号密码及连接设置

中兴ZTE H618B 路由器固件刷机备忘

MD大战略2 德国闪击战 中文汉化版