计算机接入了外部设备后,在设备管理器中可以看到有设备接入。
现在我如何通过VB,判断电脑有没有接外部硬件啊??
是笔记本电脑,外部设备是NI公司的PXI-1036 8-槽机箱,连接是插在笔记本无线网卡插槽中,连接后在设备管理器中可以看到,在任务栏中也会出现象U盘插入的标记.我想在我的一个VB的应用程序中,打开时加入判断用户是否插入了该设备到计算机.我先说下我本来想判断进程的,但是我发现该是设备接不接到计算机,计算机的进程是一样的.

解决方案 »

  1.   

    可以考虑用WMI对象来判断,WMI对象的用法可以在CSDN或百度中搜索一下。
    如果想了解更多的内容,可以下在一个WMI的SDK看看。
      

  2.   

    具体的你下一个WMI的SDK看看和在百度搜索一下相关资料就知道了。
    不要别人告诉你方法和方向后自己就等代码。程序的构成是代码没错,
    而你技术的构成是经验的累计,知道方向、找资料、看资料、理解资料
    都是累计经验提高技术水平的一个过程。如果你什么都等别人给你结果,
    那你不是想学技术或请教技术,是想叫人帮你打工。
      

  3.   

    '检测是否安装打印机'
    Function CheckInstallPrinter() As Boolean
    CheckInstallPrinter = True
    If Printers.Count <= 0 Then
        CheckInstallPrinter = False
        ShowPromptTipInfo 7, "", ""
    End If
    End Function
      

  4.   

    Private Sub Command1_Click()   Dim s, System, item
       Dim i As Integer   Set System = GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")
       For Each item In System
         'List1.AddItem item.cputype
         s = "Computer Info" & vbCrLf
         s = s & "***********************" & vbCrLf
         s = s & "计算机名称: " & item.Name & vbCrLf
         s = s & "状态: " & item.Status & vbCrLf
         s = s & "类型: " & item.SystemType & vbCrLf
         s = s & "生产厂家: " & item.Manufacturer & vbCrLf
         s = s & "型号: " & item.Model & vbCrLf
         s = s & "内存: ~" & item.totalPhysicalMemory \ 1024000 & "mb" & vbCrLf
         s = s & "域: " & item.domain & vbCrLf
         's = s & "工作组" & item.Workgroup & vbCrLf ‘获得工作组和域的选项不能同时用     s = s & "当前用户: " & item.username & vbCrLf
         s = s & "启动状态" & item.BootupState & vbCrLf
         s = s & "该计算机属于" & item.PrimaryOwnerName & vbCrLf
         s = s & "系统类型" & item.CreationClassName & vbCrLf
         s = s & "计算机类类型" & item.Description & vbCrLf     For i = 0 To 1 '这里假设安装了两个系统
           s = s & Chr(5) & "启动选项" & i & " :" & item.SystemStartupOptions(i) _
              & vbCrLf
         Next i
       Next   Text1.Text = s
    End Sub以上是我获取计算机信息的代码
    但是对于获取NI公司的PXI-1036 这个信息 我真不知道怎么弄