【已解决】ObjGet 获取对象的问题

itzyx

Local $Ports = ''
$objWMIService = ObjGet("WinMgmts:")
$colBios = $objWMIService.ExecQuery("Select * from  Win32_PNPEntity")
For $object In $colBios
        $Ports &= StringMid($object.Caption, 1) & @CRLF
Next
$Bports = StringRegExp($Ports, '(?m).+\(COM\d+\)$', 3)

上面这段代码成功获取到了端口名称，后面我插入了新的USB设备，准备再次调用一下
$objWMIService = ObjGet("WinMgmts:")
$colBios = $objWMIService.ExecQuery("Select * from Win32_PNPEntity")  就报错了  “The requested action with this object has failed”
这个是什么原因？ 插入新的设备 怎么可以重新枚举一下设备名称？希望大佬们能指点一下，万分感谢！

itzyx

上个帖子已经解决了检测设备插入的问题，现在希望可以枚举一下所有设备名称，然后匹配插入的端口名称。

afan

昨天跟你说了，先试试 $objWMIService.ExecQuery("Select * from Win32_SerialPort") ，不是 Win32_PNPEntity
没有重现错误的代码，谁都猜不到，只能瞎猜

itzyx

afan 发表于 2022-3-12 15:01
昨天跟你说了，先试试 $objWMIService.ExecQuery("Select * from Win32_SerialPort") ，不是 Win32_PNPEnti ...

嗯嗯  A大我昨晚 试了的  
$colBios = $objWMIService.ExecQuery("Select * from Win32_SerialPort")
$colBios = $objWMIService^ ERROR

afan

始终没看到你的问题代码，罢了。
最后再帮你补一刀：
如果你是添加到 WM_DEVICECHANGE 系统消息中直接执行的，那肯定不行。消息还未传递，类似处于“挂起”状态，你可以做出适当的标记在其它处处理或使用各种延后执行方式，系统消息都是必须尽快返回。

BTW, 硬件信息一般都可以在注册表中获取，快如闪电。WMI是最慢的。

itzyx

afan 发表于 2022-3-12 16:32
始终没看到你的问题代码，罢了。
最后再帮你补一刀：
如果你是添加到 WM_DEVICECHANGE 系统消息中直接执 ...

A大我的问题 ，因为代码有点长，没发出来 ，想着常说的精简代码，对症下药 ，是我欠考虑了。。。
我的本意是想做个实时检测端口插入拔出的脚本，可以区分端口插入主机的顺序，然后记录对应设备的编号批量打开软件，现在其他功能都已经实现了，就差这个端口全名的问题了，因为有的设备插入 会有两个端口号，显示全名我才能知道剔除哪个端口不用，下面是代码(编辑一下 ，少了一段代码，不过问题就出在截止的代码行那里，我插入设备之后就报错了）：

#include <GuiListView.au3>
#include <Editconstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <ARRAY.au3>

Global $ListView_HitItem, $Listview_HitItemIndex, $Listview_HitItemSubItem, $ListView_HitItemInput,$Portnames;定义全局变量

Global Const $DBT_DEVICEARRIVAL = 0x8000 ;设备插入
Global Const $DBT_DEVICEREMOVECOMPLETE = 0x8004 ;设备移除
Global Const $DBT_DEVTYP_PORT = 0x00000003

$Form = GUICreate("端口读取工具",820, 450)
$Button=GUICtrlCreateButton('OK',727,412,80,30,-1,$WS_EX_WINDOWEDGE)
GUICtrlCreateLabel("BY-Lay  Version1.0.1", 8, 420,200,40)
Local $sFont = "宋体"
GUICtrlSetFont(-1,10, 100, 2, $sFont)
GUICtrlSetState(-1,128)
GUISetFont(9, 400, 0, "微软雅黑")
$Combox=GUICtrlCreateCombo('',620,415,80,30)
GUICtrlSetTip($Combox,'选择已有的快捷方式名称，或者手动粘贴需要打开软件的路径','提示',1,1)
$Check=GUICtrlCreateCheckbox('',600,415,15,30)
GUICtrlSetTip($Check,'勾选复选框，根据端口数量打开对应软件窗口数量','提示',1,1)
GUICtrlSetData($Combox, 'QGNSS|PowerGPS|TTFF_Tester','QGNSS')
$ListView = GUICtrlCreateListView("序列（List）|端口（Port)|模块编号(ModuleId)", 8, 8, 800, 400)
GUICtrlSendMsg($ListView, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES);扩展风格
$label = GUICtrlCreateLabel("", -100, -100, 1, 1)
GUISetState(@SW_SHOW)
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 0, 100)
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 1, 500)
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 2, 195)

