作者timohu ( )
看板Visual_Basic
标题Re: [VB6 ] 找comport的问题
时间Tue May 11 16:58:22 2010
我是用你第二个方法～
Set colItems = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("Select
* from Win32_PnPEntity where Name like '%(com%)%'")
For Each objItem In colItems
strportnum = Replace(Mid(objItem.Name, InStr(objItem.Name, "COM")
+ 3, 4), ")", "")
On Error Resume Next
If Err.Number <> 0 Then isopen = True: Resume rrr Else isopen = False
rrr:
Combo3.AddItem ("COM" & CStr(strportnum)) vbTab & isopen & vbNewLine
Next
※ 引述《hirabbitt (兔子)》之铭言：
: 从网路上找到的方法1
: Set obj =
: GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
: Set items = obj.ExecQuery("Select * from Win32_SerialPort")
: For Each item In items
: //item.DeviceID 就是要找的port
: Next
: 但是我以这种方式去做
: 好像只能找到com1和com2
: 另外接上去的com6并没有出现
: 而且
: 我看不懂obj和items那边在做什麽QQ
: ========================================
: 又找了方法2
: 只是把items的语法换掉而已
: 变成
: Set items =
: obj.ExecQuery("Select * from Win32_PnPEntity where Name like %(com%)%")
: 结果跑出Automation Error
: 我把where後面的语句删掉後
: Set items = obj.ExecQuery("Select * from Win32_PnPEntity")
: 虽然没有出错
: 但是跑出一堆看不懂的port
: 像是ROOT\ACPI_HAL\0000等等
: 而且也没有我要的com6
: ==========================================
: 然後找了方法3
: 是生一个MSComm物件
: 然後用for一个一个port去试能不能开启
: 这方法终於成功的找到我的com6
: 可是感觉有点笨?
: ===========================================
: 想请问
: 是不是没有其他方式了?
: 谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 219.87.152.131
※ 编辑: timohu 来自: 219.87.152.131 (05/11 16:58)
※ 编辑: timohu 来自: 219.87.152.131 (05/11 16:59)
1F：推 TroyLee:HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM ? 05/16 01:34