Question

vb FindWindowEx返回值一直是0

x = Shell("C:\Users\yuanhao\Desktop\xx.exe")
Mir2Hwnd = FindWindow(vbNullString, "工程1")
hwnd = FindWindowEx(Mir2Hwnd, 0, ThunderRT6CommandButton, "确定")
打开一个exe文件，这个exe文件有个窗口叫“工程1”，窗口里有个 叫“确定”的按钮。。。
我就是想实现，打开exe（shell做到了），找到窗口句柄（findwindow做到了），然后点击“确定”按钮，却怎么也实现不了。。。求大神指点。。。

Answer 1

hwnd = FindWindowEx(Mir2Hwnd, 0, ThunderRT6CommandButton, "确定")
改为
hwnd = FindWindowEx(Mir2Hwnd, 0, "ThunderRT6CommandButton", "确定")

类名称要加引号，否则VB会把它作为一个变量来看待
另外，类名称与窗口名（或控件名）一般无须同时提供，所以也可改为
hwnd = FindWindowEx(Mir2Hwnd, 0, vbNullString, "确定")

追问

真心的还是0.。。就是不能获取“确定”按钮。。。亲，您亲自测试过吗？
我的目的很简单。。就是实现Vb自动点击对话框中的“确定”按钮。。。。就这么简单。却一直实现不了。您还有其他好方法吗？

追答

我测试后能获取“确定”按钮啊，不管是按类名还是按钮名来找都成功。经过Spy++验证完全符合。

关键你是用Shell打开程序后就立刻检测，由于Shell是异步运行的，所以这个时候你要打开的那个程序很可能还没有真正开始运行，也就是说它的窗口很可能还不存在呢，所以这个时候立刻检测就很可能会获取不到你要的句柄。解决办法是要添加延时，或者改用同步运行方式，或者如果仅仅是要实现测试目的，可以先手工把那个程序打开，然后再来检测。
其次，一定要保证所有窗体中只有一个的窗体名是叫“工程1”的，否则的话就会造成混乱。

追问

昨天真的不好用。。今天又试了下程序。。有时好用有时不好用。。。貌似我鼠标点一下“工程1”的窗口以后就好用。。不点就不行。。。。在劳烦您把您的完整代码提供一下。。。谢谢您了。。。我再给您加分。。最好您能留一下QQ号。。。麻烦您了。。

追答

你把你窗口标题“工程1”改成其他比较个性化的名字再来试试吧。因为当你打开你的测试窗口的同时也开着VB编程环境的话，那么名为“工程1”的窗口可能就不止一个（包括隐藏的），当你点了“工程1”的窗口时，它就变为当前窗口，FindWindow函数会优先找到它，而不点它的话，它就不是当前窗口，那么就可能先找到其他名为“工程1”的窗口。因此就会出现有时好用有时不好用的情况。
根本的解决办法，是统一用FindWindowEx去寻找窗口（因为它可以遍历，而FindWindow只能找一次），找到后看它是否含有所需的控件，如果没有，就再找下一个窗口，直到找到为止。这样的话就能从多个同名窗口中找到最终结果，这才是最合理的方法，因为窗口同名是很普遍的情况。

追问

虽然我的问题现在还是时好时坏。。。。自己在家试都好用。。到公司去弄就找不到窗体下的按钮返回值。。。我也是醉了。。。。还请你方便的话。。留下QQ号。。。谢谢了。。。873003378.。