reicht Dir die Information von Hans nicht.
Gruß Hajo
Versuch's mal in etwa so ...
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ Dim hwnd As Long Sub ClearImmediateWindow()Option Explicit
Code eingefügt mit Syntaxhighlighter 1.14
ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
ByVal hwndParent As Long, ByVal hwndChildAfter As Long, _
ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long
hwnd = FindWindow("wndclass_desked_gsk", vbNullString)
hwnd = FindWindowEx(hwnd, 0, vbNullString, "Direktbereich")
SetFocus hwnd
SendKeys "^{a}"
SendKeys "{DELETE}"
End Sub
Gruß
Thomas
------------------------------
Internet: Homepage
eMail: Thomas.Risi@t-online.de
------------------------------