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

今天药忘吃喽~ 2022-09-30 07:10 336阅读 0赞

//函数名称：         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