如何通过VB获取网卡地址

 

 

步骤：

 

1)在Visual Basic生成标准的EXE文件。缺省创建 Form1。 

2)在Form1中添加一命令按钮，缺省名为Command1。 

3)把下列代码放到Form1中说明部分。 

 

Option Explicit

Private Const NCBASTAT = &H33

Private Const NCBNAMSZ = 16

Private Const HEAP_ZERO_MEMORY = &H8

Private Const HEAP_GENERATE_EXCEPTIONS = &H4

Private Const NCBRESET = &H32

 

Private Type NCB

　　ncb_command As Byte Integer

　　ncb_retcode As Byte Integer

　　ncb_lsn As Byte Integer

　　ncb_num As Byte  Integer

　　ncb_buffer As Long String

　　ncb_length As Integer

　　ncb_callname As String * NCBNAMSZ

　　ncb_name As String * NCBNAMSZ

　　ncb_rto As Byte Integer

　　ncb_sto As Byte  Integer

　　ncb_post As Long

　　ncb_lana_num As Byte Integer

　　ncb_cmd_cplt As Byte Integer

　　ncb_reserve(9) As Byte  Reserved, must be 0

　　ncb_event As Long

End Type

 

Private Type ADAPTER_STATUS

　　adapter_address(5) As Byte As String * 6

　　rev_major As Byte Integer

　　reserved0 As Byte Integer

　　adapter_type As Byte Integer

　　rev_minor As Byte Integer

　　duration As Integer

　　frmr_recv As Integer

　　frmr_xmit As Integer

　　iframe_recv_err As Integer

　　xmit_aborts As Integer

　　xmit_success As Long

　　recv_success As Long

　　iframe_xmit_err As Integer

　　recv_buff_unavail As Integer

　　t1_timeouts As Integer

　　ti_timeouts As Integer

　　Reserved1 As Long

　　free_ncbs As Integer

　　max_cfg_ncbs As Integer

　　max_ncbs As Integer

　　xmit_buf_unavail As Integer

　　max_dgram_size As Integer

　　pending_sess As Integer

　　max_cfg_sess As Integer

　　max_sess As Integer

　　max_sess_pkt_size As Integer

　　name_count As Integer

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

 

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

 

把下面的代码放入Command1_Click的事件中：

 

Private Sub Command1_Click()

　　Dim myNcb As NCB

　　Dim bRet As Byte

　　myNcb.ncb_command = NCBRESET

　　bRet = Netbios(myNcb)

　　myNcb.ncb_command = NCBASTAT

　　myNcb.ncb_lana_num = 0

补充：软件开发 , Vb ,
上一个：如何在程序中启动 NT 的【拨号连接】对话框？
下一个：如何启动拨号网路中的连线？
更多图片编程知识:

VB这个程序代码怎么写？

vb如何快速入门?

求教VB读写二进制文件的方法

vb mschart控件问题请教

webbrowser，弹出窗口的问题

气愤，难道中国就没有好软件吗？难道中国就没有高手吗？
  
更多VB疑问解答：
vb把图片转换成 base64代码
批处理转移文 之errorlevel
vb 6.0 调用vb.net dll混合程序集错误
VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
求助在Dir1控件当前目录下新建一个文件夹的代码
CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
有两个磁盘阵列,如何使用能达到最好的效果
cloudStack 如何实现 vSphere的DRS功能
和难缠客户的那些事儿
批处理转移文 之errorlevel
vb 6.0 调用vb.net dll混合程序集错误
VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
求助在Dir1控件当前目录下新建一个文件夹的代码
CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
有两个磁盘阵列,如何使用能达到最好的效果