請問,這支程式的網路卡編號 |
|
答題得分者是：sos_admin
|
|
kakene
一般會員   發表：22 回覆：52 積分：19 註冊：2003-01-07 發送簡訊給我 |
|
|
sos_admin
版主  發表：121 回覆：697 積分：768 註冊：2003-07-23 發送簡訊給我 |
function GetPhysicalAddress: string;
Var
NCB : TNCB;
ADAPTER : TADAPTERSTATUS;
LANAENUM : TLANAENUM;
intIdx : Integer;
re : Char;
buf : String;
mm:string[20];
begin
Try
// Reset adapter
ZeroMemory(@NCB, SizeOf(NCB));
NCB.ncb_command := Chr(NCBRESET);
NCB.ncb_lana_num := LANAENUM.lana[0];//important
re := NetBios(@NCB);
If Ord(re)<>0 Then
begin
Result := '';
exit;
end;
// Get adapter address
ZeroMemory(@NCB, SizeOf(NCB));
NCB.ncb_command := Chr(NCBASTAT);
NCB.ncb_lana_num := LANAENUM.lana[0];////bowman
StrPCopy(NCB.ncb_callname, '*');
NCB.ncb_buffer := @ADAPTER.adapter_address[0];
NCB.ncb_length := SizeOf(ADAPTER);
re := NetBios(@NCB);
If Ord(re)<>0 Then
exit;
buf := '';
For intIdx := 0 To 5 Do
buf := buf InttoHex(Integer(ADAPTER.adapter_address[intIdx]),2);
mm := copy(buf,0,length(buf));
finally
//freemem(@NCB,SizeOf(NCB)); result:=mm;
end;
end;
|
|
kakene
一般會員 發表：22 回覆：52 積分：19 註冊：2003-01-07 發送簡訊給我 |
|
|
wwwmis
一般會員 發表：2 回覆：2 積分：0 註冊：2003-07-20 發送簡訊給我 |
function GetPhysicalAddress: string;
Var
NCB : TNCB;
ADAPTER : TADAPTERSTATUS;
LANAENUM : TLANAENUM;
intIdx : Integer;
re : Char;
buf : String;
mm:string[20];
begin
Try
// Reset adapter
ZeroMemory(@NCB, SizeOf(NCB));
NCB.ncb_command := Chr(NCBRESET);
NCB.ncb_lana_num := LANAENUM.lana[0];//important
re := NetBios(@NCB);
If Ord(re)<>0 Then
begin
Result := '';
exit;
end;
// Get adapter address
ZeroMemory(@NCB, SizeOf(NCB));
NCB.ncb_command := Chr(NCBASTAT);
NCB.ncb_lana_num := LANAENUM.lana[0];////bowman
StrPCopy(NCB.ncb_callname, '*');
NCB.ncb_buffer := @ADAPTER.adapter_address[0];
NCB.ncb_length := SizeOf(ADAPTER);
re := NetBios(@NCB);
If Ord(re)<>0 Then
exit;
buf := '';
For intIdx := 0 To 5 Do
buf := buf InttoHex(Integer(ADAPTER.adapter_address[intIdx]),2);
mm := copy(buf,0,length(buf));
finally
//freemem(@NCB,SizeOf(NCB)); result:=mm;
end;
end; 這支程式我在Windows2000下Run有問題
抓到的不是我要的網路卡編號,為什麼呢?
應該是要抓到
名稱[00000005] D-Link DFE-530TX PCI Fast Ethernet Adapter (Rev B)
MAC 位址 00:50:BA:24:EA:2C
卻抓到
名稱 [00000006] Efficient Networks Enternet P.P.P.o.E Adapter MAC 位址 44:45:53:54:77:77 我是要取得MAC 位址 00:50:BA:24:EA:2C
這支程式要如何修改?
|
|
aKnightChen@Hotmail.com
一般會員 發表：62 回覆：57 積分：23 註冊：2003-06-13 發送簡訊給我 |
發表時間：2003-07-28 10:51:56
IP:203.204.xxx.xxx 未訂閱
系統時間：2024-05-03 22:28:32
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |