zoukankan      html  css  js  c++  java
  • VB + API 获取 IE 的 "代理服务器" 配制

    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

  • 相关阅读:
    iOS之App Store上架被拒Legal
    iOS之解决崩溃Collection <__NSArrayM: 0xb550c30> was mutated while being enumerated.
    iOS之延时执行(睡眠)的几种方法
    iOS之UILabel的自动换行
    iOS之开发中一些相关的路径以及获取路径的方法
    iOS之绘制虚线
    iOS之判断手机号码、邮箱格式是否正确
    iOS之计算上次日期距离现在多久, 如 xx 小时前、xx 分钟前等
    iOS之开发中常用的颜色及其对应的RGB值
    method invocation
  • 原文地址:https://www.cnblogs.com/Microshaoft/p/2485798.html
Copyright © 2011-2022 走看看