PB得到本机的名称和IP地址MAC地址

PB得到本机的名称和IP地址MAC地址

//函数名称：         f_getip
//调用方法：         f_getip(ip_name)
//参数说明：   ip_name     :   类型:integer   含义：确定返回的结果(1:机名和IP地址,2:机名,3:IP地址,4:mac地址)
//返回结果：   string     :由ip_name决定的反回结果
//函数功能：   得到本机的名和IP地址
//设计者:                       时间:          
//建立全局的结构s_wsadata
//结构如下：
//version                                   unsignedinteger
//highversion                           unsignedinteger
//description[257]                 character
//systemstatus[129]               character
//maxsockets                             unsignedinteger
//maxupddg                                 unsignedinteger
//vendorinfo                             string
//   声明gloabe   extern   function  
//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 "  
//Function Long GetMACAddress(Long lana,Ref Long addr[6]) Library  "GetMAC.dll"
//Function Long GetLanaID(Ref Long lana[254]) Library  "GetMAC.dll"

s_wsadata           l_WSAData      
string                 ls_HostName   =   space(128)
string                 ls_IpAddress
int                       li_version   =   257
blob{4}               lb_hostaddress  
//建立一个消息，基本的   winsock     版本     版本号分为两部分，主版本号从版本号
IF   wsastartup   (   li_version,   l_WSAData   )   =   0   THEN
//   通过结构传递版本信息,类元素告诉我们版本信息。
//messagebox( "Winsock   Version ",   l_WSAData.description   )
//获得当前主机的主机名称
        IF   gethostname   (   ls_HostName,   len(ls_HostName)   )   <   0   THEN
                messagebox( "GetHostName ",WSAGetLastError())
        ELSE
//通过主机名，调用dll函数取得ip_address的指针给pb   blob   变量，长度是4个字节。因为内部结构包括4个指
//针，每一个指针指向ip_address的一部分，总共是4个字节
//         Messagebox( "Hostname ",   ls_HostName)
                GetHost(ls_HostName,   lb_HostAddress)
//改变指针的获得ip_address构造ip地址   27pbws32.dll
                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 ")
//Messagebox( "Ip   Address ",   ls_IpAddress   )
        END   IF
//清除所建创的信息
        WSACleanup()
ELSE
        messagebox( "GetHostName ",WSAGetLastError())
END   IF  

long   ll_mac[6]
long   ll_lana[254],ll_lananum
integer   ll_nub
string   ls_mac
long   ll_numb

ll_lananum   =   GetLanaID(ll_lana)

for   ll_nub=1   to   ll_lananum
      if   GetMacAddress(ll_lana[ll_nub],ll_mac)   =   0   then      
      ls_mac=string(string(f_change_jz(ll_mac[1],16))+ '- '+&
          MessageBox( "LANA   "   +   string(ll_lana[ll_nub]),&
                                string(ll_mac[1])+ ", "   +   &                
                                string(ll_mac[2])+ ", "   +   &                
                                string(ll_mac[3])+ ", "   +   &              
                                string(ll_mac[4])+ ", "   +   &              
                                string(ll_mac[5])+ ", "   +   &                
                                string(ll_mac[6]))    
      end   if
next
choose   case   ip_name
case   1  
      return   "本机名 "+   ls_hostname+ "   IP   "+ls_ipaddress+ "   mac   "+ls_mac
case   2
return   "本机名: "+ls_hostname
case   3
return   "IP地址: "+ls_ipaddress
case   4
return   "MAC地址: "+ls_mac
end   choose