29-07-14, 03:01 AM
PHP كود :
Private Function Enumerator(ByVal hwnd As IntPtr, ByVal lParam As Integer) As Boolean
Dim text As String = Space(Int16.MaxValue)
If IsWindowVisible(hwnd) Then
GetWindowText(hwnd, text, Int16.MaxValue)
ListView1.Items.Add(text)
End If
Return True
End Function