2024年5月25日发(作者：)
维普资讯
Ｍｉｃｒｏｃｏｍｐｕｔｅｒ Ａｐｐｌｉｃａｔｉｏｎｓ Ｖｏ１．１８，Ｎｏ．７，２００２ 技术交流 微型电脑应用 ２００２年第ｌ８卷第７期
利用Ｎ ｅｔＢＩＯＳ获得ＭＡＣ地址
张 勃
摘要
李铁楠
ｔｙｐｅ
刘振华
本文介绍了获得网络接口卡ＭＡＣ地址的一种
方法，并给出在Ｄｅｌｐｈｉ中调用ＮｅｔＢＩＯＳ ＡＰＩ获得ＭＡＣ地址
的具体实现。
ＴＦｏｒｍｌ＝ｃｌａｓｓ（ＴＦｏｒｍ）
Ｅｄｉｔ１：Ｔｅｄｉｔ；
关键词ＭＡＣ地址ＮｅｔＢＩＯＳ ＡＰＩ
Ｂｕｔｔｏｎ１：Ｔｂｕｔｔｏｎ；
ｐｒｏｃｅｄｕｒｅ ＢｕｔｔｏｎｌＣｌｉｃｋ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；
ｐｒｉｖａｔｅ
一
、
引言
｛Ｐｒｉｖａｔｅ ｄｅｃｌａｒａｔｉｏｎｓ）ｐｕｂｌｉｃ
｛Ｐｕｂｌｉｃ ｄｅｃｌａｒａｔｉｏｎｓ：
在实际的应用系统中，我们往往会需要在程序运行时获
取当前机器网卡的ＭＡＣ地址，以便作为某种标识之用，如控
制程序的合法性等。ＭＡＣ地址即介质访问控制地址，是由
ＩＥＥＥ和制造商给网络接口卡（ＮＩＣ）的唯一４８位码，是全球
Ｖａｒ
ｅｎｄ；
Ｆｏｒｍ１：ＴＦｏｒｍ１；
ｉｍｐｌｅｍｅｎｔａｔｉｏｎ
｛￥Ｒ＊．ＤＦＭ）
唯一的硬件（物理）地址。网络上不会存在相同ＭＡＣ地址的
计算机。ＭＡＣ地址前３个字节是ＩＥＥＥ分配给制造商的，后３
／／首先获得本机网卡号，网卡编号一般从０开始。
ｆｕｎｃｔｉｏｎ ＧｅｔＬａｎａＮｕｍ：Ｂｙｔｅ；
Ｖａｒ
个字节是制造商给定。其中包含制造厂商、产品批次等信息。
ＭＡＣ地址通常是不能修改的。基于这些特性，ＭＡＣ地址在计
算机编程中得到广泛应用。
“网络基本输入／输出系统”（Ｎｅｔｗｏｒｋ Ｂａｓｉｃ Ｉｎｐｕｔ／Ｏｕｔ—
ＬａｎａＥｎｕｍＮＣＢ：ＰＮＣＢ；
ＬａｎａＥｎｕｍ：ＰｌａｎａＥｎｕｍ；
Ｉ：Ｉｎｔｅｇｅｒ；
ｂｅｇｉｎ
ｐｕｔ Ｓｙｓｔｅｍ，ＮｅｔＢＩＯＳ）是１９８３年由Ｓｙｔｅｘ公司为ＩＢＭ公司开
发的一种标准应用程序接ＶＩ，是与“协议无关”的编程接ＶＩ。我
们通过网络输入输出系统提供的用户访问接口ＡＰＩ来获得
ＭＡｃ地址，即通过Ｗｉｎｄｏｗｓ９ｘ／ＮＴ／ｗｉｎ２０００中内置的Ｎｅ—
ｔＡｐｉ３２．ＤＬＬ的功能来实现。
Ｎｅｗ（ＬａｎａＥｎｕｍＮＣＢ）；
ＺｅｒｏＭｅｍｏｒｙ（ＬａｎａＥｎｕｍＮＣＢ，Ｓｉｚｅ０ｆ（ＴＮＣＢ））；
ｔｒｙ
ｗｉｔｈ ＬａｎａＥｎｕｍＮＣＢ ｄｏ
ｂｅｇｉｎ
ｎｃｂ—ｂｕｆｆｅｒ：＝ＰＣｈａｒ（ＬａｎａＥｎｕｍ）；
ｎｃｂ—ｌｅｎｇｔｈ：＝ＳｉｚｅＯｆ（ＴＬａｎａＥｎｕｍ）；
二、ＮｅｔＢＩＯＳ编程的实现
具体的方法为：设置不同的ＮｅｔＢＩＯＳ（）参数来完成各种
任务。首先通过发送ＮＣＢＥＮＵＭ命令获取网卡的数目和每个
网卡的内部编号．然后对每个网卡标号发送ＮＣＢＡＳＴＡＴ命
令获取其ＭＡＣ地址。下面用Ｄｅｌｐｈｉ实现编程。
ｕｎｉｔ ｍａｃｕｎｉｔ；
／／向网卡发送ＮＣＧＥＮＵＭ命令，以获取网卡的编号
ｎｃｂ ｃｏｍｍａｎｄ：＝Ｃｈａｒ（ＮＣＢＥＮＵＭ）：
ＮｅｔＢｉｏｓ（ＬａｎａＥｎｕｍＮＣＢ）；
Ｉｆ Ｂｙｔｅ（ｎｃｂ—ｃｍｄ—ｃｐｌｔ ＝ＮＲＣ ＧｏｏｄＲＥＴ ｔｈｅｎ
Ｒｅｓｕｌｔ：＝Ｂｙｔｅ（ＬａｎａＥｎｕｍ．Ｌａｎａ［Ｏ］）；
ｅｎｄ；
ｆｉｎａｌｌｙ
Ｄｉｓｐｏｓｅ（ＬａｎａＥｎｕｍＮＣＢ）；
ｅｎｄ；
ｅｎｄ；
ｉｎｔｅｒｆａｃｅ
ｕ Ｃ
Ｗｉｎｄｏｗｓ，Ｍｅｓｓａｇｅｓ，ＳｙｓＵｔｉｌｓ，Ｃｌａｓｓｅｓ，Ｇｒａｐｈｉｃｓ，Ｃｏｎｔｒｏｌｓ，Ｆｏｒｍｓ，Ｄｉ—
ａｌｏｇｓ，ＳｔｄＣｔｒｌｓ，ＮＢ３０；
／／此函数获得指定网卡号的ＭＡＣ地址，并以１６进制格式显示，如
００５０ＢＡＡＡＥＤＥ３
／／注意；在ｕｓｅｓ中添加ｎｂ３０，因为它包含了ＮｅｔＢＩＯＳ（）的所有函数
及常数的声明。
ｔｙｐｅ
／／若有多个网卡，则先用函数ＧｅｔＬａｎａＮｕｍ获得网卡号
ｆｕｎｃｔｉｏｎ ＧｅｔＭＡＣＡｄｄｒｅｓｓ（ＬａｎａＮｕｍ：Ｂｙｔｅ）：ｓｔｒｉｎｇ；／／ＬａｎａＮｕｍ为指
定网卡号
Ｖａｒ
ＰＭＡＣＡｄｄｒｅｓｓ＝’ＴＭＡＣＡｄｄｒｅｓＳ：
ＴＭＡＣＡｄｄｒｅｓｓ：ａｒｒａｙ［Ｏ．．５］ｏｆ Ｂｙｔｅ；
ＡｄａｐｔｅｒＳｔａｔｕｓ：ＰａｄａｔｐｔｅｒＳｔａｔｕ
张 劫 石家庄邮政高等专科学校计算中心 讲师 硕士石家庄０５００２１
李铁楠石家庄邮政高等专科学校计算中心助教石家庄０５００２１
・
４９・
维普资讯
Ｍｉｃｒｏｃｏｍｐｕｔｅｒ Ａｐｐｌｉｃａｔｉｏｎｓ Ｖｏ１．１８，Ｎｏ．７，２００２
ＭＡＣＡｄｄｒｅｓｓ：ＰＭＡＣＡｄｄｒｅｓｓ；
ＳｔａｔＮＣＢ：ＰＮＣＢ；
技术交流 微型电脑应用 ２００２年第ｌ８卷第７期
ｒｅｓｕｌｔ：＝Ｆｏｒｍａｔ（ ２．２ｘ ２．２ｘ ２．２ｘ ２．２ｘ ２．２ｘ ２．２ｘ
［ＭＡＣＡｄｄｒｅｓｓ［Ｏ］，ＭＡＣＡｄｄｒｅｓｓ［１］．ＭＡｃＡｄｄｒｅｓｓ［２］，
ＭＡＣＡｄｄｒｅｓｓ［３］．ＭＡｃＡｄｄｒｅｓｓ［４］，ＭＡＣＡｄｄｒｅｓｓ［５］］．）；
ｅｎｄ；
ｅｎｄ；
ｂｅｇｉｎ
Ｎｅｗ（ＳｔａｔＮＣＢ）：
ＺｅｒｏＭｅｍｏｒｙ（ＳｔａｔＮＣＢ，ＳｉｚｅＯｆ（ＴＮＣＢ））：
ＳｔａｔＮＣＢ．ｎｃｂ—ｌｅｎｇｔｈ：＝Ｓｉｚｅ０ｆ（ＴＡｄａｐｔｅｒＳｔａｔｕｓ）＋
（ＴＮａｍｅＢｕｆｆｅｒ）：
ＧｅｔＭｅｍ（ＡｄａｐｆｅｒＳｆａｆｕｓ．ＳｔａｔＮＣＢ．ｎｃｂ ｌｅｎｇｔｈ）；
ｔｒｙ
２５５＊ＳｉｚｅＯｆ
ｆｉｎａｌｌｙ
ＦｒｅｅＭｅｍ（ＡｄａｐｔｅｒＳｔａｔｕｓ）；
Ｄｉｓｐｏｓｅ（ＳｔａｔＮＣＢ）；
ｅｎｄ；
ｗｉｔｈ ＳｔａｔＮＣＢ ｄｏ
ｂｅｇｉｎ
ｅｎｄ；
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．ＢｕｔｔｏｎｌＣｌｉｃｋ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；
ｂｅｇｉｎ
ＺｅｒｏＭｅｍｏｒｙ（ＭＡＣＡｄｄｒｅｓｓ，ＳｉｚｅＯｆ（ＴＭＡＣＡｄｄｒｅｓｓ））；
ｎｃｂ～ｂｕｆｆｅｒ：＝ＰＣｈａｒ（ＡｄａｐｔｅｒＳｔａｔｕｓ）；／／指定返回信息存放的
ｅｄｉｔ１．ｔｅｘｔ：＝ＧｅｔＭＡＣＡｄｄｒｅｓｓ（ＧｅｔＬａｎａＮｕｍ）；
ｅｎｄ；
变量
ｎｃｂ ｃａｌｌｎａｍｅ：＝ ＊ ＋＃０；
ｅｎｄ．
ｎｃｂ～ｌａｎａ ｎｕｍ：＝Ｃｈａｒ（ＬａｎａＮｕｍ）；／／指定网卡号
此代码在Ｗｉｎｄｏｗｓ９８＋Ｄｅｌｐｈｉ ５环境运行通过。
ｎｃｂ．．ｃｏｍｍａｎｄ：＝Ｃｈａｒ（）；／／对选定的网卡发送ＮＣＢＡＳＴＡＴ命
令 以获得网卡的信息
ＮｅｔＢｉｏｓ（ＳｔａｔＮＣＢ）；
参考文献
［１］Ｃｈａｒｌｉｅ Ｃａｌｖｅｒｔ，Ｄｅｌｐｈｉ ４编程内幕，机械工业出版社．
１９９９．６
／／ｎｏｂ ｃｍｄ—ｃｐｌｔ存放命令完成的标志，如果成功．则返回ＮＲＣ—
ＧＯ（）ＤＲＥＴ
ｉｆ Ｂｙｔｅ（ｎｃｂ—ｃｍｄ—ｃｐｈ）＝ＮＲＣ—ＧＯＯＤＲＥＴ ｔｈｅｎ
ｂｅｇｉｎ
－Ｉ２］王忠、迟忠先．Ｄｅｌｐｈｉ ５开发指南．电子工业出版社，２００１．
１
ＭｏｖｅＭｅｍｏｒｙ（ＭＡＣＡｄｄｒｅｓｓ．ＡｄａｐｔｅｒＳｔａｔ ＬＩＮ．ＳｉｚｅＯｆ（ＴＭＡＣＡｄ—
ｄｒｅｓｓ））；
／／，＇ｔｅ￣ＭＡＣ地址转化成１ ６进制
鎏 ！匠
篁 望望罐
（收稿日期：２００１年ｌＯ月２９日）
篁 望
（上接第３０页）
Ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ ＨＲＥＦ Ｎｏｅｘｔ～ｆｉｌｅ ＜／Ａ＞＜ＢＲ＞”
ｅｌｓｅ ｒｅｔｕｒｎ：
ｅｌ—ｅ１．ｃｈｉｌｄｒｅｎ［ｐｏｓ３：
ｉｆ（ ＵＬ”＝＝ｅ１．ｔａｇＮａｍｅ）』
ｉｆ（ ＝＝ｅ１．ｓｔｙｌｅ．ｄｉｓｐｌａｙ）ｆ
ｅ１．ｓｔｙｌｅ．ｄｉｓｐｌａｙ＝ ｂｌｏｃｋ”：
』
Ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ”％／ｔｄ＞＜／ｔｒ￣”
Ｅｎｄ ｉｆ
Ｎｅｘｌ
Ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ”＜ｆ，ｔａｌｂｅ￣”
（９）定义层叠样式表
％ｓｔｙｌｅ ＴＹＰＥ＝”ｔｅｘｔ／ｃｓｓ”＞
ＵＬ｛ｍａｒｇｉｎ—ｌｅｆｔ：１ ８ｐｔ｝
ＵＩ ＵＬ｛ｄｉｓｐｌａｙ：ｎｏｌｌｅ：ｍａｒｇｉｎ－－ｌｅｆｔ：１Ｏｐｔ
Ａ：ｌｉｎｋ｛ｃｏｌｏｒ：＃０００００；；
ｅｌｓｅ｛
ｅ１．ｓｔｙｌｅ．ｄｉｓｐｌａｙ＝
，
ｌ
ｆ
ｅｖｅｎｔ．ｃａｎｃｅＢｕｂｂｌｅ—ｔｒｕｅ：
Ａ：ｖｉｓｉｔｅｄ｛ｃｏｌｏｒ：＃８０００８０；
Ａ ａｃｔｉｖｅ｛ｃｏｌｏｒ：＃００６６００；｝
Ａ：ｈｏｖｅｒ｛ｔｅｘｔ—ｄｅｃｏｒａｔｉｏｎ：ｕｎｄｅｒｌｉｎｅ；ｃｏｌｏｒ：＃ＦＦ６６６６；
ｆｕｎｃｔｉｏｎ ｃｈｅｎｃｋＰａｒｅｎｔ（ｓｒｃ．ｄｅｓｔ）｛
ｗｈｉｌｅ（ｓｒｃ！一ｎｕｌ１）｛
ｉｆ（ｓｒｃ．ｔａｇＮａｍｅ一＝ｄｅｓｔ）ｒｅｔｕｒｎ ｓｒｃ
ｓｒｃ ｓｒｃ．ｐａｒｅｎｔ Ｅｌｅｍｅｎｔ：
＜／ｓｔｙｌｅ￣
（１０）点击上一层的条目．展开或收起它的下一层
ｆｕｎｃｔｉｏｎ ｏｕｔｌｉｎｅ（）
ｖａｒ ｏｐｅｎ—ｅ、 ｅｎｔ．ｓｒｃＥｌｅｍｅｎｔ：
ｖａｒ ｅｌ—ｃｈｅｃｋＰａｒｅｎｔ（ｏｐｅｎ， ＬＩ ）；
ｉｆ（ｎｕｌｌ！＝ｅｌ＿Ｉ｛
ｖａｒ ｐｏｓ ０：
ｒｅｔｕｒｎ ｎｕｌ１；
ｌ
』
ｄｏｃｕｍｅｎｔ．ｏｎｃｌｉｃｋ＝ｏｕｔｌｉｎｅ
参考文献
［１］陈会安，ＡＳＰ３．０与４／５网站架设彻底研究．中国青年再版
社．２００ｌ
ｆｏｒ（ｖａｒ ｐｏｓ＝０；ｐｏｓ％ｅ１．ｃｈｉｌｄｒｅｎ．１ｅｎｇｔｈ；ｐｏｓ＋＋）
ｉｆ（ ｕＬ ＝＝ｅ１．ｃｈｉｌｄｒｅｎ［ｐｏｓ］．ｔａｇＮａｍｅ）ｂｒｅａｋ；
ｆ（ｐｏｓ＝＝ｅ１．ｃｈｉｌｄｒｅｎ．１ｅｎｇｔｈ）ｒｅｔｕｒｎ
・
（收稿Ｅｌ期：２００１年１１月２Ｏ日）
５Ｏ・
发布评论