资料介绍：

在用pb开发信息管理系统时，为了安全期间，我们希望记录每个登录用户的信息，并生成日志，其中最重要的是知道是哪个机器运行程序的？这样，只要获取运行程序的机器ip问题就解决了，然而，pb中没有象delphi 中有现成的函数可以很方便的获的机器的ip，我们只好利用外部函数来实现了。首先声明外部函数 function int WSAStartup( uint UIVersionRequested, ref s_WSAData lpWSAData ) library "wsock32.dll" function int WSACleanup() library "wsock32.dll" function int WSAGetLastError ( ) library "wsock32.dll" function int gethostname ( ref string name, int namelen ) library "wsock32.dll" function string GetHost(string lpszhost, ref blob lpszaddress ) library "PBWS32.DLL" 然后在form的open事件中执行如下代码就可以了 s_wsadata l_WSAData int li_version = 257 blob{4} lb_hostaddress IF wsastartup ( li_version, l_WSAData ) = 0 THEN IF gethostname ( ls_HostName, len(ls_HostName) ) < 0 THEN messagebox("GetHostName",WSAGetLastError()) ELSE GetHost(ls_HostName, lb_HostAddress) //获得主机名和IP地址 ls_IpAddress = string(asc(string(blobmid(lb_HostAddress,1,1))),"000") + "." ls_IpAddress += string(asc(string(blobmid(lb_HostAddress,2,1))),"000") + "." ls_IpAddress += string(asc(string(blobmid(lb_HostAddress,3,1))),"000") + "." ls_IpAddress += string(asc(string(blobmid(lb_HostAddress,4,1))),"000") //将IP地址的ASC码形式转化为***.***.***.***字符串格式 END IF WSACleanup() ELSE messagebox("GetHostName",WSAGetLastError()) END IF

软件大小:
839KB

点击浏览（浏览前请阅读声明）：
点击查看-> pb中如何获得机器ip地址 rar

注意：
1、点击链接之后，将会出现一个下载页面链接或者直接下载，有本地资源下载，也有其它网站资源远程下载；
2、若您下载的rar压缩文件需要密码才能打开，则请输入：www.tomx.com#0909(红色部分)；

[推荐此页给朋友] [到会员俱乐部发表看法]