如何通过VB获取网卡地址

• 程序语言] Microsoft Visual Basic 4.0,5.0,6.0
  [运行平台] WINDOWS
  [源码来源] http://support.microsoft.com/support/kb/articles/q175/4/72.asp?FR=0
  [功能描述] IPX和NETBIOS接口需要网络地址。该文通过详细的步骤演示了如何通过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_s As Integer
  　　max_sess_pkt_size As Integer
  　　name_count As Integer
  End Type

• [1] [2] [3] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 如何通过VB获取网卡地址 相关文章：
• ·如何通过VB获取网卡地址
• 如何通过VB获取网卡地址 相关软件

上一篇:用VB6设计有趣的动画场景

下一篇:VB制作图片浏览器

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