以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何模护点击另一个项目的按钮  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=129332)

--  作者:bobolan521
--  发布时间:2018/12/26 13:10:00
--  如何模护点击另一个项目的按钮
请问一下老师,该 如何写代码才能实现模拟点击另一个项目的按钮




图片点击可在新窗口打开查看此主题相关图片如下:ss1.png
图片点击可在新窗口打开查看



[此贴子已经被作者于2018/12/26 13:12:52编辑过]

--  作者:bobolan521
--  发布时间:2018/12/26 15:40:00
--  
甜老师麻烦看一下
--  作者:有点甜
--  发布时间:2018/12/26 17:00:00
--  

参考代码

 

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


--  作者:bobolan521
--  发布时间:2018/12/29 9:03:00
--  
老师请问一下,如果窗体里有页签的话,好像按钮就找不到了,请问一下,在有页签的情况下,代码要怎么修改
--  作者:有点蓝
--  发布时间:2018/12/29 9:55:00
--  
一层层找进去,找到窗口-》找到第一层容器-》找到第二层容器-》找到第三层容器-》..............."找到按钮"