DECLARE INTEGER gethostbyname in WSOCK32 String
DECLARE INTEGER WSAStartup IN ws2_32 INTEGER,STRING @
DECLARE INTEGER WSACleanup IN ws2_32
#DEFINE WSADATA_SIZE 398
#DEFINE WS_VERSION 0x0202
uHostName='www.'

cWSADATA=Repli(Chr(0),WSADATA_SIZE)
WSAStartup(WS_VERSION, @cWSADATA)
ret=gethostbyname(uHostName)
n=AT(uHostName,SYS(2600,ret,WSADATA_SIZE))
IPDATA=SUBSTR(SYS(2600,ret,WSADATA_SIZE),n-4,4)
uIpStr=''
FOR i=1 TO 4
    uIpStr=uIpStr+ALLTRIM(STR(ASC(SUBSTR(IPDATA,i,1))))+'.'
ENDF
WSACleanup()
MESSAGEBOX(uHostName+0h0D0A+LEFT(uIpStr,LEN(uIpStr)-1))

通过域名获取IP的好处是：在服务器（或需访问的电脑）上自动启动花生壳，在互联网上其他电脑通过VFP编的程序自动通过域名获取的服务器IP地址链接服务器，这样就不怕服务器每天开关引起的公网IP变化。

这样就不用申请固定公网IP，据说申请公网IP很贵的

? GetIP("www.163.com")

FUNCTION GetIP(tcDomainName)
    LOCAL lnHandle, lcBuffer, lnPos1, lnPos2
    LOCAL lcIP
   
    RUN "PING -n 1 &tcDomainName > IP.TXT"
   
    lcIP = ""
    lnHandle = FOPEN("IP.TXT")
    IF lnHandle >= 0
        DO WHILE !FEOF(lnHandle)
            lcBuffer = FGETS(lnHandle)
            lnPos1 = AT("[", lcBuffer, 1)
            IF (lnPos1 > 0)
                lnPos2 = AT("]", lcBuffer, 1)
                lcIP = SUBSTR(lcBuffer, lnPos1 + 1, lnPos2 - lnPos1 - 1)
                EXIT
            ENDIF
        ENDDO
        FCLOSE(lnHandle)
        DELETE FILE IP.TXT
    ELSE
        MESSAGEBOX("Ping 数据包找不到", 64)
    ENDIF
   
    RETURN lcIP
   
ENDFUNC

如果只是获取IP地址，可用STREXTRACT( )函数。

楼主运行这个代码
返回值 ret 是多少 ？

代码在我这里能正常运行

感谢版主及各位的回复及关注！版主的程序还没看懂，我的水平太差须慢慢消化。
我执行的时候最后一行出现这个错误，如图：


不知其中的0h0D0A是什么，如将其删除变成：MESSAGEBOX(uHostName+LEFT(uIpStr,LEN(uIpStr)-1))
运行结果是：





不知