圣龙扬特-AVR电子

标题: 一键显示可用串口 [打印本页]

作者: yoya0303 时间: 2013-3-3 12:48
标题: 一键显示可用串口
运行后显示当前可以使用的串口和设备名

方便插上USB转串口后不知道生成的串口号

避免反复启动任设备理器查看

[attach]180[/attach]

[attach]181[/attach]

作者: yoya0303 时间: 2013-3-3 13:40
代码,可直接复制进文本文件,然后改扩展名为 *.vbs  双击即可运行

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly    = &h20

On Error Resume Next

If WScript.Arguments.UnNamed.Count = 1 Then
strComputer = WScript.Arguments.UnNamed(1)
Else
strComputer = "."
End If

Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
Set colInstances = objWMIService.ExecQuery( "SELECT * FROM Win32_PnPEntity WHERE  ClassGuid='{4d36e978-e325-11ce-bfc1-08002be10318}'", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )

For Each objInstance In colInstances
stri=stri+objInstance.Caption + vbcrlf
Next
msgbox stri

作者: 箫天 时间: 2013-3-3 14:30

试了，非常好用。
貌似不能自动刷新。
可再完善一下，能自动刷新或者加个刷新按钮。

作者: BG2UKY 时间: 2013-3-3 17:40
不错不错，很好用！

作者: yoya0303 时间: 2013-3-3 20:51

箫天发表于 2013-3-3 14:30
试了，非常好用。
貌似不能自动刷新。
可再完善一下，能自动刷新或者加个刷新按钮。 ...

老大自动刷新需要常驻进程下钩子。。。

作者: test 时间: 2013-3-5 11:51
抱歉，只有特定用户可以下载本站附件

作者: 社建电子 时间: 2013-3-27 23:52
手机下载了，明天放电脑上试试！

作者: 九天 时间: 2013-4-4 17:12
抱歉，只有特定用户可以下载本站附件

作者: 阿四 时间: 2013-5-30 12:57

解决大问题了

欢迎光临圣龙扬特-AVR电子 (http://avr.cnta.net/)