How to set IE proxy using VB.NET

'
'
 Created by SharpDevelop.
'
 User: Ying-Shen
'
 Date: 2004-11-12
'
 Time: 11:16
'
 
'
 To change this template use Tools | Options | Coding | Edit Standard Headers.
'
Imports  System
Imports  System.Runtime.InteropServices 
Imports  System.Diagnostics
Imports  Microsoft.VisualBasic
Imports  NUnit.Framework

Namespace DefaultNamespace.Tests
       
    
<TestFixture> _
    
Public Class Test1
        
Public Enum MyOptions
             INTERNET_PER_CONN_FLAGS 
= 1
             INTERNET_PER_CONN_PROXY_SERVER 
= 2
             INTERNET_PER_CONN_PROXY_BYPASS 
= 3
             INTERNET_PER_CONN_AUTOCONFIG_URL 
= 4
             INTERNET_PER_CONN_AUTODISCOVERY_FLAGS 
= 5
             INTERNET_OPTION_REFRESH 
= 37
             INTERNET_OPTION_PER_CONNECTION_OPTION 
= 75
             INTERNET_OPTION_SETTINGS_CHANGED 
= 39
             PROXY_TYPE_PROXY 
= &H2
             PROXY_TYPE_DIRECT 
= &H1
        
End Enum


        
<StructLayout(LayoutKind.Sequential)> _
        
Private Class FILETIME
             
Public dwLowDateTime As Integer
             
Public dwHighDateTime As Integer
        
End Class

        
        
<StructLayout(LayoutKind.Explicit, Size:=12)> _
        
Private Structure INTERNET_PER_CONN_OPTION
             
<FieldOffset(0)> Dim dwOption As Integer
             
<FieldOffset(4)> Dim dwValue As Integer
             
<FieldOffset(4)> Dim pszValue As IntPtr
             
<FieldOffset(4)> Dim ftValue As IntPtr
             
Public Function GetBytes() As Byte()
                 
Dim b(12As Byte
                 BitConverter.GetBytes(dwOption).CopyTo(b, 
0)
                 
Select Case dwOption
                      
Case MyOptions.INTERNET_PER_CONN_FLAGS
                      BitConverter.GetBytes(dwValue).CopyTo(b, 
4)
                      
Case MyOptions.INTERNET_PER_CONN_PROXY_BYPASS
                      BitConverter.GetBytes(pszValue.ToInt32()).CopyTo(b, 
4)
                      
Case MyOptions.INTERNET_PER_CONN_PROXY_SERVER
                      BitConverter.GetBytes(pszValue.ToInt32()).CopyTo(b, 
4)
                 
End Select
                 
Return b
             
End Function

        
End Structure

        
         
        
        
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _
        
Private Class INTERNET_PER_CONN_OPTION_LIST
             
Public dwSize As Integer
             
Public pszConnection As String
             
Public dwOptionCount As Integer
             
Public dwOptionError As Integer
             
Public pOptions As IntPtr
        
End Class

        
        
<StructLayout(LayoutKind.Sequential)> _
        
Private Class INTERNET_PROXY_INFO
             
Public dwAccessType As Integer
             
Public lpszProxy As IntPtr
             
Public lpszProxyBypass As IntPtr
        
End Class

         
Private Const ERROR_INSUFFICIENT_BUFFER = 122
         
Private Const INTERNET_OPTION_PROXY = 38
         
Private Const INTERNET_OPEN_TYPE_DIRECT = 1

         
<DllImport("wininet.dll")> _
         
Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, _
             
ByVal dwOption As Integer, _
             
ByVal lpBuffer As INTERNET_PER_CONN_OPTION_LIST, _
             
ByVal dwBufferLength As IntegerAs Boolean
         
End Function

    
         
<DllImport("kernel32.dll")> _
         
Private Shared Function GetLastError() As Integer
         
End Function


        
<Test> _
        
Public Sub TestMethod
            
' TODO: Add your test.
            SetProxy
        
End Sub

        
        
Private Function SetProxy() As Boolean
         
Dim bReturn As Boolean
         
Dim list As New INTERNET_PER_CONN_OPTION_LIST
         
Dim dwBufSize As Integer = Marshal.SizeOf(list)
         
Dim opts(3As INTERNET_PER_CONN_OPTION
         
Dim opt_size As Integer = Marshal.SizeOf(opts(0))
         Debug.
WriteLine("sizeof(option) " + opt_size.ToString)

         list.dwSize 
= dwBufSize
         list.pszConnection 
= ControlChars.NullChar
         list.dwOptionCount 
= 3

         Debug.
WriteLine("sizeof list " + dwBufSize.ToString())

         
'set flags
         opts(0).dwOption = MyOptions.INTERNET_PER_CONN_FLAGS
         opts(
0).dwValue = MyOptions.PROXY_TYPE_DIRECT Or MyOptions.PROXY_TYPE_PROXY
         

         
'set proxyname
         opts(1).dwOption = MyOptions.INTERNET_PER_CONN_PROXY_SERVER
         opts(
1).pszValue = Marshal.StringToHGlobalAnsi("http://proxy:80")
        
        
'set override
         opts(2).dwOption = MyOptions.INTERNET_PER_CONN_PROXY_BYPASS
         opts(
2).pszValue = Marshal.StringToHGlobalAnsi("local")

         
Dim b(3*opt_size) As Byte
         opts(
0).GetBytes().CopyTo(b, 0)
         opts(
1).GetBytes().CopyTo(b, opt_size)
         opts(
2).GetBytes().CopyTo(b, 2 * opt_size)
 
         
Dim ptr As IntPtr = Marshal.AllocCoTaskMem(3*opt_size)
         Marshal.Copy(b, 
0, ptr, 3*opt_size)

         list.pOptions 
= ptr
         
'set the options on the connection
         bReturn = InternetSetOption(IntPtr.Zero, MyOptions.INTERNET_OPTION_PER_CONNECTION_OPTION, list, dwBufSize)
         
If Not bReturn Then
              Debug.
WriteLine(GetLastError)
         
End If
         
         
'Flush the current IE proxy setting
         bReturn = InternetSetOption( IntPtr.Zero, MyOptions.INTERNET_OPTION_REFRESH,Nothing0 )
         
If Not bReturn Then
              Debug.
WriteLine(GetLastError)
         
End If

         Marshal.FreeHGlobal(opts(
1).pszValue)
         Marshal.FreeHGlobal(opts(
2).pszValue)
         Marshal.FreeCoTaskMem(ptr)
         
Return bReturn
     
End Function

    
End Class

End Namespace

你可能感兴趣的:(VB.NET)