设置程序中使用的WebBrowser控件的代理,不影响系统IE浏览器vb
来源:百度文库 编辑:神马文学网 时间:2024/05/23 13:03:35
设置程序中使用的WebBrowser控件的代理,不影响系统IE浏览器
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
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控件的代理,不影响系统IE浏览器vb
设置程序中使用的WebBrowser控件的代理,不影响系统IE浏览器
使用VB设置IE代理
MOX.cc [vb.net中webBrowser控件的问题?如何使弹出的网页在 本身 w...
VB--DataGrid 控件的使用
VB中MsFlexGrid控件的使用细则(收集)
Vb中控件的自动排列-VB控件
对IE浏览器的优化设置
Ubuntu中apt及终端程序使用代理设置方法
VB--DataGrid 控件的使用1
VB中Grid控件的打印方法
VB中 MSComm控件使用详解2
六种设置方法彻底优化你的IE浏览器
终极提速:对IE浏览器的优化设置
六种设置方法彻底优化你的IE浏览器
六种设置方法彻底优化你的IE浏览器
优化你的IE浏览器六种设置方法
设置方法彻底优化你的IE浏览器
vb.net入门——DomainUpDown 控件的使用
vb.net入门——ComboBox 控件的使用
vb.net入门——ToolBar 控件的使用
vb.net入门——DomainUpDown 控件的使用
vb.net入门——PictureBox控件的使用
vb.net入门——ListBox控件的使用