Local $Ports=''
$objWMIService = objget("WinMgmts:")
$colBios = $objWMIService.ExecQuery("Select * from  Win32_PNPEntity")
For $object in $colBios
  $Ports &= StringMid($object.Caption,1)& @CRLF
Next
$Bports = StringRegExp($Ports,'(?m).+\(COM\d+\)$', 3)

If UBound($Bports)<1 Then
Sleep(50)
Else
For $i = 1 To UBound($Bports)
        GUICtrlCreateListViewItem( $i &'|'&$Bports[$i-1]& "|", $ListView)
Next
EndIf


GUIRegisterMsg($WM_DEVICECHANGE, 'My_Message_Test')
GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY")
GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")


Func My_Message_Test($hWnd, $Msg, $wParam, $lParam)
        Switch $wParam
                        Case $DBT_DEVICEARRIVAL
                                Local $dbhdr = DllStructCreate('DWORD size;DWORD devicetype;DWORD reserved', $LParam)
                                If DllStructGetData($dbhdr, "devicetype") = $DBT_DEVTYP_PORT Then
                                        Local $dbport = DllStructCreate('DWORD size;DWORD devicetype;DWORD reserved;wchar name[128]', $LParam)
                                        $Portnames=DllStructGetData($dbport, 'name')
                                        $WMIService = objget("WinMgmts:")
                                        $colBios = $WMIService.ExecQuery("Select * from Win32_SerialPort")

itzyx

afan 发表于 2022-3-12 16:32
始终没看到你的问题代码，罢了。
最后再帮你补一刀：
如果你是添加到 WM_DEVICECHANGE 系统消息中直接执 ...

我的问题  应该就是A大你说的“ 添加到 WM_DEVICECHANGE 系统消息中直接执行的 ” 我来想想办法解决

haijie1223

我能插嘴吗

itzyx

haijie1223 发表于 2022-3-12 19:05
我能插嘴吗

怎么听起来怪怪的 ，发哥你评论必须可以的。。。

haijie1223

itzyx 发表于 2022-3-12 19:31
怎么听起来怪怪的 ，发哥你评论必须可以的。。。

那就插一下嘴

GUICreate("", 400, 150)
GUISetState()
Global $mCom[]
Local $objWMIService = ObjGet("WinMgmts:")
Local $PNPEntity = $objWMIService.ExecQuery("Select * from  Win32_PNPEntity")
For $object In $PNPEntity
        If StringInStr($object.Caption, '(COM') Then
                Local $A = StringRegExp($object.Caption, '(COM\d+)', 3)
                If IsArray($A) Then $mCom[$A[0]] = $object.Caption
        EndIf
Next
GUIRegisterMsg(0x0219, "_DEVCHANGE")
Do
Until GUIGetMsg() = -3 

Func _DEVCHANGE($hWnd, $Msg, $wParam, $lParam)
        Switch $wParam
                Case 0x8000, 0x8004
                        Local $tBuf = DllStructCreate('DWORD;DWORD devicetype;DWORD;wchar name[128]', $lParam)
                        If DllStructGetData($tBuf, "devicetype") = 3 Then MsgBox(0, '', $mCom[DllStructGetData($tBuf, 'name')])
        EndSwitch
EndFunc   ;==>_DEVCHANGE

afan

haijie1223 发表于 2022-3-12 19:33
那就插一下嘴

介个貌似得先把所有设备先插进去再运行
.13 .15 beta版、.16正式版才能运行Maps，我.14没测试，猜的

haijie1223

afan 发表于 2022-3-12 19:47
介个貌似得先把所有设备先插进去再运行
.13 .15 beta版、.16正式版才能运行Maps，我.14没测试，猜的
:f ...

没改他的逻辑，只添加了一个map而已。14.0以后的版本我就没用过，13.xx可以用。

itzyx

haijie1223 发表于 2022-3-12 19:33
那就插一下嘴

运行报错了  Global $mCom[^ ERROR
不过我看了一下 发哥你这代码，就像A大说的，需要把所有设备插进去 才运行吧，不然还是获取不到设备名称。

haijie1223

itzyx 发表于 2022-3-12 19:58
运行报错了  Global $mCom[^ ERROR
不过我看了一下 发哥你这代码，就像A大说的，需要把所有设备插进去  ...

zghwelcome

我也插个嘴，这个问题处理下com错误就行了