html5中文学习网

您的位置: 首页 > 网站及特效实例 > jquery特效 » 正文

如何通过VB获取网卡地址_编程语言综合

[ ] 已经帮助:人解决问题

   1)在Visual Basic生成标准的EXE文件。缺省创建 Form1。HcyHTML5中文学习网 - HTML5先行者学习网

  2)在Form1中添加一命令按钮,缺省名为Command1。HcyHTML5中文学习网 - HTML5先行者学习网

  3)把下列代码放到Form1中说明部分。HcyHTML5中文学习网 - HTML5先行者学习网

  Option ExplicitHcyHTML5中文学习网 - HTML5先行者学习网

  Private Const NCBASTAT = &H33HcyHTML5中文学习网 - HTML5先行者学习网

  Private Const NCBNAMSZ = 16HcyHTML5中文学习网 - HTML5先行者学习网

  Private Const HEAP_ZERO_MEMORY = &H8HcyHTML5中文学习网 - HTML5先行者学习网

  Private Const HEAP_GENERATE_EXCEPTIONS = &H4HcyHTML5中文学习网 - HTML5先行者学习网

  Private Const NCBRESET = &H32HcyHTML5中文学习网 - HTML5先行者学习网

  Private Type NCBHcyHTML5中文学习网 - HTML5先行者学习网

  ncb_command As Byte 'IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  ncb_retcode As Byte 'IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  ncb_lsn As Byte 'IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  ncb_num As Byte ' IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  ncb_buffer As Long 'StringHcyHTML5中文学习网 - HTML5先行者学习网

  ncb_length As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  ncb_callname As String * NCBNAMSZHcyHTML5中文学习网 - HTML5先行者学习网

  ncb_name As String * NCBNAMSZHcyHTML5中文学习网 - HTML5先行者学习网

  ncb_rto As Byte 'IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  ncb_sto As Byte ' IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  ncb_post As LongHcyHTML5中文学习网 - HTML5先行者学习网

  ncb_lana_num As Byte 'IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  ncb_cmd_cplt As Byte 'IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  ncb_reserve(9) As Byte ' Reserved, must be 0HcyHTML5中文学习网 - HTML5先行者学习网

  ncb_event As LongHcyHTML5中文学习网 - HTML5先行者学习网

  End TypeHcyHTML5中文学习网 - HTML5先行者学习网

  Private Type ADAPTER_STATUSHcyHTML5中文学习网 - HTML5先行者学习网

  adapter_address(5) As Byte 'As String * 6HcyHTML5中文学习网 - HTML5先行者学习网

  rev_major As Byte 'IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  reserved0 As Byte 'IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  adapter_type As Byte 'IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  rev_minor As Byte 'IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  duration As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  frmr_recv As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  frmr_xmit As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  if rame_recv_err As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  xmit_aborts As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  xmit_success As LongHcyHTML5中文学习网 - HTML5先行者学习网

  recv_success As LongHcyHTML5中文学习网 - HTML5先行者学习网

  if rame_xmit_err As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  recv_buff_unavail As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  t1_timeouts As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  ti_timeouts As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  Reserved1 As LongHcyHTML5中文学习网 - HTML5先行者学习网

  free_ncbs As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  max_cfg_ncbs As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  max_ncbs As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  xmit_buf_unavail As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  max_dgram_size As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  pending_sess As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  max_cfg_sess As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  max_sess As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  max_sess_pkt_size As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  name_count As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  End TypeHcyHTML5中文学习网 - HTML5先行者学习网

  Private Type NAME_BUFFERHcyHTML5中文学习网 - HTML5先行者学习网

  name As String * NCBNAMSZHcyHTML5中文学习网 - HTML5先行者学习网

  name_num As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  name_flags As IntegerHcyHTML5中文学习网 - HTML5先行者学习网

  End TypeHcyHTML5中文学习网 - HTML5先行者学习网

  Private Type ASTATHcyHTML5中文学习网 - HTML5先行者学习网

  adapt As ADAPTER_STATUSHcyHTML5中文学习网 - HTML5先行者学习网

  NameBuff(30) As NAME_BUFFERHcyHTML5中文学习网 - HTML5先行者学习网

  End TypeHcyHTML5中文学习网 - HTML5先行者学习网

  Private Declare Function Netbios Lib "netapi32.dll" (pncb As NCB) As ByteHcyHTML5中文学习网 - HTML5先行者学习网

  Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)HcyHTML5中文学习网 - HTML5先行者学习网

  Private Declare Function GetProcessHeap Lib "kernel32" () As LongHcyHTML5中文学习网 - HTML5先行者学习网

  Private Declare Function HeapAlloc Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, ByVal dwBytes As Long) As LongHcyHTML5中文学习网 - HTML5先行者学习网

  Private Declare Function HeapFree Lib "kernel32" (ByVal hHeap As Long,ByVal dwFlags As Long, lpMem As Any) As LongHcyHTML5中文学习网 - HTML5先行者学习网

  把下面的代码放入Command1_Click的事件中:HcyHTML5中文学习网 - HTML5先行者学习网

  Private Sub Command1_Click()HcyHTML5中文学习网 - HTML5先行者学习网

  Dim myNcb As NCBHcyHTML5中文学习网 - HTML5先行者学习网

  Dim bRet As ByteHcyHTML5中文学习网 - HTML5先行者学习网

  myNcb.ncb_command = NCBRESETHcyHTML5中文学习网 - HTML5先行者学习网

  bRet = Netbios(myNcb)HcyHTML5中文学习网 - HTML5先行者学习网

  myNcb.ncb_command = NCBASTATHcyHTML5中文学习网 - HTML5先行者学习网

  myNcb.ncb_lana_num = 0HcyHTML5中文学习网 - HTML5先行者学习网

  myNcb.ncb_callname = "* "HcyHTML5中文学习网 - HTML5先行者学习网

  Dim myASTAT As ASTAT, tempASTAT As ASTATHcyHTML5中文学习网 - HTML5先行者学习网

  Dim pASTAT As LongHcyHTML5中文学习网 - HTML5先行者学习网

  myNcb.ncb_length = Len(myASTAT)HcyHTML5中文学习网 - HTML5先行者学习网

  Debug.Print Err.LastDllErrorHcyHTML5中文学习网 - HTML5先行者学习网

  pASTAT = HeapAlloc(GetProcessHeap(), HEAP_GENERATE_EXCEPTIONS or HEAP_ZERO_MEMORY, myNcb.ncb_length)HcyHTML5中文学习网 - HTML5先行者学习网

  If pASTAT = 0 ThenHcyHTML5中文学习网 - HTML5先行者学习网

  Debug.Print "memory allcoation failed!"HcyHTML5中文学习网 - HTML5先行者学习网

  Exit SubHcyHTML5中文学习网 - HTML5先行者学习网

  End IfHcyHTML5中文学习网 - HTML5先行者学习网

  myNcb.ncb_buffer = pASTATHcyHTML5中文学习网 - HTML5先行者学习网

  bRet = Netbios(myNcb)HcyHTML5中文学习网 - HTML5先行者学习网

  Debug.Print Err.LastDllErrorHcyHTML5中文学习网 - HTML5先行者学习网

  CopyMemory myASTAT, myNcb.ncb_buffer, Len(myASTAT)HcyHTML5中文学习网 - HTML5先行者学习网

  MsgBox Hex(myASTAT.adapt.adapter_address(0)) & " " & Hex(myASTAT.adapt.adapter_address(1)) _HcyHTML5中文学习网 - HTML5先行者学习网

  & " " & Hex(myASTAT.adapt.adapter_address(2)) & " " _HcyHTML5中文学习网 - HTML5先行者学习网

  & Hex(myASTAT.adapt.adapter_address(3)) _HcyHTML5中文学习网 - HTML5先行者学习网

  & " " & Hex(myASTAT.adapt.adapter_address(4)) & " " _HcyHTML5中文学习网 - HTML5先行者学习网

  & Hex(myASTAT.adapt.adapter_address(5))HcyHTML5中文学习网 - HTML5先行者学习网

  HeapFree GetProcessHeap(), 0, pASTATHcyHTML5中文学习网 - HTML5先行者学习网

  End SuHcyHTML5中文学习网 - HTML5先行者学习网

  5)点击Command1。注意,网卡地址将在一信息框中显示出来。HcyHTML5中文学习网 - HTML5先行者学习网

(责任编辑:)
推荐书籍
推荐资讯
关于HTML5先行者 - 联系我们 - 广告服务 - 友情链接 - 网站地图 - 版权声明 - 人才招聘 - 帮助