Fenstertitel ist String.Empty - Was jetzt?

  • VB.NET
  • .NET 3.5

Es gibt 33 Antworten in diesem Thema. Der letzte Beitrag () ist von Cheffboss.

    Ich habe mal meine Version von TheBat hochgeladen und ein Projekt, dieser alles ausliest.
    Außerdem habe ich, den Code als txt Datei gespeichert.
    Wenn jemand keine lust hat, meine EXE zu starten.
    Ich hoffe es findet jemand eine Lösung! :thumbup:

    gelöscht



    THX
    Visual Basic.NET 8o
    MS-SQL     8o

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Cheffboss“ ()

    Probier das mal, damit sehe ich auf jeden Fall das Einrichtungsfenster in der Listbox, will thebat aber nun nicht einrichten

    VB.NET-Quellcode

    1. ​Dim running() As Process = Process.GetProcesses()
    2. If running.Length > 0 Then
    3. Dim Cnt As Integer
    4. For Cnt = 0 To running.Length - 1
    5. ListBox1.Items.Add(running(Cnt).MainWindowTitle)
    6. Next Cnt
    7. End If

    Ich habe nun zwei Interessante sachen gefunden.
    Ein VBA Code, diesen ich in Excel getestet habe.
    Er zeigt mir thebat.exe an, aber ich suche noch die Eigenschaft um den Fenstername auszulesen.
    Da dies kein .NET Code ist, hoffe ich, dass dieser nun so ist wie ich es haben möchte.
    Kennt jemand die Eigenschaft um das MainWindowTitle auszulesen?
    ' Debug.Print process.Titel

    Visual Basic-Quellcode

    1. Function getProcessInfo()
    2. On Error Resume Next
    3. Dim objProcess, process, strNameOfUser
    4. ComputerName = "."
    5. Set objProcess = GetObject("winmgmts:{impersonationLevel=impersonate}\\" _
    6. & ComputerName & "\root\cimv2").ExecQuery("Select * From Win32_Process")
    7. For Each process In objProcess
    8. If process.Name <> "System Idle Process" And process.Name <> "System" Then
    9. 'Debug.Print process.Name
    10. Debug.Print process.Name & "," & process.executablepath _
    11. & "," & process.Priority & "," & process.sessionid _
    12. & "," & strNameOfUser & "," & process.handlecount _
    13. & "," & process.ThreadCount
    14. End If
    16. Next
    17. Set objProcess = Nothing
    18. End Function



    Außerdem habe ich noch ein VB6 Code gefunden, dort benötige ich das gleiche.
    Es findet thebat aber leider zeigt dieser Code noch kein Fenstertitel an.
    Da ich kein VB6 installiert habe, kann ich dies nicht testen.
    Gibt es hier jemand der noch die Entwicklungsumgebung von Visual Basic 6 hat?

    Visual Basic-Quellcode

    1. Attribute VB_Name = "Module1"
    2. Private Declare Function EnumWindows& Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long)
    3. Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
    4. Private Declare Function IsWindowVisible& Lib "user32" (ByVal hWnd As Long)
    5. Private Declare Function GetParent& Lib "user32" (ByVal hWnd As Long)
    7. ' This function is called for each window handle present
    8. Function EnumWinProc(ByVal hWnd As Long, ByVal lParam As Long) As Long
    9. Dim k As Long, sName As String
    10. If IsWindowVisible(hWnd) And GetParent(hWnd) = 0 Then
    11. sName = Space$(128)
    12. k = GetWindowText(hWnd, sName, 128)
    13. If k > 0 Then
    14. sName = Left$(sName, k)
    15. Form1.List1.AddItem Hex$(hWnd) + vbTab + sName + vbTab
    16. End If
    17. End If
    18. EnumWinProc = 1 ' So long as EnumWinProc returns 1, the enumeration continues.
    19. End Function
    21. Public Sub StartEnumeration()
    22. EnumWindows AddressOf EnumWinProc, vbNull
    23. End Sub





    edit2:
    Ich habe nun einen VB.NET Code gefunden, dieser TheBat auflistet, aber leider noch nicht den Pfad.
    Ich hoffe ich komme bald ans Ziel. ^^

    VB.NET-Quellcode

    1. Module modGetAllOpenWindows
    3. ' Unmanaged API calls
    4. Public Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As EnumWindowsProc, ByVal lParam As Int32) As Int32
    5. Public Declare Function IsWindowVisible Lib "user32.dll" (ByVal hwnd As IntPtr) As Boolean
    6. Public Delegate Function EnumWindowsProc(ByVal hwnd As IntPtr, ByVal lParam As Int32) As Boolean
    7. Public Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As IntPtr, ByVal lpString As String, ByVal cch As Int32) As Int32
    8. Public Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As IntPtr) As Int32
    9. Public Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As IntPtr, ByVal nIndex As Int32) As Int32
    10. Public Declare Function GetParent Lib "user32.dll" (ByVal intptr As IntPtr) As IntPtr
    11. Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Boolean
    13. ' Public constants
    14. Public Const GWL_HWNDPARENT As Int32 = -8
    16. ' Public function
    17. Public newWindowList As List(Of String)
    19. ' Private function
    20. Private newHandleList As List(Of IntPtr)
    22. ' Structure - checks for a GUI
    23. Private Structure RECT
    24. Public left As Integer
    25. Public top As Integer
    26. Public right As Integer
    27. Public bottom As Integer
    29. Public Sub New(ByVal _left As Integer, ByVal _top As Integer, ByVal _right As Integer, ByVal _bottom As Integer)
    30. left = _left
    31. top = _top
    32. right = _right
    33. bottom = _bottom
    34. End Sub
    35. End Structure
    37. ' -----------------------------------------------------------
    38. ' Enumerate the running processes - discard any that does not have a GUI
    39. ' -----------------------------------------------------------
    40. Private Function EnumWinProc(ByVal hwnd As IntPtr, ByVal lParam As Int32) As Boolean
    42. Dim sWindow As String = Nothing
    44. If IsWindowVisible(hwnd) Then
    45. If GetParent(hwnd) = IntPtr.Zero Then
    46. If GetWindowLong(hwnd, GWL_HWNDPARENT) = 0 Then
    47. sWindow = String.Empty.PadLeft(GetWindowTextLength(hwnd) + 1)
    48. GetWindowText(hwnd, sWindow, sWindow.Length)
    49. If Not String.IsNullOrEmpty(sWindow.Substring(0, sWindow.Length - 1)) Then
    50. newWindowList.Add(sWindow.Substring(0, sWindow.Length - 1))
    51. End If
    52. End If
    53. End If
    54. End If
    55. EnumWinProc = True
    56. End Function
    58. ' -----------------------------------------------------------
    59. ' Start the enumeration process
    60. ' -----------------------------------------------------------
    61. Public Sub RefreshWindowList()
    63. newWindowList = New List(Of String)
    64. EnumWindows(AddressOf EnumWinProc, CInt(True))
    66. End Sub
    68. End Module
    69. Public Class Form1
    70. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    71. RefreshWindowList()
    72. For Each item As String In newWindowList
    73. Me.ListBox1.Items.Add(item)
    74. Next
    75. End Sub
    77. End Class


    edit3:
    Ich habe ein VB6 Code gefunden.
    Den werde ich morgen testen, falls man das VB6 noch als Testversion,
    im Internet findet.

    Link:
    vbarchiv.net/tipps/tipp_1147-f…leiste-zu-sehen-sind.html
    Visual Basic.NET 8o
    MS-SQL     8o

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Cheffboss“ ()

    Ich habe jetzt folgenden VB6/VBA Code gefunden.
    Dieser listet alle aktiven Fenster auf.
    Aber leider komme ich noch nicht ans Ziel.
    Ich brauche drei Werte:
    Titel des Fensters
    Processname
    Pfad
    Ram-Verbauch.
    Freue mich sehr falls jemand mir dabei helfen kann.

    Visual Basic-Quellcode

    1. #If VBA7 Then
    2. Private Declare PtrSafe Function GetDesktopWindow Lib "user32" () As LongPtr
    3. Private Declare PtrSafe Function GetWindow Lib "user32" _
    4. (ByVal hwnd As LongPtr, ByVal uCmd As Long) As LongPtr
    5. Private Declare PtrSafe Function GetWindowTextA Lib "user32" _
    6. (ByVal hwnd As LongPtr, ByVal lpString As String, ByVal nMaxCount As Long) As Long
    7. Private Declare PtrSafe Function GetWindowInfo Lib "user32" _
    8. (ByVal hwnd As LongPtr, ByRef pwi As PWINDOWINFO) As Boolean
    9. #Else
    10. Private Declare Function GetDesktopWindow Lib "user32" () As Long
    11. Private Declare Function GetWindow Lib "user32" _
    12. (ByVal hwnd As Long, ByVal uCmd As Long) As Long
    13. Private Declare Function GetWindowTextA Lib "user32" _
    14. (ByVal hwnd As Long, ByVal lpString As String, ByVal nMaxCount As Long) As Long
    15. Private Declare Function GetWindowInfo Lib "user32" _
    16. (ByVal hwnd As Long, ByRef pwi As PWINDOWINFO) As Boolean
    17. #End If
    19. 'Typen für GetWindowInfo
    20. Private Type RECT
    21. Left As Long
    22. Top As Long
    23. Right As Long
    24. Bottom As Long
    25. End Type
    26. Private Type PWINDOWINFO
    27. cbSize As Long 'Strukturgröße
    28. rcWindow As RECT 'Fensterkoordinaten
    29. rcClient As RECT 'Clientkoordinaten
    30. dwStyle As Long 'Gibt WINDOWS_STYLES zurück
    31. dwExStyle As Long 'Gibt EXTENDED_WINDOWS_STYLES zurück
    32. dwWindowStatus As Long '1=Fenster ist aktives Fenster, 0=Fenster nicht aktiv
    33. cxWindowBorders As Long 'Rahmenbreite in px
    34. cyWindowBorders As Long 'Rahmenhöhe in px
    35. atomWindowType As Integer
    36. wCreatorVersion As Integer
    37. End Type
    39. Private Const GW_CHILD = 5 'GetWindow: Erstes Kindfenster
    40. Private Const GW_HWNDNEXT = 2 'GetWindow: Nächstes Fenster gleicher Ebene
    42. Public Sub demoTaskliste()
    43. Dim strTitel As String
    44. Dim wi As PWINDOWINFO
    46. #If Win64 Then
    47. Dim lngHwnd As LongLong
    48. wi.cbSize = LenB(wi)
    49. #Else
    50. Dim lngHwnd As Long
    51. wi.cbSize = Len(wi)
    52. #End If
    54. lngHwnd = GetWindow(GetDesktopWindow(), GW_CHILD) 'Erstes Kindfenster des Desktops
    56. Debug.Print " hWnd", "Titel"
    57. Debug.Print " ----", "-----"
    59. Do Until lngHwnd = 0
    60. 'Zeige das Fenster, wenn es einen Titel hat und sichtbar ist
    61. GetWindowInfo lngHwnd, wi
    62. If (wi.dwStyle And &H10CF0000) = &H10CF0000 Then
    64. 'Titel des Fensters ermitteln
    65. strTitel = String(255, vbNullChar)
    66. GetWindowTextA lngHwnd, strTitel, 255
    67. strTitel = Replace(strTitel, vbNullChar, "")
    69. Debug.Print lngHwnd, strTitel
    70. End If
    72. lngHwnd = GetWindow(lngHwnd, GW_HWNDNEXT)
    73. Loop
    74. End Sub


    Visual Basic.NET 8o
    MS-SQL     8o

    @Cheffboss Klar, das sind keine .NET-Deklarationen.
    Finde jede Deiner Prozeduren und deren Strukturen auf PInvoke und übernimm die Deklarationen von da.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Cheffboss Ja und?
    Form1.frm
    Module1.bas
    den Rest kannst Du (zunächst) ignorieren.
    Die Deklarationen machst Du mit PInvoke und feddich.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Cheffboss schrieb:

    PInvoke
    Überzeuge Dich von jedem einzelnen Befehl, dass er das tut, was er soll.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich habe das Problem nun behoben.
    Vielen Dank an euch alle!
    Hier habt mir gute Tipps geben.
    BIG THX

    Die Lösung findet man hier:
    https://www.file-upload.net/download-14440712/WindowsApplication7.zip.html


    Edit1:
    WindowsApplication7.zip

    Ja, der Code den habe ich umgeschrieben, auch mit Hilfe von Converter.
    Ich habe den Code als Link hochgeladen, weil ich diesen
    in andren VB-Forum auch gepostet habe.
    Jetzt habe ich diesen nochmal hochgeladen...
    Außerdem habe ich diesen Code auch, als Beispielprojekt
    hochgeladen, und warte noch auf die Veröffentlichung.
    (Showroom & Testcenter) 8-)
    Visual Basic.NET 8o
    MS-SQL     8o

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Cheffboss“ ()

    Warum lädst Du das nicht forenintern hoch, sondern bemühst eine externe Seite, die vielleicht irgendwann Deine Datei löscht? ist doch Deine, oder?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende