到http://www.myf1.net/bbs/list.asp?boardid=1看看，那里的大侠多多！！！！

最简单的做法，放一个 Winsock 控件到表单上，然后看它的 LocalIP 属性。或者：

获取本地 IP 地址

以下代码获取你的本地 ip 地址及你的 hostname, 远程主机和远程主机 ip 地址. 要查看额外的属性运行程序并打开 debug 窗口. 当在一个类中或 prg 中使用这些代码时你可能会去掉其中的全局变量定义.

* getipaddress.prg
* John Harvey
* 9/28/98
* Leave IPSocket public to view all properties in the debug window.
* I stumbled on this routine while trying to find information on subclassing
* the WSH and thought it might be useful.
public IPSocket
crlf=chr(13)+chr(10)

* 显示本地 ip 地址
IPSocket = CreateObject("MSWinsock.Winsock")
if type(''IPSocket'')=''O''
   IPAddress = IPSocket.LocalIP
   localhostname = IPSocket.localhostname
   remotehost = IPSocket.remotehost
   remotehostip = IPSocket.remotehostip
   MessageBox ("本地 IP = " + IPAddress+crlf+"本地 host = "+localhostname;
+crlf+"Remotehost = "+remotehost+crlf+"Remotehostip = "+remotehostip)
else
   MessageBox ("Winsock 未安装!")
endif

可以从注册表里读取

另有一个方法：
执行
!ipconfig>abc.txt

那么abc.txt这个文本文件里就有了。

如我的机子：



Windows 2000 IP Configuration



Ethernet adapter 本地连接:



    Connection-specific DNS Suffix  . :
    IP Address. . . . . . . . . . . . : XXX.XXX.XX.XXX

    Subnet Mask . . . . . . . . . . . : 255.255.255.0

    Default Gateway . . . . . . . . . : XXX.XXX.XX.254

使用WinSock,在某些繁体的Win98下面注册不上.
我用的是Focus.fll.查这些很方便.