vb.net webbrowser控件设置代理IP，webbrowser 代理IP

最新推荐文章于 2021-06-18 17:24:10 发布

六弦的闷音

最新推荐文章于 2021-06-18 17:24:10 发布

阅读量4.9k

点赞数

分类专栏： VB相关资料文章标签： webbrowser vb.net integer structure internet

本文链接：https://blog.csdn.net/qzmrock/article/details/7534294

版权

VB相关资料专栏收录该内容

9 篇文章 0 订阅

订阅专栏

Imports System.Runtime.InteropServices

Public Class Form1
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure Struct_INTERNET_PROXY_INFO
        Public dwAccessType As Integer
        Public proxy As IntPtr
        Public proxyBypass As IntPtr
    End Structure

    <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

    Private Function RefreshIESettings(ByVal strProxy As String) As Boolean
        Dim INTERNET_OPTION_PROXY As Integer = 38
        Dim INTERNET_OPEN_TYPE_PROXY As Integer = 3

Dim struct_IPI As Struct_INTERNET_PROXY_INFO

        'Filling   in   structure
        struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
        struct_IPI.proxy = Marshal.StringToHGlobalAnsi(strProxy)
        struct_IPI.proxyBypass = Marshal.StringToHGlobalAnsi("local ")

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

'Converting structure to IntPtr
Marshal.StructureToPtr(struct_IPI, intptrStruct, True)

Return InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, Marshal.SizeOf(struct_IPI))
End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RefreshIESettings("192.168.1.150:8080)   '使用 IP:端口
        WebBrowser1.Navigate(" http://www.ip138.com")
    End Sub

End Class