MPGHThe Dark Arts
RegisterLog in

HelpVb.Net IP Changer ?

Posts 1–6 of 6 · Page 1 of 1
Vb.Net IP Changer ?
I Want a Code for Changing IP address with Vb.net ?

If Someone can help, please do
#1 ·
Internal IP: The IP Which is given to each computer that connects to the router, thus keeping them seperate and helping more in portforwarding, its also unique. Easily changeable.

External IP: ISP inputed IP, which every website/host sees when you connect to them, cannot be easily changed, only easily hidden (Proxy, TOR, etc). To change it, just call your ISP.

If you dont provide more than enough detail within your first post, people will provide allot less in the answers.
#2 ·
Quote Originally Posted by ecaep42 View Post
Internal IP: The IP Which is given to each computer that connects to the router, thus keeping them seperate and helping more in portforwarding, its also unique. Easily changeable.

External IP: ISP inputed IP, which every website/host sees when you connect to them, cannot be easily changed, only easily hidden (Proxy, TOR, etc). To change it, just call your ISP.

If you dont provide more than enough detail within your first post, people will provide allot less in the answers.
Moree Details ?
I Need To change the IP so when I go to a website for checking IP the old one will be : "192.231.23.1" and The new one is "123.123.123.123"
#3 ·
Quote Originally Posted by steveroseik View Post

..
That's your external IP. If you have a router you also have an internal ip.


When you click on your local-connection icon you see your internal ip. Websites and everything else see your external (your routers's) ip.

your local one is probably like 192.168.*.* ?

go to h t t p : / / w w w . w i m i . c o m (what-is-my-ip) to see your external ip.

The only way to reset your external ip is to reset your modem (internet modem, not wifi router), but even then you're not guaranteed to get a new one. Some ISP's auto-renew each time, some renew once in a few days, and some are essentially static (my ISP claimed it wasn't, but it didn't change over 4-5 months).

edit: use a proxy server.
#4 · edited ·
Quote Originally Posted by abuckau907 View Post
...
I Have this Class :
Code:
Imports System
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

    <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
End Class
and in the CHANGE IP Button I Put this Code :
Code:
 Dim clsProxy As New IEProxy
        If clsProxy.SetProxy("123.123.123.123:8080") Then
            MessageBox.Show("Proxy successfully enabled.", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            MessageBox.Show("Error enabling proxy.", "Failed", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If
It tells me "Proxy Successfully Enabled" But When I Check the IP nothing Happens !
#5 ·
Quote Originally Posted by steveroseik View Post
...
Why is that prox's ip the same as the example you used 2 seconds ago..

Is that a valid proxy address? Do you know what a proxy is?


edit: Using a proxy server does NOT change your own IP. It merely routes your internet traffic through them. So when they forward it to the destination web-server, that web-server sees their ip, not yours. It doesn't actually change your ip.

edit edit: I tried using 123.123.123.123:8080 for my browser's proxy. Didn't work. I'm assuming it's not a valid proxy server. Look up a list? But be careful, remember that you're sending your data through them..
#6 · edited ·
Posts 1–6 of 6 · Page 1 of 1

Post a Reply

Similar Threads

Call of Duty Modern Warfare 3 Coding, Programming & Source CodeFOV changer VB.netMAMairockLukas 4 Hack RequestsGangsterhood.netsupatankasupatanka 0 WarRock - International HacksMe r MAD.. GONNA DDOS WarRock.net :)System79System79 14 WarRock - International Hacks[Release] Nickname changerhjerherjdsdhjerherjdsd 42 Visual Basic Programming[Help] Atom API with Visual Basic 6.0 or .NETBull3tBull3t 5

Tags for this Thread

None

Need help?