How to get IP Address on Clien of LAN....? Help me!!!!!!

Hot Topic

a bug or i miss something?
My software helps young woman win Microsoft's "Start Something New" Competiton!
sdtFont object
foxpro dos to visual foxpro 9 conversion
Winsock Problem over a WAN
URGENT ! How to close FXP compiled files
can i just use sql to get this?
New to VFP please recomend any good books
How using barcode in VFP?
_screen.ContinuousScroll problem

Visual FoxPro

foxpro exe and dbf's, fpt's, bak's, tbk's, but now prgs etc.
How do I create a random table or cursor name?
Using Text To Speech With Visual Foxpro 8 & 9
error with SET <classLib>
Downloading data on webserver
Visual foxpro 9.0 resource
a child form needs 2 clicks to close
VFP 6 Table designer field length discrepancy
Dynamically show and hide grid column
How to upgrade a menu from FoxPro for DOS

How to get IP Address on Clien of LAN....? Help me!!!!!!

Hi,!

I want get IP Address on Clien of LAN, but I don't know what to use for get it. I need your help, please. Thanks all...!

 

 

Answer this question

How to get IP Address on Clien of LAN....? Help me!!!!!!

  • Mohit17

    Verry thanks!

  • Jason.J

    If you need to get IP address of any client i LAN, you can use something like this :

    DECLARE INTEGER WSACleanup IN ws2_32

    DECLARE STRING inet_ntoa IN ws2_32 INTEGER in_addr

    DECLARE INTEGER gethostbyname IN ws2_32 STRING host

    DECLARE INTEGER WSAStartup IN ws2_32 INTEGER wVerRq, STRING lpWSAData

    DECLARE RtlMoveMemory IN kernel32 As CopyMemory;

    STRING @Dest, INTEGER Src, INTEGER nLength

    IF WSAStartup(0x202, Repli(Chr(0),512)) = 0

    GetIP('server') && computer name

    = WSACleanup()

    ENDIF

    FUNCTION GetIP(cServer)

    #DEFINE HOSTENT_SIZE 16

    LOCAL nStruct, nSize, cBuffer, nAddr, cIP

    nStruct = gethostbyname(cServer)

    IF nStruct = 0

    RETURN '0.0.0.0'

    ENDIF

    cBuffer = Repli(Chr(0), HOSTENT_SIZE)

    cIP = Repli(Chr(0), 4)

    = CopyMemory(@cBuffer, nStruct, HOSTENT_SIZE)

    = CopyMemory(@cIP, buf2dword(SUBS(cBuffer,13,4)),4)

    = CopyMemory(@cIP, buf2dword(cIP),4)

    RETURN inet_ntoa(buf2dword(cIP))

    FUNCTION buf2dword(lcBuffer)

    RETURN Asc(SUBSTR(lcBuffer, 1,1)) + ;

    Bitlshift(Asc(SUBS(lcBuffer, 2,1)),8) +;

    Bitlshift(Asc(SUBS(lcBuffer, 3,1)),16) +;

    Bitlshift(Asc(SUBS(lcBuffer, 4,1)),24)



  • Biodigit

    How about :-

    o = CREATEOBJECT("MSWinsock.Winsock")
    o.LocalIP

    HTH,

    Robbo.
  • How to get IP Address on Clien of LAN....? Help me!!!!!!
Answer this question