为什么我测到网卡的MAC号,天天都不同? 问题解决马上送分!!!很容易就可以拿到手了!!! 这是不可能的呀,网卡的MAC号怎么会不同呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你用什么测的?用ipconfig -all看看 真的是这样的!,下面是我近几天测的结果 1。 B6—87—20—52—41—532。 76—F1—20—52—41—533。 2C—4F—20—52—41—534。 B6—87—20—52—41—535。 58—D3—20—52—41—536。 76—2E—20—52—41—53 MAC在网卡适配器那里都可以设置的.你试一下!这样的设置不是真正的MAC. caiguoxin(caiguoxin) 你好 MAC在网卡适配器那里都可以设置的?怎么弄 9527(我靠,还是提交不上去!CSDN我服了你) ipconfig -all 这是什么意思? 肯定是你的程序有问题,因为windows会把虚拟网卡、modoem卡等都给安上一个mac address,如果你的函数不对,就会造成这个情况。检查你的函数 在命令行模式下运行ipconfig -all ,就会得到目前网络的一些信息,其中包括mac 9527(我靠,还是提交不上去!CSDN我服了你) 对底层的东西我不懂,能不能帮我写点代码? 9527(我靠,还是提交不上去!CSDN我服了你) 我运行了ipconfig -all,可没有看到,跟我上面讲的东西差不多的东东! 9527(我靠,还是提交不上去!CSDN我服了你) 非常谢谢你,没关系!我等你,可以发到我的信箱是[email protected] hjd_cw() 我选用不同的 LanaNumber 为什么会的到不同的地址? 这个函数很好。回复人: Carfield(一只特别懒的猫) ( ) 信誉:100 2002-5-29 17:31:53 得分:0 送你一个函数uses NB30; function GetMACAdress: string; var NCB: PNCB; Adapter: PAdapterStatus; URetCode: PChar; RetCode: char; I: integer; Lenum: PlanaEnum; _SystemID: string; TMPSTR: string; begin Result := ''; _SystemID := ''; Getmem(NCB, SizeOf(TNCB)); Fillchar(NCB^, SizeOf(TNCB), 0); Getmem(Lenum, SizeOf(TLanaEnum)); Fillchar(Lenum^, SizeOf(TLanaEnum), 0); Getmem(Adapter, SizeOf(TAdapterStatus)); Fillchar(Adapter^, SizeOf(TAdapterStatus), 0); Lenum.Length := chr(0); NCB.ncb_command := chr(NCBENUM); NCB.ncb_buffer := Pointer(Lenum); NCB.ncb_length := SizeOf(Lenum); RetCode := Netbios(NCB); i := 0; repeat Fillchar(NCB^, SizeOf(TNCB), 0); Ncb.ncb_command := chr(NCBRESET); Ncb.ncb_lana_num := lenum.lana[I]; RetCode := Netbios(Ncb); Fillchar(NCB^, SizeOf(TNCB), 0); Ncb.ncb_command := chr(NCBASTAT); Ncb.ncb_lana_num := lenum.lana[I]; // Must be 16 Ncb.ncb_callname := '* '; Ncb.ncb_buffer := Pointer(Adapter); Ncb.ncb_length := SizeOf(TAdapterStatus); RetCode := Netbios(Ncb); //---- calc _systemId from mac-address[2-5] XOR mac-address[1]... if (RetCode = chr(0)) or (RetCode = chr(6)) then begin _SystemId := IntToHex(Ord(Adapter.adapter_address[0]), 2) + '-' + IntToHex(Ord(Adapter.adapter_address[1]), 2) + '-' + IntToHex(Ord(Adapter.adapter_address[2]), 2) + '-' + IntToHex(Ord(Adapter.adapter_address[3]), 2) + '-' + IntToHex(Ord(Adapter.adapter_address[4]), 2) + '-' + IntToHex(Ord(Adapter.adapter_address[5]), 2); end; Inc(i); until (I >= Ord(Lenum.Length)) or (_SystemID <> '00-00-00-00-00-00'); FreeMem(NCB); FreeMem(Adapter); FreeMem(Lenum); GetMacAdress := _SystemID; end; //使用例子procedure TForm1.Button1Click(Sender: TObject); begin label1.Caption := GetMACAdress; end; 帮我看下这句查询语句有什么问题 谁能帮我解决一下delphi对sql2000数据库数据备份和数据还原的问题。 字符串问题??? 请问如何设置、操作ACCESS的二进制字段? 请教写数据到数据库的方法 帮个小忙,网页上的图片无法保存 怎样才能使用fastreport的打印功能。 为什么只能打印第一页? 一个关于数据库的问题,高手请进(很急!!!!!) Delphi中如何执行ZIP文件?谢谢! 在 无法改变字段值,求帮忙!
1。 B6—87—20—52—41—53
2。 76—F1—20—52—41—53
3。 2C—4F—20—52—41—53
4。 B6—87—20—52—41—53
5。 58—D3—20—52—41—53
6。 76—2E—20—52—41—53
ipconfig -all 这是什么意思?
我运行了ipconfig -all,可没有看到,跟我上面讲的东西差不多的东东!
我选用不同的 LanaNumber 为什么会的到不同的地址?
送你一个函数
uses NB30; function GetMACAdress: string;
var
NCB: PNCB;
Adapter: PAdapterStatus; URetCode: PChar;
RetCode: char;
I: integer;
Lenum: PlanaEnum;
_SystemID: string;
TMPSTR: string;
begin
Result := '';
_SystemID := '';
Getmem(NCB, SizeOf(TNCB));
Fillchar(NCB^, SizeOf(TNCB), 0); Getmem(Lenum, SizeOf(TLanaEnum));
Fillchar(Lenum^, SizeOf(TLanaEnum), 0); Getmem(Adapter, SizeOf(TAdapterStatus));
Fillchar(Adapter^, SizeOf(TAdapterStatus), 0); Lenum.Length := chr(0);
NCB.ncb_command := chr(NCBENUM);
NCB.ncb_buffer := Pointer(Lenum);
NCB.ncb_length := SizeOf(Lenum);
RetCode := Netbios(NCB); i := 0;
repeat
Fillchar(NCB^, SizeOf(TNCB), 0);
Ncb.ncb_command := chr(NCBRESET);
Ncb.ncb_lana_num := lenum.lana[I];
RetCode := Netbios(Ncb); Fillchar(NCB^, SizeOf(TNCB), 0);
Ncb.ncb_command := chr(NCBASTAT);
Ncb.ncb_lana_num := lenum.lana[I];
// Must be 16
Ncb.ncb_callname := '* '; Ncb.ncb_buffer := Pointer(Adapter); Ncb.ncb_length := SizeOf(TAdapterStatus);
RetCode := Netbios(Ncb);
//---- calc _systemId from mac-address[2-5] XOR mac-address[1]...
if (RetCode = chr(0)) or (RetCode = chr(6)) then
begin
_SystemId := IntToHex(Ord(Adapter.adapter_address[0]), 2) + '-' +
IntToHex(Ord(Adapter.adapter_address[1]), 2) + '-' +
IntToHex(Ord(Adapter.adapter_address[2]), 2) + '-' +
IntToHex(Ord(Adapter.adapter_address[3]), 2) + '-' +
IntToHex(Ord(Adapter.adapter_address[4]), 2) + '-' +
IntToHex(Ord(Adapter.adapter_address[5]), 2);
end;
Inc(i);
until (I >= Ord(Lenum.Length)) or (_SystemID <> '00-00-00-00-00-00');
FreeMem(NCB);
FreeMem(Adapter);
FreeMem(Lenum);
GetMacAdress := _SystemID;
end; //使用例子procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := GetMACAdress;
end;