设置程序中使用的WebBrowser控件的代理,不影响系统IE浏览器
来源:百度文库 编辑:神马文学网 时间:2024/05/23 13:37:03
2008-11-21 14:18:15 作者:sirius 来源:互联网 浏览次数:200 文字大小:【大】【中】【小】
简介:'在窗口中添加一个WebBrowser浏览器控件,添加两个文件框,改名为:txtIP、txtPort,分别为代理用品的IP及端口。一个按钮控件。代码如下: Option Explicit Private Type INTERNET_PROXY_INFO dwAccessType As Long ...
关键字:设置程序使用WebBrowser控件代理而不影响系统IE浏览器
'在窗口中添加一个WebBrowser浏览器控件,添加两个文件框,改名为:txtIP、txtPort,分别为代理用品的IP及端口。一个按钮控件。代码如下:
Option Explicit
Private Type INTERNET_PROXY_INFO
dwAccessType As Long
lpszProxy As String
lpszProxyBypass As String
End Type
Private Const INTERNET_OPTION_PROXY = 38
Private Const INTERNET_OPTION_SETTINGS_CHANGED = 39
Private Const INTERNET_OPEN_TYPE_DIRECT = 1
Private Const INTERNET_OPEN_TYPE_PROXY = 3
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
Private Sub SetProxy(aStrIP As String, aStrPort As String, aBolUseProxy As Boolean)
Dim strProxy As String
Dim inf As INTERNET_PROXY_INFO
aStrIP = Trim(aStrIP)
aStrPort = Trim(aStrPort)
If (aStrIP + aStrPort = "") Or Not aBolUseProxy Then
strProxy = ""
Else
strProxy = "http=" + aStrIP + ":" + aStrPort
End If
If Trim(strProxy) <> "" Then
inf.dwAccessType = INTERNET_OPEN_TYPE_PROXY
inf.lpszProxy = strProxy
inf.lpszProxyBypass = ""
Call InternetSetOption(0, INTERNET_OPTION_PROXY, inf, Len(inf))
Call InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, "", 0)
Else
inf.dwAccessType = INTERNET_OPEN_TYPE_DIRECT
inf.lpszProxy = ""
inf.lpszProxyBypass = ""
Call InternetSetOption(0, INTERNET_OPTION_PROXY, inf, Len(inf))
Call InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, "", 0)
End If
End Sub
Private Sub Command1_Click()
SetProxy txtIP.Text, txtPort.Text, True
WebBrowser1.Navigate "http://www.any5u.com"
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.any5u.com"
End Sub
简介:'在窗口中添加一个WebBrowser浏览器控件,添加两个文件框,改名为:txtIP、txtPort,分别为代理用品的IP及端口。一个按钮控件。代码如下: Option Explicit Private Type INTERNET_PROXY_INFO dwAccessType As Long ...
关键字:设置程序使用WebBrowser控件代理而不影响系统IE浏览器
'在窗口中添加一个WebBrowser浏览器控件,添加两个文件框,改名为:txtIP、txtPort,分别为代理用品的IP及端口。一个按钮控件。代码如下:
Option Explicit
Private Type INTERNET_PROXY_INFO
dwAccessType As Long
lpszProxy As String
lpszProxyBypass As String
End Type
Private Const INTERNET_OPTION_PROXY = 38
Private Const INTERNET_OPTION_SETTINGS_CHANGED = 39
Private Const INTERNET_OPEN_TYPE_DIRECT = 1
Private Const INTERNET_OPEN_TYPE_PROXY = 3
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
Private Sub SetProxy(aStrIP As String, aStrPort As String, aBolUseProxy As Boolean)
Dim strProxy As String
Dim inf As INTERNET_PROXY_INFO
aStrIP = Trim(aStrIP)
aStrPort = Trim(aStrPort)
If (aStrIP + aStrPort = "") Or Not aBolUseProxy Then
strProxy = ""
Else
strProxy = "http=" + aStrIP + ":" + aStrPort
End If
If Trim(strProxy) <> "" Then
inf.dwAccessType = INTERNET_OPEN_TYPE_PROXY
inf.lpszProxy = strProxy
inf.lpszProxyBypass = ""
Call InternetSetOption(0, INTERNET_OPTION_PROXY, inf, Len(inf))
Call InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, "", 0)
Else
inf.dwAccessType = INTERNET_OPEN_TYPE_DIRECT
inf.lpszProxy = ""
inf.lpszProxyBypass = ""
Call InternetSetOption(0, INTERNET_OPTION_PROXY, inf, Len(inf))
Call InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, "", 0)
End If
End Sub
Private Sub Command1_Click()
SetProxy txtIP.Text, txtPort.Text, True
WebBrowser1.Navigate "http://www.any5u.com"
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.any5u.com"
End Sub
设置程序中使用的WebBrowser控件的代理,不影响系统IE浏览器
设置程序中使用的WebBrowser控件的代理,不影响系统IE浏览器vb
使用VB设置IE代理
对IE浏览器的优化设置
Ubuntu中apt及终端程序使用代理设置方法
六种设置方法彻底优化你的IE浏览器
终极提速:对IE浏览器的优化设置
六种设置方法彻底优化你的IE浏览器
六种设置方法彻底优化你的IE浏览器
优化你的IE浏览器六种设置方法
设置方法彻底优化你的IE浏览器
VC知识库文章 - 使用IE控件的一些有趣方法
VC知识库文章 - 使用IE控件的一些有趣方法
IE浏览器的使用方法
MOX.cc [vb.net中webBrowser控件的问题?如何使弹出的网页在 本身 w...
IE浏览器中png格式的图片不能显示怎么办
IE浏览器使用技巧
IE浏览器的问题答疑
IE浏览器的问题答疑
C#设置IE代理和使用代理访问网页 - 沙漠中的鱼 - BlogJava
浏览器的定制与扩展 - IE编程 - vc++ c++ c 程序开发(vc学习园地
IE的优化设置
IE 6.0的安全使用及设置技巧
使用 TreeView IE Web 控件