WAS BRAUCHT MAN UM AUS
EDIT FENSTER EXTERNER ANWENDUNG
TEXT AUSLESEN
mfg
klaro
Option Explicit
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As _
Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal _
hWnd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, _
ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, _
ByVal lpWindowName As Long) As Long
Public Sub GetWindowList()
Const cWindowTitle = "command.com"
Dim hWnd As Long
Dim tTitle As String
Dim bFound As Boolean
hWnd = FindWindow(ByVal 0&, ByVal 0&)
hWnd = GetWindow(hWnd, 0)
Do
tTitle = GetWindowTitle(hWnd)
If Trim(LCase(tTitle)) "" And InStr(LCase(tTitle), LCase(cWindowTitle)) 0 Then
MsgBox "Handle: " & hWnd, vbOKOnly, cWindowTitle
bFound = True
End If
hWnd = GetWindow(hWnd, 2)
Loop Until hWnd = 0
If Not (bFound) Then MsgBox "Kein Handle für " & cWindowTitle & " gefunden!", vbOKOnly + _
vbExclamation
End Sub
Private Function GetWindowTitle(ByVal hWnd As Long) As String
Dim lTxtLen As Long, tTmp As String
lTxtLen = GetWindowTextLength(hWnd) + 1
tTmp = Space(lTxtLen)
lTxtLen = GetWindowText(hWnd, tTmp, lTxtLen)
GetWindowTitle = Left(tTmp, Len(tTmp) - 1)
End Function
GreetZ Renee
Hallo Leute!
WAS BRAUCHT MAN UM AUS dem
EDIT FENSTER einer EXTERNER ANWENDUNG
den TEXT AUSLESEN auslesen zu können?
mfg
klaro
liest sich da mit den fett gedrucken Satzbestandteilen nicht einfach besser als ohne?