如何以Delphi程式取得網域上所有網卡的MAC |
|
答題得分者是：RaynorPao
|
|
m510011
一般會員   發表：18 回覆：18 積分：7 註冊：2002-05-16 發送簡訊給我 |
|
|
RaynorPao
版主   發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
|
|
m510011
一般會員 發表：18 回覆：18 積分：7 註冊：2002-05-16 發送簡訊給我 |
|
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
|
|
tonyplus
初階會員 發表：22 回覆：97 積分：28 註冊：2002-04-13 發送簡訊給我 |
|
|
tigery2k
一般會員 發表：5 回覆：20 積分：10 註冊：2002-06-06 發送簡訊給我 |
引言: 請問RaynorPao版主： 哪麼...delphi有辦法寫出類似nbtscan的功能嗎?? 要能抓取區網內所有的網卡mac ip computername 請問要用什麼元件(標準)或是另行下載，還是有什 麼技術文件，請前輩指引方向！謝謝...最近也遇到這個問題,在網上找了好久,也問了人但不太有回應,我把我試出來的東西,也是網上找到的資料分享給大家 uses winsock; function SendARP(Destip,scrip:DWORD;pmacaddr:PDWORD;VAR phyAddrlen:DWORD):DWORD; stdcall ;external 'iphlpapi.dll' ; function TForm1.GetMacFromIP(IP: String): String; type Tinfo = array[0..7] of byte; var dwTargetIP: dword; dwMacAddress: array[0..1] of DWORD; dwMacLen: DWORD; dwResult: DWORD; X: Tinfo; stemp:string; iloop:integer; begin dwTargetIP := Inet_Addr(pchar(ip)); dwMacLen:= 6; dwResult:= sendarp(dwtargetip,0,@dwmacaddress[0], dwMaclen); if dwResult= NO_ERROR then begin x:= tinfo(dwMacAddress); for iloop:= 0 to 5 do begin stemp:= stemp inttohex(x[iloop],2); end; Result:= stemp; end; end; |
|
pcboy
版主  發表：177 回覆：1838 積分：1463 註冊：2004-01-13 發送簡訊給我 |
發表時間：2003-01-24 11:21:32
IP:203.73.xxx.xxx 未訂閱
系統時間：2024-04-19 11:01:03
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |