Chinaunix首页 | 论坛 | 博客
  • 博客访问: 418725
  • 博文数量: 152
  • 博客积分: 1885
  • 博客等级: 上尉
  • 技术积分: 1306
  • 用 户 组: 普通用户
  • 注册时间: 2007-07-13 16:51
文章分类

全部博文(152)

文章存档

2013年(1)

2012年(17)

2011年(19)

2010年(109)

2009年(6)

我的朋友

分类: 数据库开发技术

2011-01-11 22:58:00

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

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
阅读(4854) | 评论(1) | 转发(0) |
给主人留下些什么吧!~~

chinaunix网友2011-03-07 08:47:01

很好的, 收藏了 推荐一个博客,提供很多免费软件编程电子书下载: http://free-ebooks.appspot.com