纯PB代码实现取MAC和IP（PB9)

zgc — 2019/7/10 18:39:44

1、定义一个名为s_wsadata的结构，如下：

  unsignedinteger     version

  unsignedinteger     highversion

  character           discription[257]

  character           systemstatus[129]

  unsignedinteger     maxsockets

  unsignedinteger     maxupddg

  string              vendorinfo

二、在Local External Funtions中作如下的声明：

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"

三、使用方法：

s_wsadata	         l_WSAData

string	ls_HostName = space(128)   

string	ls_IpAddress

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)

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")


END IF


WSACleanup()

ELSE

messagebox("GetHostName",WSAGetLastError())

END IF 


messagebox('ls_hostname: '+ls_hostname,'ls_ipaddress: '+ls_ipaddress)

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

个人博客

纯PB代码实现取MAC和IP（PB9)