Почему это приложение .net UIAutomation протекает / объединяется? - PullRequest
Новая
       0

Почему это приложение .net UIAutomation протекает / объединяется?

2 голосов
/ 30 июня 2010

У меня есть приложение, использующее .net UIAutomation, оно в конечном итоге исчерпывает память и вылетает, наблюдая за тем, как окна отображаются и закрываются. Казалось бы, проще показать это в VB, чем в C #, но в любом случае происходит то же самое. Кажется, что это утечка / пул в базовых прокси-объектах. Большая часть памяти не отображается как используемая как .net memory.

Какие-нибудь идеи о том, как сделать так, чтобы это прекратило протекать и все еще контролировали StructureChangedEvents? 

Imports System.Windows.Automation
Public Class Form1

Delegate Sub AddListCallback(ByVal Text As String)
Dim UIAeventHandler As StructureChangedEventHandler

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    BtnStartStop.Text = "Stop"
    Subscribe()
End Sub

Private Sub BtnStartStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStartStop.Click
    If "Start" = BtnStartStop.Text Then
        BtnStartStop.Text = "Stop"
        Subscribe()
    Else
        BtnStartStop.Text = "Start"
        Unsubscribe()
        lbEvents.Items.Clear()
        GC.GetTotalMemory(True)
    End If
End Sub

Public Sub Subscribe()
    UIAeventHandler = New StructureChangedEventHandler(AddressOf OnUIAutomationEvent)
    Automation.AddStructureChangedEventHandler(AutomationElement.RootElement, TreeScope.Descendants, UIAeventHandler)
End Sub 

Public Sub Unsubscribe()
    Automation.RemoveStructureChangedEventHandler(AutomationElement.RootElement, UIAeventHandler)
End Sub

''' <summary>
''' AutomationEventHandler delegate.
''' </summary>
''' <param name="src">Object that raised the event.</param>
''' <param name="e">Event arguments.</param>
Private Sub OnUIAutomationEvent(ByVal src As Object, ByVal e As StructureChangedEventArgs)
    ' Make sure the element still exists. Elements such as tooltips can disappear
    ' before the event is processed.  
    If e.StructureChangeType = StructureChangeType.ChildrenInvalidated Then
        Exit Sub
    End If
    Dim sourceElement As AutomationElement
    Try
        sourceElement = DirectCast(src, AutomationElement)
    Catch ex As ElementNotAvailableException
        Exit Sub
    End Try
    ' TODO Handle any other events that have been subscribed to.
    Console.WriteLine( "Element : """ & sourceElement.Current.LocalizedControlType & """ """ & sourceElement.Current.Name _
       & """ Struct Change Type : " & [Enum].GetName(GetType(StructureChangeType), e.StructureChangeType) _
       & " Runtime ID : " & getString(e.GetRuntimeId()))
End Sub 

Private Function getString(ByVal ints As Integer()) As String
    getString = ""
    For Each i As Integer In ints
        getString = getString & " " & i.ToString
    Next
End Function
End Class

1 Ответ

0 голосов
/ 30 июня 2010

Я бы сделал что-то подобное, когда вы откажетесь: 

Automation.RemoveAllEventHandlers();
UIAeventHandler = null;

UIAutomation будет поддерживать некоторые потоки, пока у вас есть объект AutomationEventHandler.Для меня это почти черный ящик, но вышеописанное исправило все проблемы, которые у меня были.

...