none
在VB中,如何修改裝置的 COM Port Number? RRS feed

  • 問題

  • On Error Resume Next
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_PnPEntity where Description = 'USB Serial Port'")

    For Each objItem In colItems
      Print  "Class GUID: " & objItem.ClassGuid
      Print  "Description: " & objItem.Description
      Print  "Device ID: " & objItem.DeviceID
      Print  "Manufacturer: " & objItem.Manufacturer
      Print  "Name: " & objItem.Name
      Print  "PNP Device ID: " & objItem.PNPDeviceID
      Print  "Service: " & objItem.Service
    Next

    這段是從前留言裡面找到的,可以查詢到'USB Serial Port'這個裝置的COM Port及其他有關裝置的資料,但是查詢到資料後,要怎麼變更他的COM Port呢?

    2006年3月17日 上午 04:06

解答

  • 你可能要去找 DDK(Device Driver Kit)或是系統程式設計的書籍,因為變更 COM Port Number 是屬於系統程式設計的層級,可能單用 VB 會做不到 .

    你也可以到 google 或 MSN 拜一下,也許會有答案 .

    2006年3月28日 上午 09:37
    版主

所有回覆

  • 沒辦法做到嗎?還是有誰能提供一下思考或閱讀方向的,謝謝~
    2006年3月24日 上午 09:38
  • 你可能要去找 DDK(Device Driver Kit)或是系統程式設計的書籍,因為變更 COM Port Number 是屬於系統程式設計的層級,可能單用 VB 會做不到 .

    你也可以到 google 或 MSN 拜一下,也許會有答案 .

    2006年3月28日 上午 09:37
    版主