Results 1 to 2 of 2

Thread: How to get your computer's IP?

  1. #1

    Thread Starter
    New Member
    Join Date
    Oct 2000


    I am currently working on a program which needs to know the IP adress of the currently working Internet Connection.
    How to find it out?
    By the way, is there a way to connect to the Internet using the InternetAutodial API function when you have a DSL installation?
    Thank you for answering!

  2. #2
    To get your computer's IP address:

    Public Const WS_VERSION_REQD = &H101
    Public Const WS_VERSION_MAJOR = WS_VERSION_REQD \ &H100  And &HFF&
    Public Const MIN_SOCKETS_REQD = 1
    Public Const SOCKET_ERROR = -1
    Public Const WSADescription_Len = 256
    Public Const WSASYS_Status_Len = 128
    Public Type HOSTENT
        hName As Long
        hAliases As Long
        hAddrType As Integer
        hLength As Integer
        hAddrList As Long
    End Type
    Public Type WSADATA
        wversion As Integer
        wHighVersion As Integer
        szDescription(0 To WSADescription_Len) As Byte
        szSystemStatus(0 To WSASYS_Status_Len) As Byte
        iMaxSockets As Integer
        iMaxUdpDg As Integer
        lpszVendorInfo As Long
    End Type
    Public Declare Function WSAGetLastError Lib "WSOCK32.DLL" () As Long
    Public Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal wVersionRequired&, lpWSAData As WSADATA) As Long
    Public Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long
    Public Declare Function gethostname Lib "WSOCK32.DLL" (ByVal hostname$, ByVal HostLen As Long) As Long
    Public Declare Function gethostbyname Lib "WSOCK32.DLL" (ByVal hostname$) As Long
    Public Declare Sub RtlMoveMemory Lib "kernel32" (hpvDest As Any, ByVal hpvSource&, ByVal cbCopy&)
    Function hibyte(ByVal wParam As Integer)
        hibyte = wParam \ &H100  And &HFF&
    End Function
    Function lobyte(ByVal wParam As Integer)
        lobyte = wParam And &HFF&
    End Function
    Sub SocketsInitialize()
        Dim WSAD As WSADATA
        Dim iReturn As Integer
        Dim sLowByte As String, sHighByte As String, sMsg As String
        iReturn = WSAStartup(WS_VERSION_REQD, WSAD)
        If iReturn <> 0 Then
            MsgBox "Winsock.dll Error."
        End If
        If lobyte(WSAD.wversion) < WS_VERSION_MAJOR Or (lobyte(WSAD.wversion) = _
            WS_VERSION_MAJOR And hibyte(WSAD.wversion) < WS_VERSION_MINOR) Then
            sHighByte = Trim$(Str$(hibyte(WSAD.wversion)))
            sLowByte = Trim$(Str$(lobyte(WSAD.wversion)))
            sMsg = "Windows Sockets version " & sLowByte & "." & sHighByte
            'sMsg = sMsg & " winsock.dll tarafindan desteklenmiyor. "
            MsgBox sMsg
        End If
    End Sub
    Public Function CurrentIP(ReturnExternalIP As Boolean)
        Dim hostname As String * 256
        Dim hostent_addr As Long
        Dim host As HOSTENT
        Dim hostip_addr As Long
        Dim temp_ip_address() As Byte
        Dim i As Integer
        Dim ip_address As String
        Dim IP As String
        If gethostname(hostname, 256) = SOCKET_ERROR Then
            MsgBox "Windows Socket Error " & Str(WSAGetLastError())
            Exit Function
            hostname = Trim$(hostname)
        End If
        hostent_addr = gethostbyname(hostname)
        If hostent_addr = 0 Then
            MsgBox "Winsock.dll error."
            Exit Function
        End If
        RtlMoveMemory host, hostent_addr, LenB(host)
        RtlMoveMemory hostip_addr, host.hAddrList, 4
            ReDim temp_ip_address(1 To host.hLength)
            RtlMoveMemory temp_ip_address(1), hostip_addr, host.hLength
            For i = 1 To host.hLength
                ip_address = ip_address & temp_ip_address(i) & "."
            ip_address = Mid$(ip_address, 1, Len(ip_address) - 1)
            Internal = TheIP        ' Send ONLY the External IP to the CurrentIP Function
            EXTERNAL = ip_address   ' Send the External IP to the  function parameter External
            TheIP = ip_address      ' Send LAN IP to the function para Internal
            ip_address = ""
            host.hAddrList = host.hAddrList + LenB(host.hAddrList)
            RtlMoveMemory hostip_addr, host.hAddrList, 4
        Loop While (hostip_addr <> 0)
    If ReturnExternalIP = True Then
        CurrentIP = EXTERNAL
        CurrentIP = Internal
    End If
    End Function
    Sub SocketsCleanup()
        Dim lReturn As Long
        lReturn = WSACleanup()
        If lReturn <> 0 Then
            MsgBox "Socket Error " & Trim$(Str$(lReturn)) & " occurred In Cleanup "
        End If
    End Sub
    Private Sub Command1_Click()
    Text1.Text = CurrentIP(True)
    End Sub
    Or you can place the Winsock Control on your form and put this:

    Msgbox Winsock1.Localip

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Click Here to Expand Forum to Full Width