Resolution, Position und Frequenz aus Fenster und Vollbild Modus aus Prozesse lesen.

  • VB.NET

Es gibt 66 Antworten in diesem Thema. Der letzte Beitrag () ist von Xiantrius.

    Xiantrius schrieb:

    Das heist es gibt Spiele wie @Takafusa schon sagte probleme mit Spielen die ein 2 Fenster nutzen


    Nicht ganz korrekt, so hab ich das nicht gesagt(schau noch mal nach), nicht immer ist das Process.MainWindow.Handle, das Handle vom Fenster das man sieht. Bei spielen halte ich es für sehr wahrscheinlich das es nur 1 Fenster gibt, ich habe einige DirectXCodes gesehen, gab nur 1 Fenster, wird auch ausnahmen geben. Bei Programen allerdings sieht das anders aus, da ist es wahrscheinlicher. EIn theoretisches Beispiel, wenn man VS startet, sieht man zuerst ein Fenster mit den zuletzt geöffneten Projekten, man wählt eins aus oder erstellt ein neues, ein weiteres fenster wird geöffnet. Ohne es untersucht zu haben, ist also nur spekulation, könnte das fenster mit dem Projekten das als erstes kommt das "MainWindow" sein. Wenn dem so wäre müsstest du alle Fenster mit EnumThreadWindows durchlaufen um an die anderen zu kommen. Wenn nun der Designer z.B. ein MDI Child ist, würdest du nur mit EnumChildWindows dran kommen, wobei du dann das Handle des ParentFensters in die Funktion geben musst, durchiterieren usw.

    Gehen wir nun ein wenig strukturierter vor!
    Ich denke du solltest nicht gleich voll durchstarten, ich habe die Vermutung, zu viel Code in einer Datei, zu unübersichtlich, weil du das nicht richtig strukturierst(nicht bös gemeint), sieht man daran das du die WinAPI funktionen in der Form klasse hasst, in einem meiner Beispielprojekte solltest du gesehen haben, das man sowas schön auf weitere Klassen verteilen kann, das macht das arbeiten viel einfacher, zudem ist das auch sauberer, manchmal braucht man diese Fuktionen in mehreren Klassen, da macht es Sinn sowas nicht in Form-klassen zu packen, zudem brauchste falls du diese Funktionen noch mal brauchst nur die Datei einem Projekt hinzufügen. Also leg das bestehende Projekt erstmal an die Seite, neues Projekt die API Funktionen in eine extra Klasse, dann kannste die später einfach in andere Projekt kopieren und als i-Tüpfelchen hast du viel weniger Code in der Form klasse, alles wird übersichtlicher sein.

    Also lesen wir nun die Fenstertexte aus in einem neuen leeren Projekt, denke dabei nicht an das bereits bestehende Projekt oder was noch kommen wird, ist dann einfacher, werf quick&dirty einen Timer aufs Form interval 1000 reicht, enabled auf True stellen, im Tick event des Timers hohlste dir mit GetForeGroundWindow das Handle vom vordersten Fensterdamit wir erstmal auf einfachen Weg irgendwelche Handles haben, mit Debug.WriteLine die Handles mal ausgeben(Ausgabefenster aber öffnen, wenn du das geschlossen hast, siehste nix), dabei auch mal andere Fenster selektieren und die DebugAusgabe anschauen, wenn das klappt nächster Schritt, nutze das ausgelesene Handle und hohle die länge des textes und lasse das wieder mit Debug.WriteLine ausgeben, und wieder erst wenn die länge stimmt zum nächsten Schritt, das auslesen des textes. Wenn du das richtig gemacht hast, Congrats, du kannst Fenstertitel von anderen Prozessen auslesen. Projekt bereinigen, zippen, ab in ein Archiv, dann kannste jederzeit gucken wie du das gemacht hast.

    Mach das mal, berichte und zeig uns den Code, dann machen wir den nächsten Schritt, auch wieder in einem leeren Projekt. Das wäre dann das Auflisten aller Fenster eines Prozesses.

    Anders sehe ich keine Sinn, gibt nur verwirrung und alles zieht sich in die Länge. Am Ende wirst du dann mehrere kleine Projekte haben und kannst dann alles in ein Projekt zusammenfügen, ist leichter für uns alle.

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Takafusa“ ()

    Ok Schritt für Schritt
    1. Ich erstelle die Listview1, dann 4 Labels, 3 TextBoxen, 1 Multiline TextBox und ein button zum aktualisieren der Prozesse.

    2. Der Code erstellt und fügt per code die Spalten ein und frage alle Prozesse ab, dabei filtere ich alle Prozesse aus wo kein MainWindowhandle existiert der rest sollte selbsterklärend sein.

    VB.NET-Quellcode

    1. Private Sub Prozessliste()
    2. If CheckColumn = False Then
    3. CheckColumn = True
    4. ListView1.FullRowSelect = True
    5. ListView1.Columns.Add("FensterHandle")
    6. ListView1.Columns.Add("Fensternamen")
    7. ListView1.Columns.Add("Prozesse")
    8. ListView1.Columns.Add("Prozess-ID")
    9. ListView1.Columns.Add("RAM")
    10. ElseIf CheckColumn = True Then
    11. End If
    13. If CheckList = False Then
    14. 'CheckList = True
    15. ListView1.Items.Clear()
    16. For Each Alle_Prozesse In Process.GetProcesses()
    17. If Alle_Prozesse.MainWindowHandle.ToInt32 > 0 Then
    18. With ListView1.Items.Add(Hex(Alle_Prozesse.MainWindowHandle.ToString))
    19. .SubItems.Add(Alle_Prozesse.MainWindowTitle)
    20. .SubItems.Add(Alle_Prozesse.ProcessName)
    21. .SubItems.Add(Hex(Alle_Prozesse.Id.ToString))
    22. End With
    23. End If
    24. Next
    26. If ListView1.Items.Count > 0 Then
    27. AutoSizeListViewColumns(ListView1)
    28. End If
    29. End If
    30. End Sub
    32. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    33. Prozessliste()
    34. End Sub


    3. Auslesen was aber leider nicht überall funktioniert, wegen VollbildModus auch bei deine funktion mag das nicht so und da ich bei meiner das ganz leicht in der TextBox übergeben kann ist nicht böse gemeint nehme ich lieber diese Funktion.
    Das soll mir als Protokoll auswertung dienen. Wenn du willst kann ich den Logeintrag auch speichern lassen in ein Dokument.

    VB.NET-Quellcode

    1. <Runtime.InteropServices.DllImport("user32.dll")>
    2. Private Shared Function GetWindowPlacement(ByVal hWnd As IntPtr, ByRef lpwndpl As WINDOWPLACEMENT) As Int32
    3. End Function
    5. <Runtime.InteropServices.DllImport("user32.dll")>
    6. Private Shared Function GetWindowRect(ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Boolean
    7. End Function
    9. <Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)>
    10. Public Structure RECT
    11. Public Left As Integer
    12. Public Top As Integer
    13. Public Right As Integer
    14. Public Bottom As Integer
    15. Public Overrides Function ToString() As String
    16. Return String.Format("Left: {0}, Top: {1}, Right: {2}, Bottom: {3}", Left, Top, Right, Bottom)
    17. End Function
    18. End Structure
    20. Dim intRet As Integer
    21. Dim wpTemp As WINDOWPLACEMENT
    22. Dim HWND As IntPtr
    24. Dim WindowMode_Information(1) As String
    26. Dim XYCheck As RECT
    28. Public Function GetWindowRectangle(ByVal hwnd As IntPtr) As Rectangle
    29. Dim XYRect As RECT
    30. GetWindowRect(hwnd, XYRect)
    31. Dim rr As New Rectangle(XYRect.Left, XYRect.Top, XYRect.Right - XYRect.Left, XYRect.Bottom - XYRect.Top)
    32. WindowMode_Information(0) = GetWindowRect(hwnd, XYRect) & vbNewLine & rr.ToString
    33. Return rr
    34. End Function
    36. Dim ShowWindowedMode As String
    38. Private Sub PrüfeWindowedModus()
    39. If ListView1.SelectedItems.Count > 0 Then
    40. For Each Prozess As Process In Process.GetProcessesByName(ListView1.SelectedItems.Item(0).SubItems(2).Text)
    41. TextBox1.Text = Prozess.ProcessName
    42. wpTemp.Length = System.Runtime.InteropServices.Marshal.SizeOf(wpTemp)
    43. intRet = GetWindowPlacement(Prozess.MainWindowHandle, wpTemp)
    44. HWND = Prozess.MainWindowHandle
    45. If Not Prozess.MainWindowHandle = IntPtr.Zero Then
    46. TextBox2.Text = Hex(Prozess.MainWindowHandle.ToString)
    47. End If
    48. CheckWindowMode()
    49. Next
    50. End If
    51. End Sub
    53. Public Function IsFullscreen(ByVal hwnd As IntPtr) As String
    54. Dim R As Rectangle = GetWindowRectangle(hwnd)
    55. Dim screens() As Screen = Screen.AllScreens
    57. 'Verbesserter Code ohne My.Conputer
    58. For i As Integer = 0 To screens.Length - 1
    59. 'If screens(i).Bounds.Contains(Cursor.Position) AndAlso screens(i).Bounds.Contains(Cursor.Position) Then
    60. If R.Width >= screens(i).Bounds.Width AndAlso R.Height >= screens(i).Bounds.Height Then
    61. 'If screens(i).WorkingArea.Contains(New Point(XYCheck.Left, XYCheck.Top)) Then
    62. Return "Monitor=" & i & ", FensterMode=Fullscreen"
    63. End If
    64. 'End If
    66. WindowMode_Information(1) = "Von Prozess Breite: " & R.Width & vbNewLine &
    67. "Von Prozess Höhe: " & R.Height & vbNewLine & vbNewLine &
    68. "Von Bildschirm Breite: " & screens(i).Bounds.Width & vbNewLine & 'My.Computer.Screen.Bounds.Width & vbNewLine &
    69. "Von Bildschirm Höhe: " & screens(i).Bounds.Height 'My.Computer.Screen.Bounds.Height
    71. 'End If
    73. 'Ursprünglicher Code mit My.Computer
    74. 'If R.Width >= My.Computer.Screen.Bounds.Width AndAlso R.Height >= My.Computer.Screen.Bounds.Height Then
    75. ' Return "Fullscreen"
    76. 'End If
    78. Dim intRet As Integer
    79. Dim wpTemp As WINDOWPLACEMENT
    81. wpTemp.Length = System.Runtime.InteropServices.Marshal.SizeOf(wpTemp)
    82. intRet = GetWindowPlacement(hwnd, wpTemp)
    84. If wpTemp.showCmd = 1 Then
    85. Return "Monitor:=" & i & ", FensterMode=Normal"
    86. ElseIf wpTemp.showCmd = 2 Then
    87. Return "Monitor=" & i & ", FensterMode=Minimized"
    88. ElseIf wpTemp.showCmd = 3 Then
    89. Return "Monitor=" & i & ", FensterMode=Maximized"
    90. End If
    91. Next
    93. Return "Error"
    94. End Function
    96. 'Bei der Auswertung ist bei TextBox3 kleiner bug wenn man mit den Cursor drüber geht wird es wie bei TextBox4 in der 1 Zeile richtig angezeigt. Weis nicht wie man das behebt, aber nicht schlimm.
    97. Private Sub CheckWindowMode()
    98. TextBox3.Text = IsFullscreen(HWND)
    99. TextBox4.Text = IsFullscreen(HWND) & vbNewLine & WindowMode_Information(0) & vbNewLine & vbNewLine & WindowMode_Information(1)
    100. End Sub
    102. Private Sub ListView1_Click(sender As Object, e As EventArgs) Handles ListView1.Click
    103. If ListView1.Items.Count > 0 Then
    104. PrüfeWindowedModus()
    105. End If
    106. End Sub
    108. Private Sub ListView1_KeyUp(sender As Object, e As KeyEventArgs) Handles ListView1.KeyUp
    109. If e.KeyCode = Keys.Down Or e.KeyCode = Keys.Up Then
    110. If ListView1.Items.Count > 0 Then
    111. If ListView1.SelectedIndices.Count > 0 Then
    112. PrüfeWindowedModus()
    113. End If
    114. End If
    115. End If
    116. End Sub


    4 Für Leute die nur 1 Monitor haben. Erstelle 1 Timer und die API GetAsyncKeyState einfügen

    VB.NET-Quellcode

    1. <Runtime.InteropServices.DllImport("user32.dll")>
    2. Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
    3. End Function
    5. 'Ist nur ein Beispiel wie ich sie ausführe kann jeder machen wie er will.
    6. If GetAsyncKeyState(Keys.LControlKey) <> 0 Or GetAsyncKeyState(Keys.RControlKey) <> 0 Then
    8. End If
    10. Select Case True
    11. Case GetAsyncKeyState(Keys.LShiftKey) <> 0
    12. 'Linke Shift Taste
    13. Case GetAsyncKeyState(Keys.RShiftKey) <> 0
    14. 'Rechte Shift Taste
    15. Case GetAsyncKeyState(Keys.LMenu) <> 0
    16. 'Linke Alt Taste
    17. Case GetAsyncKeyState(Keys.ControlKey) <> 0 AndAlso
    18. GetAsyncKeyState(Keys.RMenu) <> 0
    19. 'Rechte AltGr Taste ( Muss immer als erster stelle stehen!!! )
    20. Case GetAsyncKeyState(Keys.LControlKey) <> 0 AndAlso GetAsyncKeyState(Keys.Right) <> 0
    21. 'Linke STRG Taste und Rechte Pfeil Taste
    22. Case GetAsyncKeyState(Keys.LControlKey) <> 0 AndAlso GetAsyncKeyState(Keys.Left) <> 0
    23. 'Linke STRG Taste und Linke Pfeil Taste
    24. Case GetAsyncKeyState(Keys.RControlKey) <> 0 AndAlso GetAsyncKeyState(Keys.Right) <> 0
    25. 'TextBox3.Text = FullscreenCheck(ListView1.SelectedItems(0).SubItems(2).Text)
    26. 'Rechte STRG Taste und Rechte Pfeil Taste
    27. Case GetAsyncKeyState(Keys.RControlKey) <> 0 AndAlso GetAsyncKeyState(Keys.Left) <> 0
    28. 'Hier wird ausgelesen zb. mit der Tastenkombi
    29. CheckWindowMode()
    30. 'Rechte STRG Taste und Linke Pfeil Taste
    31. Case GetAsyncKeyState(Keys.RControlKey) <> 0 AndAlso GetAsyncKeyState(Keys.Down) <> 0 Or GetAsyncKeyState(Keys.LControlKey) <> 0 AndAlso GetAsyncKeyState(Keys.Down) <> 0
    32. 'Rechte STRG, oder Linke STRG Taste und Untere Pfeil Taste
    33. Case GetAsyncKeyState(Keys.RControlKey) <> 0 AndAlso GetAsyncKeyState(Keys.Up) <> 0 Or GetAsyncKeyState(Keys.LControlKey) <> 0 AndAlso GetAsyncKeyState(Keys.Up) <> 0
    34. 'Rechte STRG, oder Linke STRG Taste und Oberer Pfeil Taste
    35. Case GetAsyncKeyState(Keys.RControlKey) <> 0 AndAlso GetAsyncKeyState(Keys.Right) <> 0 OrElse GetAsyncKeyState(Keys.LControlKey) <> 0 AndAlso GetAsyncKeyState(Keys.Right) <> 0
    36. 'Rechte STRG, oder Linke STRG Taste und Rechter Pfeil Taste
    37. Case GetAsyncKeyState(Keys.RControlKey) <> 0 AndAlso GetAsyncKeyState(Keys.Left) <> 0 OrElse GetAsyncKeyState(Keys.LControlKey) <> 0 AndAlso GetAsyncKeyState(Keys.Left) <> 0
    38. 'Rechte STRG, oder Linke STRG Taste und Linker Pfeil Taste
    39. End Select
    40. End Sub


    Kann dir paar Spiele nennen welche nicht funktionieren. Auch leider bei deiner vorgeschlagenen Funktion mit deiner GetWindowState funktion.
    Folgende Spiele werden zb.: nicht als Vollbildmodus von mein Tool bestätigt:
    Muss hier also noch tests machen.
    Warlords 3 Darklords Risings:
    Monitor=0, FensterMode=Minimized
    True
    {X=-32000,Y=-32000,Width=160,Height=28}

    Breite wenn minimiert 160
    Höhe wenn minimiert 28

    Von Bildschirm Breite: 1920
    Von Bildschirm Höhe: 1080

    Folgende Spiele die zb.: als Vollbildmodus von mein Tool bestätigt werden:
    Pax Imperia
    Auswertung dazu:
    Monitor=0, FensterMode=Fullscreen
    True
    {X=0,Y=0,Width=640,Height=480}

    Breite wenn minimiert: 160
    Höhe wenn minimiert: 28

    Von Bildschirm Breite: 1920
    Von Bildschirm Höhe: 1080

    Ultima IX:
    Monitor=0, FensterMode=Fullscreen
    True
    {X=0,Y=0,Width=1280,Height=1024}

    Breite wenn minimiert: 160
    Höhe wenn minimiert: 28

    Von Bildschirm Breite: 1920
    Von Bildschirm Höhe: 1080

    Lands Of Lore 3:
    Monitor=0, FensterMode=Fullscreen
    True
    {X=0,Y=0,Width=800,Height=600}

    Breite wenn minimiert: 160
    Höhe wenn minimiert: 28

    Von Bildschirm Breite: 1920
    Von Bildschirm Höhe: 1080

    mfg.
    Xiantrius

    Erst ging das lesen des fenstertextes nicht nun doch? Also was denn nun??????

    Ich verstehe dich nicht, warum so blöd über Strings?

    Auch mit meiner Funktion kannste mit leichtigkeit Werte in eine TextBox bekommen, anstatt zu fragen "wie könnte ich die Werte gescheit in die TextBox bekommen", nimmste wieder den alten Mist, auch iweder mit >= warum hab ich mir die Mühe gemacht?
    Ich komm mir grad verarscht vor, ich korrigierem verbessere, zeige wie man das vernünftig macht, du nimmstweiter den alten MIst, klar ist das deine Sache, aber so mach ich nicht mehr weiter. Ich bin denn jetzt erstmal raus hier, du willst nicht lernen und deinen Code verbessern, deine es geht halbwegs ich änder das nicht Einstellung kann ich nicht ab, sry. Dann arbeite weiter auf schlechte art, wenn du dir selbst so das leben schwer machen willst bitte. So hättest du das mit dem Enum und die Funktion welche ich bearbeitet hab in die boxen bekommen. Zudem kannste EnumWerte besser für Bedingungen nutzen, anstatt Strings zu vergleichen,ist auch sicherer weil in einem String meldet die IDE keine Schreibfehler, geht dan in die Hose, bei nem enum, meckert die IDE wenn du da den namen falsch schreibst. Viel erfolg noch, ich nehm jetzt lieber irgendeinen freelancer auftrag an und verdiene Geld beim tippen, ich helfe zwar wirklich gern, solange der Hilfesuchende wirklich zu lernen bereit ist, aber das sehe ich bei dir nicht. Sonst hättest du gezielt wegen des Enum gefragt, was das ist, wie man das anwended oder warum ich das gemacht hab, nichts, stattdessen, "hauste mir in die Fresse"(nicht wirklich, aber es traf mich wie ein Schlag) indem du weiter den vorherigen mist nimmst, welcher Querschläger ermöglicht, also ab und zu was total falsches zeigen kann.

    Nach einem Vorfall gestern, wo ich schon weniger Lust hatte hier im Forum zu schreiben, hast du mir nun den rest gegeben,ich verlasse das Forum, macht keinen Sinn, hab den Admin schon um die Löschung meines accounts gebeten.

    VB.NET-Quellcode

    1. Dim state As MyWindowState = GetWindowState(das Handle)
    2. Select Case state
    3. Case Minimized
    4. 'textbox text setzen
    5. Case Normal
    6. 'textbox text setzen
    8. .......
    9. End Select

    Dieser Beitrag wurde bereits 10 mal editiert, zuletzt von „Takafusa“ ()

    Ich verarsche dich nicht.
    Ich danke trotzdem für deine Unterstützung und deine Zeit.
    Dummerweise verstehe ich das programmieren nur bis zur einer bestimmten grenze. Was weiter hinaus geht bin ich solange auf Hilfe angewiesen, bis ich das endlich verstehe.
    Darum fühlst du dich verarscht.

    Ich werde deine funktion nochmal probieren.
    Sobald ich das so gut auswerten kann wie bei meiner gebe hier bescheid.

    Mfg.
    Xiantrius

    Takafusa schrieb:

    Nach einem Vorfall gestern, wo ich schon weniger Lust hatte hier im Forum zu schreiben, hast du mir nun den rest gegeben,ich verlasse das Forum, macht keinen Sinn, hab den Admin schon um die Löschung meines accounts gebeten.


    Xiantrius schrieb:

    Dummerweise verstehe ich das programmieren nur bis zur einer bestimmten grenze. Was weiter hinaus geht bin ich solange auf Hilfe angewiesen, bis ich das endlich verstehe.


    Dazu fällt mir nur das Sesamstraßen lied ein, "wer nicht fragt bleibt dumm", ich hätte dir Antworten gegeben, hättest du gefragt, und beschrieben was du an meinem Code nicht verstehst.

    Ich weis noch nicht wie man bei deiner funktion die auswertung ausgibt.
    Wie geht das über die TextBox?
    Ausserdem bin ich gerade auf der Arbeit.

    Ich finde du überreagierst ein wenig...

    Nochmalige Überprüfung:
    Deiner GetWindowState funktion.
    So bin zuhause und kann mein Projekt fortsetzen.
    Haben Freitag Mittag schon Feierabend.

    VB.NET-Quellcode

    1. Public Enum MyWindowStates
    2. Minimized
    3. Normal
    4. Maximized
    5. FullScreen
    6. UNKNOWN
    7. End Enum
    9. Public Function GetWindowState(ByVal hwnd As IntPtr) As MyWindowStates
    10. Dim R As Rectangle = GetWindowRectangle(hwnd)
    11. Dim screens() As Screen = Screen.AllScreens
    12. Dim result As MyWindowStates = MyWindowStates.UNKNOWN
    13. Dim intRet As Integer
    14. Dim wpTemp As WINDOWPLACEMENT
    15. wpTemp.Length = System.Runtime.InteropServices.Marshal.SizeOf(wpTemp)
    16. intRet = GetWindowPlacement(hwnd, wpTemp)
    17. If wpTemp.showCmd = 1 Then
    18. result = MyWindowStates.Normal
    19. ElseIf wpTemp.showCmd = 2 Then
    20. result = MyWindowStates.Minimized
    21. ElseIf wpTemp.showCmd = 3 Then
    22. result = MyWindowStates.Maximized
    23. End If
    24. For i As Integer = 0 To screens.Length - 1
    25. If R.X < 0 Then
    26. R.Width += R.X
    27. R.Y += R.Y
    28. End If
    29. If R.Y < 0 Then
    30. R.Height += R.Y
    31. R.Y += R.Y
    32. End If
    34. If R.X = screens(i).Bounds.X AndAlso R.Y =
    35. screens(i).Bounds.Y AndAlso R.Width = screens(i).Bounds.Width AndAlso
    36. R.Height = screens(i).Bounds.Height Then
    37. result = MyWindowStates.FullScreen
    38. End If
    39. Next
    40. Return result
    41. End Function


    Ergebnis:
    Fullscreen erfolgreich 3 Testergebnisse:
    Konnte er mit der Funktion GetWindowState von Takafusa als Fullscreen identifizieren, eben so meine Funktion IsFullscreen erkennt das.
    Ultima IX
    Lands Of Lore 3
    Pax Imperia

    Fullscreen fehlgeschlagen 1 Testergebnis:
    konnte er als mit der Funktion GetWindowState von Takafusa als Fullscreen NICHT identifizieren, eben so meine Funktion IsFullscreen erkennt das NICHT.
    Warlords 3 Darklords Rising

    Fazit:
    ich sagte ja bereits jeder hat sein Style deine funktion arbeitet eben mit kein String, meine mit String.
    Dennoch haben beide das gleiche Ergebnis.
    Wo soll deine Funktion bitte besser sein?
    Sicher sie sieht besser aus. Das Ergebnis ist aber gleich.
    Man kann Codes immer noch verbessern, mir geht es erst mal da rum das es funktioniert wie es soll.

    Das hatten wir ja bereits.
    Mit der EnumWindows und
    EnumChildWindows API hab ich noch nie gearbeitet. Wie ruft man dort die
    MainWindowHandle und die Fenstertitel ab und trägt sie ein?
    Hab das auch schon erwähnt, dass ich damit noch nie gearbeitet habe.

    VB.NET-Quellcode

    1. <Runtime.InteropServices.DllImport("user32.dll", SetLastError:=True, CharSet:=Runtime.InteropServices.CharSet.Auto)>
    2. Public Shared Function EnumWindows(ByVal lpEnumFunc As EnumWindowsProc, ByVal lParam As IntPtr) As Boolean
    3. End Function
    5. Public Delegate Function EnumWindowsProc(ByVal hwnd As IntPtr, ByVal lParam As IntPtr) As Boolean
    7. <Runtime.InteropServices.DllImport("user32")>
    9. Public Shared Function EnumChildWindows(ByVal hWndParent As IntPtr,
    10. ByVal lpEnumProc As EnumChildProc, ByVal lParam As Integer) As Boolean
    11. End Function
    13. Public Delegate Function EnumChildProc(ByVal hwnd As IntPtr, ByVal lParam As IntPtr) As Boolean

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „Xiantrius“ ()

    Werde das Thema als Erledigt markieren.
    Die Vorrausetzung wurde erfüllt. Auch wenn es am ende nicht so gut ausgegangen ist.
    Musste arbeiten hatte weniger Zeit unter die Woche.
    Danke an @Takafusa , @-Franky- und @VaporiZed das ihr euer Beitrag geleistet habt.
    An Takafusa besonders.
    Hoffe er lässt sein Account nicht löschen und beruhigt sich wieder, würde mich freuen.
    Hab selbst auch Fehler gemacht sehe ich auch ein und muss mich entschuldigen.

    mfg.
    Xiantrius

Facebook
Telefonspende