Hallo,
Ich versuche gerade einen button in einer anderen Anwendung zudrücken dazu habe ich auch diesen Beitrag gefunden:
[VB.NET] Button in minimierte Anwendung klicken
Nur Leider funktioniert es nicht.
Der fenster Titel ist: "SeaCrusher 2.87"
Der Button Class Name: "WindowsForms10.BUTTON.app.0.33c0d9d"
Nur wenn ich den Code anwende passiert garnix.
Hoffe jemand kann mir helfen.
LG.
Ich versuche gerade einen button in einer anderen Anwendung zudrücken dazu habe ich auch diesen Beitrag gefunden:
[VB.NET] Button in minimierte Anwendung klicken
Nur Leider funktioniert es nicht.
Der fenster Titel ist: "SeaCrusher 2.87"
Der Button Class Name: "WindowsForms10.BUTTON.app.0.33c0d9d"
Nur wenn ich den Code anwende passiert garnix.
VB.NET-Quellcode
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- 'Fenster Handle ermitteln
- iHwndForm = FindWindow(vbNullString, "SeaCrusher 2.87")
- 'Button Handle ermitteln
- iHwndButton = FindWindowEx(iHwndForm, 0, "WindowsForms10.BUTTON.app.0.33c0d9d", vbNullString)
- 'Click auf Button in zweite EXE senden
- SendMessage(iHwndButton, BM_CLICK, 0, 0) 'Button drücken
- End Sub
- Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
- Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntPtr
- Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
- Private Const BM_CLICK As Integer = &HF5
- Private iHwndForm As IntPtr 'Fensterhanlde ermitteln
- Private iHwndButton As IntPtr 'Buttonhandle ermitteln
- End Class
Hoffe jemand kann mir helfen.
LG.
