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很贵的

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


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





不知

版主提供的程序我刚才试了，好用！多谢版主！！！