[VB.Net] Proxy change [Snippet/Example]

[chaddiablo]

I've made several bots with this code.
And I hate to see anyone use the registry to change a proxy.

Here it is non registry way:

<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 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

Function UseProxy() Examples:

UseProxy(194.4.229.233:80)
UseProxy(textbox1.text)
UseProxy(Listbox1.Items.Item(0))

 

[`P R O D I G Y]

Pretty epic, and simple.

 

[RAF]

Trashed: [VB.Net] Proxy change [Snippet/Example]

This thread has been trashed, it will be moderated by the Administrators for a further opinion.

 

[RAF]

Trashed: [VB.Net] Proxy change [Snippet/Example]

This thread has been verified to be a quality thread and has been moved back into the rightful forum section.

Please contact Management if this was wrongfully done.