设置IE代理
2010-12-29 10:36
453 查看
#Region "改变代理"
Private Structure Struct_INTERNET_PROXY_INFO
Public dwAccessType As Integer
Public proxy As IntPtr
Public proxyBypass As IntPtr
End Structure
<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 Shared Sub SetProxy(Optional ByVal strProxy As String = "221.130.7.227:80")
Const INTERNET_OPTION_PROXY As Integer = 38
Const 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)
Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, Marshal.SizeOf(struct_IPI))
End Sub
#End Region
Private Structure Struct_INTERNET_PROXY_INFO
Public dwAccessType As Integer
Public proxy As IntPtr
Public proxyBypass As IntPtr
End Structure
<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 Shared Sub SetProxy(Optional ByVal strProxy As String = "221.130.7.227:80")
Const INTERNET_OPTION_PROXY As Integer = 38
Const 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)
Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, Marshal.SizeOf(struct_IPI))
End Sub
#End Region
相关文章推荐
- 使用bat批处理脚本自动设置IP和IE代理
- 如何用C#设置IE的代理
- 自动切换IE代理设置: 简单使用IE自动配置脚本
- IE设置自动获得代理(ISA2004&2006中设置相应项)
- 快捷设置IE代理小工具
- 编程设置IE代理的几种方式
- python3操作注册表设置/取消IE代理
- 【转】使用程序修改系统(IE)代理设置
- Local System 权限读取用户IE 代理设置的研究及简单HTTP代理验证
- IE设置127.0.0.1:[端口号]代理后,除IE外其他浏览器不能通过代理访问
- 恢复域内用户设置IE代理
- python3操作注册表设置/取消IE代理
- c#在win7下设置IE代理第一次成功,第二次不成功的问
- IE和firefox中不经过代理IP段设置的不同
- 设置/取消 IE代理
- 禁用IE设置代理检测不通过怎么办!
- C#设置IE代理
- c#如何在win7下设置IE代理的完美解决方案
- 如何用C#设置IE的代理
- 自动切换IE代理设置: 简单使用IE自动配置脚本