1

我使用代理的代码有效，但是当代理无效或受限制时，我的程序直接使用我的 IP 地址，我使用了直接检查我的 ip 的网络浏览器，有什么方法可以在我使用的代理无效时设置异常或受限制的？

这是我的工作代码：

Imports System.Runtime.InteropServices 
   #Region "Using Proxy"
        <Runtime.InteropServices.DllImport("wininet.dll", SetLastError:=True)> _
        Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean
        End Function

        Public Structure Struct_INTERNET_PROXY_INFO
            Public dwAccessType As Integer
            Public proxy As IntPtr
            Public proxyBypass As IntPtr
        End Structure

        Private Sub UseProxy(ByVal strProxy As String)
            Const INTERNET_OPTION_PROXY As Integer = 38
            Const INTERNET_OPEN_TYPE_PROXY As Integer = 3

            Dim struct_IPI As Struct_INTERNET_PROXY_INFO

            struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
            struct_IPI.proxy = Marshal.StringToHGlobalAnsi(strProxy)
            struct_IPI.proxyBypass = Marshal.StringToHGlobalAnsi("local")

            Dim intptrStruct As IntPtr = Marshal.AllocCoTaskMem(Marshal.SizeOf(struct_IPI))

            Marshal.StructureToPtr(struct_IPI, intptrStruct, True)

            Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))
        End Sub
    #End Region

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    UseProxy(ProxyText.Text)
    WebBrowser1.Navigate("ipchicken.com")

    End Sub
4

1 回答 1

0

尝试以下解决方案：

另一个 Stackoverflow 答案

我相信如果你将地址绑定到那个特定的 ip 它不会工作，如果 ip 无效或不工作，并且不会使用你的系统默认值。

于 2013-07-30T21:04:39.227 回答