How to change Socks 4/5 using vb.net

[abdu bubekri]

hi

how to use Socks 5 proxies in Internet Explorer. I have code for http proxies but that code is not working for Socks proxies.

Anyone has such code? Please provide some pointers.

I'm basically doing IE automation in VB.NET, and I need code to use socks proxies using IE.

the code am used that change only HTTP PROXY :

####################################################

''''''''''''''''''''''proxy'''''''''''''''''''''''
<Runtime.InteropServices.DllImport("wininet.dll", SetLastError:=True)> _
Private Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean
End Function

Public Structure Struct_INTERNET_PROXY_INFO
Public dwAccessType As Integer
Public proxy As IntPtr
Public proxyBypass As IntPtr
End Structure

Private Sub UseProxy(ByVal strProxy As String)
Const INTERNET_OPTION_PROXY As Integer = 38
Const INTERNET_OPEN_TYPE_PROXY As Integer = 3

Dim struct_IPI As Struct_INTERNET_PROXY_INFO

struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
struct_IPI.proxy = Marshal.StringToHGlobalAnsi(strProxy)
struct_IPI.proxyBypass = Marshal.StringToHGlobalAnsi("local")

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

Marshal.StructureToPtr(struct_IPI, intptrStruct, True)

Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))


End Sub

Private Sub ButtonX4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX4.Click
UseProxy(textBox4.text)
WebBrowser2.Navigate(textBox1.text)

End Sub

''''''''''''''''''''''End proxy'''''''''''''''''''''''*


####################################################

Continue reading...