Vb 네트워크 카드 MAC 의 전체 코드를 가져옵니다.

/VB/155/5717. shtml

특정 코드: (여기서 GetMACAddress () 함수는 집주인이 필요로 합니다.)

명시적 옵션

긴 공용 체크 코드

개인 Const NCBASTAT = & ampH33 만 있으면 됩니다

개인 상수 NCBNAMSZ 는 정수 = 16 입니다

개인 상수 HEAP _ ZERO _ MEMORY As Long = & ampH8

개인 상수 heap _ generate _ exceptions aslong = & H4

전용 Const NCBRESET 는 = & ampH32 만 있으면 됩니다

사설 NCB

Ncb _ 바이트 형식의 명령

Ncb_retcode 가 바이트입니다

Ncb_lsn 을 바이트로 사용

Ncb_num 을 바이트로 사용

Ncb_buffer As Long

Ncb_length 는 정수입니다

Ncb_callname As String * NCBNAMSZ

Ncb_name As String * NCBNAMSZ

Ncb_rto 를 바이트로 사용

Ncb_sto 를 바이트로 사용

Ncb_post As Long

Ncb_lana_num 을 바이트로 사용

Ncb_cmd_cplt 가 바이트입니다

Ncb_reserve(9) 를 바이트로 사용

Ncb_event As Long

끝 유형

개인 유형 어댑터 _ 상태

Adapter_address(5) 바이트

Rev_major 를 바이트로 사용

0 을 바이트로 유지합니다

Adapter_type 은 바이트입니다

Rev_minor 를 바이트로 사용

정수 형식의 지속 기간입니다

Frmr_recv 는 정수입니다

Frmr_xmit 는 정수입니다

Iframe_recv_err 은 정수입니다

Xmit _ 정수로 중단

Xmit_success 만큼 길다

Recv_success 는

Iframe_xmit_err 은 정수입니다

Recv_buff_unavail 은 정수입니다

T 1 _ 정수 형식의 시간 초과

Ti _ 정수 형식의 시간 초과

보존 시간은 1

Free_ncbs 는 정수입니다

Max_cfg_ncbs 는 정수입니다

Max_ncbs 는 정수입니다

Xmit_buf_unavail 은 정수입니다

Max_dgram_size 는 정수입니다

Pending_sess 는 정수입니다

Max_cfg_sess 는 정수입니다

Max_sess 는 정수입니다

Max_sess_pkt_size 는 정수입니다

Name_count 는 정수입니다

끝 유형

개인 유형명 _ 버퍼

이름은 String * NCBNAMSZ 입니다

Name_num 은 정수입니다

Name_flags 는 정수입니다

끝 유형

개인 유형 ASTAT

어댑터 _ 상태로 조정

이름 버퍼로 NameBuff(30) 를 사용합니다

끝 유형

개인 선언 함수 netbioslib "netapi32.dll" (pncbas NCB) 은 바이트입니다

개인 선언자는 메모리 라이브러리 "kernel32" 별칭 "RtlMoveMemory" (hpvDest As Any, _

ByVal hpvSource As Long, _

ByVal cbCopy As Long)

개인 선언 함수 GetProcessHeap Lib "kernel32 "() 는 Long 입니다

개인 선언 함수 heapalloc lib "kernel 32" (byval hh EAP as long, _

ByVal dwFlags As Long, _

ByVal dwBytes 만큼 길다)

개인 선언 함수 heap free lib "kernel 32" (byval hh EAP as long, _

ByVal dwFlags As Long, _

LpMem As Any) 만큼 길다

정수 형태의 공용 함수 GetMAC ()

BRet 을 바이트로 표시

Dim myNcb 는 Ncb 입니다

Dim myASTAT As ASTAT

암담한 과거만큼 길다

Dim intMAC 은 정수입니다

MyNcb.ncb_command = NCBRESET

BRet = Netbios(myNcb)

MyNcb 사용

。 Ncb _ command = ncba 상태

。 Ncb_lana_num = 0

。 Ncb_callname = "* "입니다

。 Ncb_length = Len(myASTAT)

Pastat = heapalloc (getprocessheap (), HEAP_GENERATE_EXCEPTIONS 또는 HEAP_ZERO_MEMORY,. Ncb_length)

로 끝맺다

PASTAT = 0 이면

기능을 종료합니다

만약 ... 끝날거야

MyNcb.ncb_buffer = pASTAT

BRet = Netbios(myNcb)

CopyMemory myASTAT, myNcb.ncb_buffer, Len(myASTAT)

Intmac = myastat.adapt.adapter _ address (0)

Intmac = intmac+myastat.adapt.adapter _ address (1)

Intmac = intmac+myastat.adapt.adapter _ address (2)

Intmac = intmac+myastat.adapt.adapter _ address (3)

Intmac = intmac+myastat.adapt.adapter _ address (4)

Intmac = intmac+myastat.adapt.adapter _ address (5)

GetMAC = intMAC

HeapFree(GetProcessHeap (), 0, pASTAT) 를 호출합니다

기능을 종료합니다

문자열 형식의 공용 함수 GetMACAddress ()

BRet 을 바이트로 표시

Dim myNcb 는 Ncb 입니다

Dim myASTAT As ASTAT

암담한 과거만큼 길다

MyNcb.ncb_command = NCBRESET

BRet = Netbios(myNcb)

MyNcb 사용

。 Ncb _ command = ncba 상태

。 Ncb_lana_num = 0

。 Ncb_callname = "* "입니다

。 Ncb_length = Len(myASTAT)

Pastat = heapalloc (getprocessheap (), HEAP_GENERATE_EXCEPTIONS 또는 HEAP_ZERO_MEMORY,. Ncb_length)

로 끝맺다

PASTAT = 0 이면

기능을 종료합니다

만약 ... 끝날거야

MyNcb.ncb_buffer = pASTAT

BRet = Netbios(myNcb)

CopyMemory myASTAT, myNcb.ncb_buffer, Len(myASTAT)

Getmacaddress = hexex (myastat.adapt.adapter _ address (0)) & -"& Hexex (myastat.adapt.adapter _ address (1)) & -"& Hexex (myastat.adapt.adapter _ address (2)) & -"& Hexex (myastat.adapt.adapter _ address (3)) & -"& Hexex (myastat.adapt.adapter _ address (4)) & -"& Hexex (myastat.adapt.adapter _ address (5))

HeapFree(GetProcessHeap (), 0, pASTAT) 를 호출합니다

기능을 종료합니다

개인 함수 HexEx(ByVal B As Long) 를 문자열로 사용

Aa 를 문자열로 표시

Aa = 16 진수 $(B)

If len (aa) < 2 그리고

Aa = "0"& 알코올 중독자 상호 계명 협회

만약 ... 끝날거야

HexEx = aa

기능을 종료합니다