?? 網(wǎng)卡地址.frm
字號:
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 1170
ClientLeft = 60
ClientTop = 345
ClientWidth = 3870
LinkTopic = "Form1"
ScaleHeight = 1170
ScaleWidth = 3870
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text1
Alignment = 2 'Center
Height = 315
Left = 1830
TabIndex = 1
Top = 210
Width = 1845
End
Begin VB.CommandButton Command1
Caption = "退 出"
Height = 315
Left = 2790
TabIndex = 0
Top = 660
Width = 825
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "本機網(wǎng)卡物理地址:"
Height = 180
Left = 150
TabIndex = 2
Top = 240
Width = 1620
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' 字符常數(shù)說明
Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private Const HEAP_ZERO_MEMORY = &H8
Private Const HEAP_GENERATE_EXCEPTIONS = &H4
Private Const NCBRESET = &H32
' 結(jié)構(gòu)型變量說明
Private Type NCB
NCB_Command As Byte
NCB_Buffer As Long
NCB_Length As Integer
NCB_CallName As String * NCBNAMSZ
NCB_Lana_Num As Byte
End Type
Private Type ADAPTER_STATUS
Adapter_Address(5) As Byte
End Type
Private Type NAME_BUFFER
Name As String * NCBNAMSZ
Name_Num As Integer
Name_Flags As Integer
End Type
Private Type ASTAT
Adapt As ADAPTER_STATUS
NameBuff(30) As NAME_BUFFER
End Type
' API函數(shù)聲明
Private Declare Function Netbios Lib "netapi32.dll" (pNCB As NCB) As Byte
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
Private Declare Function GetProcessHeap Lib "kernel32" () As Long
Private Declare Function HeapAlloc Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function HeapFree Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) As Long
Private Sub Form_Load()
Dim myNCB As NCB
Dim myASTAT As ASTAT, TempASTAT As ASTAT
Dim Pastat As Long
myNCB.NCB_Command = NCBRESET
Netbios myNCB
myNCB.NCB_Command = NCBASTAT
myNCB.NCB_Lana_Num = 0
myNCB.NCB_CallName = "*"
myNCB.NCB_Length = Len(myASTAT)
Pastat = HeapAlloc(GetProcessHeap(), HEAP_GENERATE_EXCEPTIONS Or HEAP_ZERO_MEMORY, myNCB.NCB_Length)
myNCB.NCB_Buffer = Pastat
Netbios myNCB
CopyMemory myASTAT, myNCB.NCB_Buffer, Len(myASTAT)
Text1 = Hex(myASTAT.Adapt.Adapter_Address(0)) & "-" & Hex(myASTAT.Adapt.Adapter_Address(1)) & "-" & Hex(myASTAT.Adapt.Adapter_Address(2)) & "-" & Hex(myASTAT.Adapt.Adapter_Address(3)) & "-" & Hex(myASTAT.Adapt.Adapter_Address(4)) & "-" & Hex(myASTAT.Adapt.Adapter_Address(5))
HeapFree GetProcessHeap(), 0, Pastat
End Sub
Private Sub Command1_Click()
Unload Me
End
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -