VB.NET获取网卡地址代码实现过程

VB.NET开发语言是一款面向对象的功能强大的编程语言。它的应用可以帮助开发人员实现许多功能需求。比如VB.NET获取网卡地址等。下面就会针对这一方法进行一个详细的解读，希望对大家有所帮助。#t#

十年的昌乐网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。网络营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整昌乐建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联建站从事“昌乐网站设计”,“昌乐网站推广”以来，每个客户项目都认真落实执行。

程序语言: Microsoft Visual Basic 4.0,5.0,6.0

运行平台: WINDOWS

功能描述: IPX和NETBIOS接口需要网络地址。该文通过详细的步骤演示了如何通过VB.NET获取网卡地址。

VB.NET获取网卡地址步骤：

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

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

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

 
 
 
      
  
  
  1. Option Explicit   
    2.   
  
  
  2. Private Const NCBASTAT = &H33   
    3.   
  
  
  3. Private Const NCBNAMSZ = 16   
    4.   
  
  
  4. Private Const HEAP_ZERO_MEMORY = &H8   
    5.   
  
  
  5. Private Const HEAP_GENERATE_EXCEPTIONS = &H4   
    6.   
  
  
  6. Private Const NCBRESET = &H32   
    7.   
  
  
  7. Private Type NCB   
    8.   
  
  
  8. ncb_command As Byte 'Integer   
    9.   
  
  
  9. ncb_retcode As Byte 'Integer   
    10.   
  
  
  10. ncb_lsn As Byte 'Integer   
    11.   
  
  
  11. ncb_num As Byte ' Integer   
    12.   
  
  
  12. ncb_buffer As Long 'String   
    13.   
  
  
  13. ncb_length As Integer   
    14.   
  
  
  14. ncb_callname As String * NCBNAMSZ   
    15.   
  
  
  15. ncb_name As String * NCBNAMSZ   
    16.   
  
  
  16. ncb_rto As Byte 'Integer   
    17.   
  
  
  17. ncb_sto As Byte ' Integer   
    18.   
  
  
  18. ncb_post As Long   
    19.   
  
  
  19. ncb_lana_num As Byte 'Integer   
    20.   
  
  
  20. ncb_cmd_cplt As Byte 'Integer   
    21.   
  
  
  21. ncb_reserve(9) As Byte ' Reserved, must be 0   
    22.   
  
  
  22. ncb_event As Long   
    23.   
  
  
  23. End Type   
    24.   
  
  
  24. Private Type ADAPTER_STATUS   
    25.   
  
  
  25. adapter_address(5) As Byte 'As String * 6   
    26.   
  
  
  26. rev_major As Byte 'Integer   
    27.   
  
  
  27. reserved0 As Byte 'Integer   
    28.   
  
  
  28. adapter_type As Byte 'Integer   
    29.   
  
  
  29. rev_minor As Byte 'Integer   
    30.   
  
  
  30. duration As Integer   
    31.   
  
  
  31. frmr_recv As Integer   
    32.   
  
  
  32. frmr_xmit As Integer   
    33.   
  
  
  33. iframe_recv_err As Integer   
    34.   
  
  
  34. xmit_aborts As Integer   
    35.   
  
  
  35. xmit_success As Long   
    36.   
  
  
  36. recv_success As Long   
    37.   
  
  
  37. iframe_xmit_err As Integer   
    38.   
  
  
  38. recv_buff_unavail As Integer   
    39.   
  
  
  39. t1_timeouts As Integer   
    40.   
  
  
  40. ti_timeouts As Integer   
    41.   
  
  
  41. Reserved1 As Long   
    42.   
  
  
  42. free_ncbs As Integer   
    43.   
  
  
  43. max_cfg_ncbs As Integer   
    44.   
  
  
  44. max_ncbs As Integer   
    45.   
  
  
  45. xmit_buf_unavail As Integer   
    46.   
  
  
  46. max_dgram_size As Integer   
    47.   
  
  
  47. pending_sess As Integer   
    48.   
  
  
  48. max_cfg_sess As Integer   
    49.   
  
  
  49. max_sess As Integer   
    50.   
  
  
  50. max_sess_pkt_size As Integer   
    51.   
  
  
  51. name_count As Integer   
    52.   
  
  
  52. End Type   
    53.   
  
  
  53. Private Type NAME_BUFFER   
    54.   
  
  
  54. name As String * NCBNAMSZ   
    55.   
  
  
  55. name_num As Integer   
    56.   
  
  
  56. name_flags As Integer   
    57.   
  
  
  57. End Type   
    58.   
  
  
  58. Private Type ASTAT   
    59.   
  
  
  59. adapt As ADAPTER_STATUS   
    60.   
  
  
  60. NameBuff(30) As NAME_BUFFER   
    61.   
  
  
  61. End Type   
    62.   
  
  
  62. Private Declare Function Netbios 
    Lib "netapi32.dll" (pncb As NCB) As Byte   
    63.   
  
  
  63. Private Declare Sub CopyMemory Lib 
    "kernel32" Alias "RtlMoveMemory" _   
    64.   
  
  
  64. (hpvDest As Any, ByVal hpvSource 
    As Long, ByVal cbCopy As Long)   
    65.   
  
  
  65. Private Declare Function GetProcessHeap 
    Lib "kernel32"() As Long   
    66.   
  
  
  66. Private Declare Function HeapAlloc
     Lib "kernel32" _   
    67.   
  
  
  67. (ByVal hHeap As Long, ByVal 
    dwFlags As Long, _   
    68.   
  
  
  68. ByVal dwBytes As Long) As Long   
    69.   
  
  
  69. Private Declare Function HeapFree Lib 
    "kernel32" (ByVal hHeap As Long, _   
    70.   
  
  
  70. ByVal dwFlags As Long, lpMem As Any) As Long  
    71.

把下面的VB.NET获取网卡地址的代码放入Command1_Click的事件中：

 
 
 
      
  
  
  1. Private Sub Command1_Click()   
    2.   
  
  
  2. Dim myNcb As NCB   
    3.   
  
  
  3. Dim bRet As Byte   
    4.   
  
  
  4. myNcb.ncb_command = NCBRESET   
    5.   
  
  
  5. bRet = Netbios(myNcb)   
    6.   
  
  
  6. myNcb.ncb_command = NCBASTAT   
    7.   
  
  
  7. myNcb.ncb_lana_num = 0   
    8.   
  
  
  8. myNcb.ncb_callname = "* "   
    9.   
  
  
  9. Dim myASTAT As ASTAT, tempASTAT As ASTAT   
    10.   
  
  
  10. Dim pASTAT As Long   
    11.   
  
  
  11. myNcb.ncb_length = Len(myASTAT)   
    12.   
  
  
  12. Debug.Print Err.LastDllError   
    13.   
  
  
  13. pASTAT = HeapAlloc(GetProcessHeap(), 
    HEAP_GENERATE_EXCEPTIONS _   
    14.   
  
  
  14. Or HEAP_ZERO_MEMORY, myNcb.ncb_length)   
    15.   
  
  
  15. If pASTAT = 0 Then   
    16.   
  
  
  16. Debug.Print "memory allcoation failed!"   
    17.   
  
  
  17. Exit Sub   
    18.   
  
  
  18. End If   
    19.   
  
  
  19. myNcb.ncb_buffer = pASTAT   
    20.   
  
  
  20. bRet = Netbios(myNcb)   
    21.   
  
  
  21. Debug.Print Err.LastDllError   
    22.   
  
  
  22. CopyMemory myASTAT, myNcb.
    ncb_buffer, Len(myASTAT)   
    23.   
  
  
  23. MsgBox Hex(myASTAT.adapt
    .adapter_address(0)) & " " & _   
    24.   
  
  
  24. Hex(myASTAT.adapt.adapter_
    address(1)) _   
    25.   
  
  
  25. & " " & Hex(myASTAT.adapt
    .adapter_address(2)) & " " _   
    26.   
  
  
  26. & Hex(myASTAT.adapt.adapter_address(3)) _   
    27.   
  
  
  27. & " " & Hex(myASTAT.adapt.
    adapter_address(4)) & " " _   
    28.   
  
  
  28. & Hex(myASTAT.adapt.adapter_address(5))   
    29.   
  
  
  29. HeapFree GetProcessHeap(), 
    0, pASTAT   
    30.   
  
  
  30. End Sub  
    31.

4)按F5，运行该程序。

5)点击Command1。注意，网卡地址将在一信息框中显示出来。至此，VB.NET获取网卡地址的操作就结束了。

分享标题：VB.NET获取网卡地址代码实现过程
URL链接：http://www.shufengxianlan.com/qtweb/news16/517166.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联

猜你还喜欢下面的内容

微信公众号知识

同城分类信息

Google外贸推广　　 　成都微商城开发　　 　成都SEO公司　　 　成都模板网站　　 　遂宁做网站　　 　网站方案　　 　四川晃众门窗　　 　高端网站设计　　 　成都翻译公司　　 　成都营销网站建设　　 　响应式报价　　 　手机网站制作　　 　泸州网站建设　　 　重庆花箱　　 　南充网站制作　　 　网站设计　　 　软文推广　　 　成都app开发　　 　成都网站制作　　 　广安园林绿化公司