请教如何在vfp中读取计算机的ip地址

来源：百度知道 编辑：UC知道 时间：2024/07/07 19:18:20
如何用API函数读取IP地址，当然有其他办法也行啊（DOS命令除外，比如ipconfig）!

*方法一：

ox=CREATEOBJECT("MSwinsock.Winsock")
?'IP地址：',ox.LocalIP
?'计算机名：',ox.LocalHostName
RELEASE OX

******************************************

*方法二：

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
RELEASE I