回 帖 发 新 帖 刷新版面

主题:如何在VFP程序中读出本机的IP地址?

如何在VFP程序中读出本机的IP地址?

回复列表 (共5个回复)

沙发

到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


3 楼

可以从注册表里读取

4 楼

另有一个方法:
执行
!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




5 楼

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

我来回复

您尚未登录,请登录后再回复。点此登录或注册