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

概述Imports System.Runtime.InteropServices Public Class Form1     <StructLayout(LayoutKind.Sequential)> _     Public Structure Struct_INTERNET_PROXY_INFO         Public dwAccessType As Integer         Pub

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,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 总结

以上是内存溢出为你收集整理的vb.net webbrowser控件 设置代理IP，webbrowser 代理IP全部内容，希望文章能够帮你解决vb.net webbrowser控件 设置代理IP，webbrowser 代理IP所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。