У меня есть следующий код, выполняющийся в потоке для перечисления локальных машин в активном каталоге. Это займет некоторое время для завершения (около 5-10 секунд), поэтому, если пользователь закрывает приложение до завершения перечисления, приложение завершает работу в течение 5-10 секунд. Я пробовал thread.abort, но, поскольку он ожидает завершения For Each SubChildEntry In SubParentEntry.Children
, он не прерывается, пока не вернется.
Dim childEntry As DirectoryEntry = Nothing
Dim ParentEntry As New DirectoryEntry
ParentEntry.Path = "WinNT:"
For Each childEntry In ParentEntry.Children
Windows.Forms.Application.DoEvents()
Select Case childEntry.SchemaClassName
Case "Domain"
Dim SubChildEntry As DirectoryEntry
Dim SubParentEntry As New DirectoryEntry
SubParentEntry.Path = "WinNT://" & childEntry.Name
'The following line takes a long time to complete
'the thread will not abort until this returns
For Each SubChildEntry In SubParentEntry.Children
Select Case SubChildEntry.SchemaClassName
Case "Computer"
_collServers.Add(SubChildEntry.Name.ToUpper)
End Select
Next
End Select
Next
RaiseEvent EnumComplete()