Das wär der Code
Option Explicit
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10
Public Const WM_DESTROY = &H2
Private Sub main()
Dim win
Dim msg
win = FindWindow("ThunderRT6FormDC", "CraXMc")
MsgBox (win)
'msg = DefWindowProc(win, WM_CLOSE)
'msg = SendMessage(win, WM_CLOSE)
MsgBox (msg)
End Sub
Das mit FindWindow Funktioniert auch ohne Probleme
Nun will ich aber dieses "gefundene" Fenster schließen
Ich hab es schon mit allen möglichen Variationen von
DefWindowProc und SendMessage -- mit -- WM_CLOSE, WM_DESTROY, WM_QUIT etc.
Versucht aber ich bekomm immer den Fehler
Argument nicht Optional.
Was mach ich falsch???
Danke schon mal
Option Explicit
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10
Public Const WM_DESTROY = &H2
Private Sub main()
Dim win
Dim msg
win = FindWindow("ThunderRT6FormDC", "CraXMc")
MsgBox (win)
'msg = DefWindowProc(win, WM_CLOSE)
'msg = SendMessage(win, WM_CLOSE)
MsgBox (msg)
End Sub
Das mit FindWindow Funktioniert auch ohne Probleme
Nun will ich aber dieses "gefundene" Fenster schließen
Ich hab es schon mit allen möglichen Variationen von
DefWindowProc und SendMessage -- mit -- WM_CLOSE, WM_DESTROY, WM_QUIT etc.
Versucht aber ich bekomm immer den Fehler
Argument nicht Optional.
Was mach ich falsch???
Danke schon mal