在Visual Basic中使用GetPixel/GetDC的內存泄漏

Question

我有一個計時器，其中包括在屏幕上檢查5個色點的顏色變化。我的程序會監控電話系統應用程序，並檢查是否有來自5個按鈕中任何一個的新來電。基於我發佈的另一個問題，我正在使用以下代碼。 Monitor an area of the screen for a certain color in Visual Basic

Private Function CheckforCall() 
    Try 
     Dim queue1 As Integer = GetPixel(GetDC(0), 40, 573) 
     Dim queue2 As Integer = GetPixel(GetDC(0), 140, 573) 
     Dim queue3 As Integer = GetPixel(GetDC(0), 240, 573) 
     Dim queue4 As Integer = GetPixel(GetDC(0), 340, 573) 
     Dim queue5 As Integer = GetPixel(GetDC(0), 440, 573) 
     ReleaseDC(0) 

    <code snipped - Checks to see if the pixel color matches and 
     returns true or false> 

    Catch ex As Exception 
     Return False 
    End Try 
End Function 

使用此代碼，GDI對象一飛沖天非常迅速，短期內內，拋出OutOfMemory例外。我假設我沒有正確地發佈DC，但我似乎無法找到任何其他方式來做到這一點。

Answer 1

電話GetDC(0)一次，將它保存到一個變量，該變量傳遞給ReleaseDC：

Dim hDC As IntPtr = GetDC(0) 
Try 
    Dim queue1 As Integer = GetPixel(hDC, 40, 573) 
    Dim queue2 As Integer = GetPixel(hDC, 140, 573) 
    Dim queue3 As Integer = GetPixel(hDC, 240, 573) 
    Dim queue4 As Integer = GetPixel(hDC, 340, 573) 
    Dim queue5 As Integer = GetPixel(hDC, 440, 573) 
    ... 
Catch ex As Exception 
    Return False 
Finally 
    ReleaseDC(0, hDC) 
End Try 

注意ReleaseDC需要兩個IntPtr參數，hWnd和hDC。