Λίστα εφαρμογών-παραθύρων στην VB 2005

[lefi]

Είναι λίγο δύσκολο να το βρω στην βοήθεια της VB οπότε ποστάρω εδώ. Θέλω στην VB 2005 να βρίσκω τους τίτλους των παραθύρων που εκτελούνται εκείνη την στιγμή ή εναλλακτικά την λίστα που εμφανίζεται στην Διαχείριση εργασιών > εφαρμογές. Ευχαριστώ όποιον ασχοληθεί.

[Επισκέπτης]

κάτι τέτοιο;

και να κάνεις κάνα sorting/filtering με τον τύπο (GetType() )...υποθέτω...δεν έχω ασχοληθεί...

[_tasos]

Για δες λίγο αυτό. Βρήκα αυτό το link http://bytes.com/topic/net/answers/165226-getting-titles-all-openning-windows-process και από εκεί πήρα τον κώδικα κ το έφτιαξα σε console application.

 

>Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Linq
Imports System.Text
Imports System.Runtime.InteropServices


Namespace ConsoleApplication1

Class Program

	Private Delegate Function EnumWindowsProc(hWnd As IntPtr, lParam As IntPtr) As Integer

	<DllImport("user32.dll")> _
	Private Shared Function EnumWindows(lpEnumFunc As EnumWindowsProc, lParam As IntPtr) As Boolean
	End Function
	<DllImport("user32.dll")> _
	Private Shared Function GetWindowText(hWnd As IntPtr, <Out> lpString As StringBuilder, nMaxCount As Integer) As Integer
	End Function
	<DllImport("user32.dll")> _
	Private Shared Function GetWindowTextLength(hWnd As IntPtr) As Integer
	End Function
	<DllImport("user32.dll")> _
	Private Shared Function IsWindowVisible(hWnd As IntPtr) As Boolean
	End Function

	Private Shared Function PrintText(hWnd As IntPtr, lParam As IntPtr) As Integer
		If IsWindowVisible(hWnd) Then
			Dim length As Integer = GetWindowTextLength(hWnd)
			Dim sb As New StringBuilder(length + 1)
			Dim res As Integer = GetWindowText(hWnd, sb, sb.Capacity)
			If res > 0 Then
				Console.WriteLine(sb.ToString())
			End If
		End If
		Return 1
	End Function

	Private Shared Sub Main(args As String())
		Dim cb As New EnumWindowsProc(AddressOf PrintText)
		EnumWindows(cb, IntPtr.Zero)
		Console.ReadLine()
	End Sub
End Class
End Namespace

[lefi]

Ευχαριστώ, θα τα κοιτάξω και θα ενημερώσω αύριο-μεθαύριο.

[lefi]

_tasos, ο κώδικάς σου είναι ότι ήθελα με βόλεψε. Βασικά τον τροποποίησα για windows application, σε αυτή την περίπτωση θέλει module αρχείο και να βάλεις στην κατάλληλη θέση την κάθε ομάδα εντολών.