参考代码
Dim hwnd As IntPtr = FindWindow("WindowsForms10.Window.8.app.0.33c0d9d", "窗口2")
If hwnd <> IntPtr.Zero Then
msgbox("找到窗口")
hwnd = FindWindowEx(hwnd, 0, "WindowsForms10.Window.8.app.0.33c0d9d", "")
If hwnd <> IntPtr.Zero Then
msgbox("找到容器")
Dim btn As IntPtr = FindWindowEx(hwnd, 0, "WindowsForms10.BUTTON.app.0.33c0d9d", "测试")
If btn <> IntPtr.Zero Then
msgbox("找到按钮")
SendMessage(btn, &Hf5, 0, 0)
End If
End If
End If