Reply to thread

Message

<blockquote data-quote="ilovemayo" data-source="post: 179237" data-attributes="member: 54609">Greetings,I'm working on my application that sends emails anonymously. I encountered a problem... I can't seem to implement support for socks proxies.After hours of googling I found out that I should work with the WinInet API (wininet.dll)... I found some code that changes the following fields:[ATTACH]4380[/ATTACH]Good. I need to modify only the socks field, but after a lot of hours trying I couldn't find a way to modify the code to change only the socks field...Here is the source code: [CODE][COLOR=#333333]Imports System[/COLOR]Imports System.Runtime.InteropServicesPublic Class IEProxy&nbsp; &nbsp; Public Enum Options&nbsp; &nbsp; &nbsp; &nbsp; INTERNET_PER_CONN_FLAGS = 1&nbsp; &nbsp; &nbsp; &nbsp; INTERNET_PER_CONN_PROXY_SERVER = 2&nbsp; &nbsp; &nbsp; &nbsp; INTERNET_PER_CONN_PROXY_BYPASS = 3&nbsp; &nbsp; &nbsp; &nbsp; INTERNET_PER_CONN_AUTOCONFIG_URL = 4&nbsp; &nbsp; &nbsp; &nbsp; INTERNET_PER_CONN_AUTODISCOVERY_FLAGS = 5&nbsp; &nbsp; &nbsp; &nbsp; INTERNET_OPTION_REFRESH = 37&nbsp; &nbsp; &nbsp; &nbsp; INTERNET_OPTION_PER_CONNECTION_OPTION = 75&nbsp; &nbsp; &nbsp; &nbsp; INTERNET_OPTION_SETTINGS_CHANGED = 39&nbsp; &nbsp; &nbsp; &nbsp; PROXY_TYPE_PROXY = &amp;H2&nbsp; &nbsp; &nbsp; &nbsp; PROXY_TYPE_DIRECT = &amp;H1&nbsp; &nbsp; End EnumEnd Class&nbsp; &nbsp; &lt;StructLayout(LayoutKind.Sequential)&gt; _&nbsp; &nbsp; Private Class FILETIME&nbsp; &nbsp; &nbsp; &nbsp; Public dwLowDateTime As Integer&nbsp; &nbsp; &nbsp; &nbsp; Public dwHighDateTime As Integer&nbsp; &nbsp; End Class&nbsp; &nbsp; &lt;StructLayout(LayoutKind.Explicit, Size:=12)&gt; _&nbsp; &nbsp; Private Structure INTERNET_PER_CONN_OPTION&nbsp; &nbsp; &nbsp; &nbsp; &lt;FieldOffset(0)&gt; Dim dwOption As Integer&nbsp; &nbsp; &nbsp; &nbsp; &lt;FieldOffset(4)&gt; Dim dwValue As Integer&nbsp; &nbsp; &nbsp; &nbsp; &lt;FieldOffset(4)&gt; Dim pszValue As IntPtr&nbsp; &nbsp; &nbsp; &nbsp; &lt;FieldOffset(4)&gt; Dim ftValue As IntPtr&nbsp; &nbsp; &nbsp; &nbsp; Public Function GetBytes() As Byte()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim b(12) As Byte&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BitConverter.GetBytes(dwOption).CopyTo(b, 0)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Select Case dwOption&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case (Options.INTERNET_PER_CONN_FLAGS)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BitConverter.GetBytes(dwValue).CopyTo(b, 4)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case (Options.INTERNET_PER_CONN_PROXY_BYPASS)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BitConverter.GetBytes(pszValue.ToInt32()).CopyTo(b, 4)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case (Options.INTERNET_PER_CONN_PROXY_SERVER)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BitConverter.GetBytes(pszValue.ToInt32()).CopyTo(b, 4)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Select&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return (b)&nbsp; &nbsp; &nbsp; &nbsp; End Function&nbsp; &nbsp; End Structure&nbsp; &nbsp; &lt;StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)&gt; _&nbsp; &nbsp; Private Class INTERNET_PER_CONN_OPTION_LIST&nbsp; &nbsp; &nbsp; &nbsp; Public dwSize As Integer&nbsp; &nbsp; &nbsp; &nbsp; Public pszConnection As String&nbsp; &nbsp; &nbsp; &nbsp; Public dwOptionCount As Integer&nbsp; &nbsp; &nbsp; &nbsp; Public dwOptionError As Integer&nbsp; &nbsp; &nbsp; &nbsp; Public pOptions As IntPtr&nbsp; &nbsp; End Class&nbsp; &nbsp; &lt;StructLayout(LayoutKind.Sequential)&gt; _&nbsp; &nbsp; Private Class INTERNET_PROXY_INFO&nbsp; &nbsp; &nbsp; &nbsp; Public dwAccessType As Integer&nbsp; &nbsp; &nbsp; &nbsp; Public lpszProxy As IntPtr&nbsp; &nbsp; &nbsp; &nbsp; Public lpszProxyBypass As IntPtr&nbsp; &nbsp; End Class&nbsp; &nbsp; Private Const ERROR_INSUFFICIENT_BUFFER = 122&nbsp; &nbsp; Private Const INTERNET_OPTION_PROXY = 38&nbsp; &nbsp; Private Const INTERNET_OPEN_TYPE_DIRECT = 1&nbsp; &nbsp; &lt;DllImport(&quot;wininet.dll&quot;)&gt; _&nbsp; &nbsp; Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; ByVal dwOption As Integer, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; ByVal lpBuffer As INTERNET_PER_CONN_OPTION_LIST, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; ByVal dwBufferLength As Integer) As Boolean&nbsp; &nbsp; End Function&nbsp; &nbsp; &lt;DllImport(&quot;kernel32.dll&quot;)&gt; _&nbsp; &nbsp; Private Shared Function GetLastError() As Integer&nbsp; &nbsp; End Function&nbsp; &nbsp; Public Function SetProxy(ByVal proxy_full_addr As String) As Boolean&nbsp; &nbsp; &nbsp; &nbsp; Dim bReturn As Boolean&nbsp; &nbsp; &nbsp; &nbsp; Dim list As New INTERNET_PER_CONN_OPTION_LIST&nbsp; &nbsp; &nbsp; &nbsp; Dim dwBufSize As Integer = Marshal.SizeOf(list)&nbsp; &nbsp; &nbsp; &nbsp; Dim opts(3) As INTERNET_PER_CONN_OPTION&nbsp; &nbsp; &nbsp; &nbsp; Dim opt_size As Integer = Marshal.SizeOf(opts(0))&nbsp; &nbsp; &nbsp; &nbsp; list.dwSize = dwBufSize&nbsp; &nbsp; &nbsp; &nbsp; list.pszConnection = ControlChars.NullChar&nbsp; &nbsp; &nbsp; &nbsp; list.dwOptionCount = 3&nbsp; &nbsp; &nbsp; &nbsp; 'set flags&nbsp; &nbsp; &nbsp; &nbsp; opts(0).dwOption = Options.INTERNET_PER_CONN_FLAGS&nbsp; &nbsp; &nbsp; &nbsp; opts(0).dwValue = Options.PROXY_TYPE_DIRECT Or Options.PROXY_TYPE_PROXY&nbsp; &nbsp; &nbsp; &nbsp; 'set proxyname&nbsp; &nbsp; &nbsp; &nbsp; opts(1).dwOption = Options.INTERNET_PER_CONN_PROXY_SERVER&nbsp; &nbsp; &nbsp; &nbsp; opts(1).pszValue = Marshal.StringToHGlobalAnsi(proxy_full_addr)&nbsp; &nbsp; &nbsp; &nbsp; 'set override&nbsp; &nbsp; &nbsp; &nbsp; opts(2).dwOption = Options.INTERNET_PER_CONN_PROXY_BYPASS&nbsp; &nbsp; &nbsp; &nbsp; opts(2).pszValue = Marshal.StringToHGlobalAnsi(&quot;local&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Dim b(3 * opt_size) As Byte&nbsp; &nbsp; &nbsp; &nbsp; opts(0).GetBytes().CopyTo(b, 0)&nbsp; &nbsp; &nbsp; &nbsp; opts(1).GetBytes().CopyTo(b, opt_size)&nbsp; &nbsp; &nbsp; &nbsp; opts(2).GetBytes().CopyTo(b, 2 * opt_size)&nbsp; &nbsp; &nbsp; &nbsp; Dim ptr As IntPtr = Marshal.AllocCoTaskMem(3 * opt_size)&nbsp; &nbsp; &nbsp; &nbsp; Marshal.Copy(b, 0, ptr, 3 * opt_size)&nbsp; &nbsp; &nbsp; &nbsp; list.pOptions = ptr&nbsp; &nbsp; &nbsp; &nbsp; 'Set the options on the connection&nbsp; &nbsp; &nbsp; &nbsp; bReturn = InternetSetOption(IntPtr.Zero, Options.INTERNET_OPTION_PER_CONNECTION_OPTION, list, dwBufSize)&nbsp; &nbsp; &nbsp; &nbsp; If Not bReturn Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Debug.WriteLine(GetLastError)&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; 'Notify existing Internet Explorer instances that the settings have changed&nbsp; &nbsp; &nbsp; &nbsp; bReturn = InternetSetOption(IntPtr.Zero, Options.INTERNET_OPTION_SETTINGS_CHANGED, Nothing, 0)&nbsp; &nbsp; &nbsp; &nbsp; If Not bReturn Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Debug.WriteLine(GetLastError)&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; 'Flush the current IE proxy setting&nbsp; &nbsp; &nbsp; &nbsp; bReturn = InternetSetOption(IntPtr.Zero, Options.INTERNET_OPTION_REFRESH, Nothing, 0)&nbsp; &nbsp; &nbsp; &nbsp; If Not bReturn Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Debug.WriteLine(GetLastError)&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; Marshal.FreeHGlobal(opts(1).pszValue)&nbsp; &nbsp; &nbsp; &nbsp; Marshal.FreeHGlobal(opts(2).pszValue)&nbsp; &nbsp; &nbsp; &nbsp; Marshal.FreeCoTaskMem(ptr)&nbsp; &nbsp; &nbsp; &nbsp; Return (bReturn)&nbsp; &nbsp; End Function&nbsp; &nbsp; Public Function DisableProxy() As Boolean&nbsp; &nbsp; &nbsp; &nbsp; Dim bReturn As Boolean&nbsp; &nbsp; &nbsp; &nbsp; Dim list As New INTERNET_PER_CONN_OPTION_LIST&nbsp; &nbsp; &nbsp; &nbsp; Dim dwBufSize As Integer = Marshal.SizeOf(list)&nbsp; &nbsp; &nbsp; &nbsp; Dim opts(0) As INTERNET_PER_CONN_OPTION&nbsp; &nbsp; &nbsp; &nbsp; Dim opt_size As Integer = Marshal.SizeOf(opts(0))&nbsp; &nbsp; &nbsp; &nbsp; list.dwSize = dwBufSize&nbsp; &nbsp; &nbsp; &nbsp; list.pszConnection = ControlChars.NullChar&nbsp; &nbsp; &nbsp; &nbsp; list.dwOptionCount = 1&nbsp; &nbsp; &nbsp; &nbsp; opts(0).dwOption = Options.INTERNET_PER_CONN_FLAGS&nbsp; &nbsp; &nbsp; &nbsp; opts(0).dwValue = Options.PROXY_TYPE_DIRECT&nbsp; &nbsp; &nbsp; &nbsp; Dim b(opt_size) As Byte&nbsp; &nbsp; &nbsp; &nbsp; opts(0).GetBytes().CopyTo(b, 0)&nbsp; &nbsp; &nbsp; &nbsp; Dim ptr As IntPtr = Marshal.AllocCoTaskMem(opt_size)&nbsp; &nbsp; &nbsp; &nbsp; Marshal.Copy(b, 0, ptr, opt_size)&nbsp; &nbsp; &nbsp; &nbsp; list.pOptions = ptr&nbsp; &nbsp; &nbsp; &nbsp; 'Set the options on the connection&nbsp; &nbsp; &nbsp; &nbsp; bReturn = InternetSetOption(IntPtr.Zero, Options.INTERNET_OPTION_PER_CONNECTION_OPTION, list, dwBufSize)&nbsp; &nbsp; &nbsp; &nbsp; If Not bReturn Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Debug.WriteLine(GetLastError)&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; 'Notify existing Internet Explorer instances that the settings have changed&nbsp; &nbsp; &nbsp; &nbsp; bReturn = InternetSetOption(IntPtr.Zero, Options.INTERNET_OPTION_SETTINGS_CHANGED, Nothing, 0)&nbsp; &nbsp; &nbsp; &nbsp; If Not bReturn Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Debug.WriteLine(GetLastError)&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; 'Flush the current IE proxy setting&nbsp; &nbsp; &nbsp; &nbsp; bReturn = InternetSetOption(IntPtr.Zero, Options.INTERNET_OPTION_REFRESH, Nothing, 0)&nbsp; &nbsp; &nbsp; &nbsp; If Not bReturn Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Debug.WriteLine(GetLastError)&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; Marshal.FreeCoTaskMem(ptr)&nbsp; &nbsp; &nbsp; &nbsp; Return (bReturn)&nbsp; &nbsp; End Function [/CODE][CODE][COLOR=#333333]sProxy.SetProxy(&quot;proxy:port&quot;)&nbsp; &nbsp; 'to start the thing[/COLOR][/CODE][CODE][COLOR=#333333] sProxy.DisableProxy()&nbsp; &nbsp; 'to stop the thing[/COLOR][/CODE]Trust me, I searched and tried a lot of things, but I couldn't get it, that's why I'm asking you guys.Thanks!</blockquote>

[QUOTE="ilovemayo, post: 179237, member: 54609"] [COLOR=#333333]Greetings,[/COLOR] [COLOR=#333333]I'm working on my application that sends emails anonymously. I encountered a problem... I can't seem to implement support for socks proxies.[/COLOR] [COLOR=#333333]After hours of googling I found out that I should work with the WinInet API (wininet.dll)... I found some code that changes the following fields: [/COLOR][ATTACH]4380.vB[/ATTACH] [COLOR=#333333]Good. I need to modify only the socks field, but after a lot of hours trying I couldn't find a way to modify the code to change only the socks field...[/COLOR] [COLOR=#333333]Here is the source code: [/COLOR][CODE][COLOR=#333333]Imports System[/COLOR] Imports System.Runtime.InteropServices Public Class IEProxy Public Enum Options 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 End Class <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(12) As Byte BitConverter.GetBytes(dwOption).CopyTo(b, 0) Select Case dwOption Case (Options.INTERNET_PER_CONN_FLAGS) BitConverter.GetBytes(dwValue).CopyTo(b, 4) Case (Options.INTERNET_PER_CONN_PROXY_BYPASS) BitConverter.GetBytes(pszValue.ToInt32()).CopyTo(b, 4) Case (Options.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 Integer) As Boolean End Function <DllImport("kernel32.dll")> _ Private Shared Function GetLastError() As Integer End Function Public Function SetProxy(ByVal proxy_full_addr As String) As Boolean Dim bReturn As Boolean Dim list As New INTERNET_PER_CONN_OPTION_LIST Dim dwBufSize As Integer = Marshal.SizeOf(list) Dim opts(3) As INTERNET_PER_CONN_OPTION Dim opt_size As Integer = Marshal.SizeOf(opts(0)) list.dwSize = dwBufSize list.pszConnection = ControlChars.NullChar list.dwOptionCount = 3 'set flags opts(0).dwOption = Options.INTERNET_PER_CONN_FLAGS opts(0).dwValue = Options.PROXY_TYPE_DIRECT Or Options.PROXY_TYPE_PROXY 'set proxyname opts(1).dwOption = Options.INTERNET_PER_CONN_PROXY_SERVER opts(1).pszValue = Marshal.StringToHGlobalAnsi(proxy_full_addr) 'set override opts(2).dwOption = Options.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, Options.INTERNET_OPTION_PER_CONNECTION_OPTION, list, dwBufSize) If Not bReturn Then Debug.WriteLine(GetLastError) End If 'Notify existing Internet Explorer instances that the settings have changed bReturn = InternetSetOption(IntPtr.Zero, Options.INTERNET_OPTION_SETTINGS_CHANGED, Nothing, 0) If Not bReturn Then Debug.WriteLine(GetLastError) End If 'Flush the current IE proxy setting bReturn = InternetSetOption(IntPtr.Zero, Options.INTERNET_OPTION_REFRESH, Nothing, 0) 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 Public Function DisableProxy() As Boolean Dim bReturn As Boolean Dim list As New INTERNET_PER_CONN_OPTION_LIST Dim dwBufSize As Integer = Marshal.SizeOf(list) Dim opts(0) As INTERNET_PER_CONN_OPTION Dim opt_size As Integer = Marshal.SizeOf(opts(0)) list.dwSize = dwBufSize list.pszConnection = ControlChars.NullChar list.dwOptionCount = 1 opts(0).dwOption = Options.INTERNET_PER_CONN_FLAGS opts(0).dwValue = Options.PROXY_TYPE_DIRECT Dim b(opt_size) As Byte opts(0).GetBytes().CopyTo(b, 0) Dim ptr As IntPtr = Marshal.AllocCoTaskMem(opt_size) Marshal.Copy(b, 0, ptr, opt_size) list.pOptions = ptr 'Set the options on the connection bReturn = InternetSetOption(IntPtr.Zero, Options.INTERNET_OPTION_PER_CONNECTION_OPTION, list, dwBufSize) If Not bReturn Then Debug.WriteLine(GetLastError) End If 'Notify existing Internet Explorer instances that the settings have changed bReturn = InternetSetOption(IntPtr.Zero, Options.INTERNET_OPTION_SETTINGS_CHANGED, Nothing, 0) If Not bReturn Then Debug.WriteLine(GetLastError) End If 'Flush the current IE proxy setting bReturn = InternetSetOption(IntPtr.Zero, Options.INTERNET_OPTION_REFRESH, Nothing, 0) If Not bReturn Then Debug.WriteLine(GetLastError) End If Marshal.FreeCoTaskMem(ptr) Return (bReturn) End Function [/CODE][COLOR=#333333] [/COLOR][CODE][COLOR=#333333]sProxy.SetProxy("proxy:port") 'to start the thing[/COLOR][/CODE][COLOR=#333333] [/COLOR][CODE][COLOR=#333333] sProxy.DisableProxy() 'to stop the thing[/COLOR][/CODE][COLOR=#333333] [/COLOR] [COLOR=#333333]Trust me, I searched and tried a lot of things, but I couldn't get it, that's why I'm asking you guys.[/COLOR] [COLOR=#333333]Thanks![/COLOR] [/QUOTE]

Verification