VB + API 获取 IE 的 "代理服务器" 配制

原创 2001年07月09日 13:15:00

Option Explicit
Private Type INTERNET_PROXY_INFO
    dwAccessType    As Long
    lpszProxy       As Long
    lpszProxyBypass As Long
End Type
Private Const INTERNET_OPTION_PROXY = 38
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 Declare Function InternetQueryOption Lib "wininet.dll" Alias "InternetQueryOptionA" (ByVal hInternet As Long, ByVal dwOption As Long, ByRef lpBuffer As Any, ByRef dwBufferLength As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef pDest As Any, ByRef pSource As Any, ByVal Length As Long)
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Any) As Long
Public Function GetProxyAddressAndPort(Optional ProxyType As String) As String
Dim ProxyInfo As INTERNET_PROXY_INFO
Dim arrBuffer() As Byte
Dim strAddress As String
Dim strBypass As String
ReDim arrBuffer(0 To 4095)
InternetQueryOption 0&, INTERNET_OPTION_PROXY, arrBuffer(0), UBound(arrBuffer) - LBound(arrBuffer) + 1
CopyMemory ProxyInfo, arrBuffer(0), LenB(ProxyInfo)
strAddress = VBA.Space(lstrlen(ProxyInfo.lpszProxy))
lstrcpy ByVal strAddress, ProxyInfo.lpszProxy
'不使用代理的地址 strBypass
strBypass = VBA.Space(lstrlen(ProxyInfo.lpszProxyBypass))
lstrcpy ByVal strBypass, ProxyInfo.lpszProxyBypass
'GetProxyAddressAndPort = VBA.Trim(VBA.Replace(strAddress, " ", ";")) ' & ";" & VBA.Replace(strBypass, " ", ";"))
GetProxyAddressAndPort = VBA.Trim(VBA.Replace(strAddress, " ", ";") & ";" & VBA.Replace(strBypass, " ", ";"))
Dim ProxyArray() As String
ProxyArray = Split(GetProxyAddressAndPort, ";")
Dim i As Integer
For i = LBound(ProxyArray) To UBound(ProxyArray)
    If ProxyArray(i) Like "*" & ProxyType & "=*" Then
       GetProxyAddressAndPort = VBA.Replace(ProxyArray(i), ProxyType & "=", "")
       Exit For
    End If
Next i
End Function

Private Sub Command1_Click()
MsgBox GetProxyAddressAndPort("http")
MsgBox GetProxyAddressAndPort("ftp")
MsgBox GetProxyAddressAndPort("gopher")
End Sub

'编程配置 IE 的 "代理服务器" 要用到 InternetSetOption
'一个例子下载:
'http://www.vbip.com/forum/files/webbrowser_proxy.zip

VB + API 获取 IE 的 "代理服务器" 配制

  • zgqtxwd
  • zgqtxwd
  • 2008年05月01日 05:29
  • 150

[C++] 获取IE代理服务器的账号密码

怎样才可以获取IE里面的代理服务器的账号密码呢?关键在于控制面板->用户->凭证管理器,IE设置的代理服务器账号密码都在这里管理。...
  • wwwsq
  • wwwsq
  • 2014年06月30日 13:56
  • 5201

基于c#的IE 代理服务器设置

在进行IE代理服务设置时,需要手动打开代理服务器以及设置IE浏览器代理设置、开启或关闭。此处利用c#编写窗体,一键打开代理服务器、设置IE代理。此程序是基于一改进方案进行开发。一般的做法是直接修改注册...
  • a1368783069
  • a1368783069
  • 2015年04月25日 20:52
  • 1547

不重启IE修改代理服务器的设置

IE通过Internet选项进行代理服务器的设置相信大家很熟悉,但是有的情况下,需要有一堆代理IP进行切换,这样就显得很不方便。那我们就弄小工具实现下切换先介绍下注册表下的两个键    HKEY_CU...
  • longzhiwen888
  • longzhiwen888
  • 2015年06月19日 15:47
  • 565

C#设置当前程序通过IE代理服务器上网

注意:以下设置只在当前程序中有效,对IE浏览器无效,且关闭程序后,自动释放代码。 Proxy.cs类 using System; using System.Collections.Gen...
  • Joyhen
  • Joyhen
  • 2014年02月12日 13:27
  • 4178

利用VB实现对IE的调用与控制

随着网络应用的不断扩展,采用HTML语言编写的文档越来越多,如何在VB程序中实现对HTML文档的浏览是一个需要解决的问题。本文以一个实例说明了在VB中调用和控制Internet Explorer的方法...
  • yangguojian1985
  • yangguojian1985
  • 2006年05月27日 17:24
  • 731

IE代理服务器没有响应 浏览器无法打开网页解决方法

由于工作上的需要,相信很多用户会使用IE代理服务器,但是在设置之后遇到IE代理服务器没有响应错误提示(如图所示),并且浏览器无法打开网页的问题,但使用其他浏览器是可以正常上网,出现这种情况很有可能是注...
  • hnllc2012
  • hnllc2012
  • 2015年09月11日 15:01
  • 6397

如何设置IE禁用代理服务器

今天很是烦恼,因为往常电脑开机之后都不用我自己去配置,他就主动的连好网等着我去用了,表现的一直挺好的,可是自从今天下午开完会,我回到机房以后,就再也连不上了,不管是关机,重启怎么都不行,一直显示“禁用...
  • tigaobansongjiahuan8
  • tigaobansongjiahuan8
  • 2017年08月05日 17:43
  • 660

SocksProxy代理服务器下载,附IE使用socks代理的方法

c#编写的socks代理服务器支持sock4 sock4a sock5 sock5支持tcp和udp sock5支持匿名模式和用户名密码验证模式 运行需.net framework 2.0...
  • laotse
  • laotse
  • 2011年04月07日 12:43
  • 20541

一种通过注册表简便修改IE代理服务器的方法

 一个朋友问题起如何自动修改IE代表服务器,我只知道可以通过修改注册表完成。方法如下: 1、创建一个文件,譬如叫company_proxy.reg,录入如下桔色文字内容REGEDIT4[HKEY_CU...
  • zery
  • zery
  • 2006年07月04日 11:38
  • 13099
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB + API 获取 IE 的 "代理服务器" 配制
举报原因:
原因补充:

(最多只允许输入30个字)