hi, iim trying to write a driver for an mp3 player i have. ive been looking
on google for hours, but nothing i try works...i was wondering if anyone
could point me in the right ditrection on why my code wont work...thanks
Private wmiEventHandler As New Management.EventArrivedEventHandler(AddressOf
UsbEventArrived)
Private WithEvents wmiEventWatcher As Management.ManagementEventWatcher
Private WithEvents wmiOperationObser As New
Management.ManagementOperationObserver
Private wmiEventQuery As New Management.WqlEventQuery
Public Sub GetWmi()
Dim scope As New Management.ManagementScope("root\CIMV2")
scope.Options.EnablePrivileges = True
Try
wmiEventQuery.EventClassName = "__InstanceCreationEvent"
wmiEventQuery.WithinInterval = New TimeSpan(0, 0, 10)
wmiEventQuery.Condition = "TargetInstance ISA
'Win32_USBControllerDevice' "
wmiEventWatcher = New Management.ManagementEventWatcher(scope,
wmiEventQuery)
wmiEventWatcher.Start()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Public Sub UsbEventArrived(ByVal sender As Object, ByVal e As
Management.EventArrivedEventArgs) Handles wmiEventWatcher.EventArrived
''Get the Event object and display it
For Each pd As Management.PropertyData In e.NewEvent.Properties
''ExtendedObject is a temp name, its a class inherited from TreeNode.
''only adds new string properties
Dim obj As New ExtendedObject
Dim mbo As Management.ManagementBaseObject = CType(pd.Value,
Management.ManagementBaseObject)
obj.Name = pd.Name
obj.Text = pd.Name
obj.Type = pd.Type.ToString()
obj.Value = pd.Value
obj.Origin = pd.Origin
''once this line is hit, the sub is exited
'Me.TreeView1.Nodes.Add(obj)
''second time through, once the code gets here, the sub is exited
If mbo IsNot Nothing Then
For Each prop As Management.PropertyData In mbo.Properties
Dim obj2 As New ExtendedObject
obj2.Name = prop.Name
obj2.Value = prop.Value
obj.Nodes.Add(obj2)
Next
End If
Next
End Sub
--
-iwdu15