模拟鼠标点击 + 搜索所有的windows窗口，发送鼠标动作给后台程序！

cumulonimbus

法师，我试了一下mouse_event及keybd_event函数，
SetCursorPos x, y
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
以及
Call keybd_event(vbKeyS, MapVirtualKey(vbKeyS, 0), 0, 0)            
Call keybd_event(vbKeyS, MapVirtualKey(vbKeyS, 0), KEYEVENTF_KEYUP, 0)   


我发现根本就无法后台运行，只要有什么东西挡住了要操作的对象，它就在挡住的东西上操作，而不是在操作对象上运行程序。
法师，如果知道了X、Y点，要用什么函数才能后台运行呢？

灰袍法师

cumulonimbus 发表于 2012-9-9 21:16
法师，我试了一下mouse_event及keybd_event函数，
SetCursorPos x, y
mouse_event MOUSEEVENTF_LEFTDOWN, ...

获取其它窗口的文本内容 如附件
不过我发现如果其它窗口是 notepad2, ultraedit 这些软件，就会乱码
只有windows只带的记事本，写字板才能获得正确的汉字
你说的后台鼠标操作，应该也可以用 发送鼠标消息 来做
我懒得研究了
windowsAPI用起来好麻烦。。。。。。

获取其它窗口的文本内容.rar (14.02 KB, 下载次数: 108)

2012-9-9 22:45 上传

点击文件名下载附件

灰袍法师

cumulonimbus 发表于 2012-9-10 11:39
谢谢灰袍法师，在你的昨天指导下，我已经做出获取文本的方法。
我现在一直琢磨怎么样，才能让鼠标在后台 ...

啊哈，搞出来了
他妈的一个画图程序，后面都有26个子窗口，要找到正确的那一个，才能发送 鼠标动作给它
经cumulonimbus提醒，更新附件
搜索画图程序的所有子窗口时，以 "View" 为关键字找出画图区域的正确句柄
如附件
WinAPI - 向后台程序发送鼠标动作.rar (22.79 KB, 下载次数: 173)

2012-9-12 02:26 上传

点击文件名下载附件

cumulonimbus

灰袍法师 发表于 2012-9-10 19:59
啊哈，搞出来了
他妈的一个画图程序，后面都有26个子窗口，要找到正确的那一个，才能发送 鼠标动作给它
...

奇怪，在我的电脑上，你的程序不起作用。

cumulonimbus

灰袍法师 发表于 2012-9-10 19:59
啊哈，搞出来了
他妈的一个画图程序，后面都有26个子窗口，要找到正确的那一个，才能发送 鼠标动作给它
...

楼主的程序过于冗长而复杂，这样即可：
Sub kkk()
Dim hwnd As Long, hwnd1 As Long, hwnd2 As Long
hwnd = FindWindow(vbNullString, "未命名 - 画图")
If hwnd Then
    hwnd1 = FindWindowEx(hwnd, 0, "AfxFrameOrView42u", vbNullString)
    If hwnd1 Then
        hwnd2 = FindWindowEx(hwnd1, 0, "Afx:1000000:8", vbNullString)
        If hwnd2 Then
            send_mouse_drag hwnd2, 200, 200, 200, 300
            send_mouse_drag hwnd2, 200, 200, 300, 200
            send_mouse_drag hwnd2, 300, 200, 300, 300
            send_mouse_drag hwnd2, 300, 300, 200, 300
            Exit Sub
        End If
    End If
End If
End Sub

我原以为你会写关于mouse_event后台运作的程序，却发现你用的是sendmessage作后台运行。
我是苦于有些程序的按钮找不到句柄，又想通过找出X、Y点坐标，让mouse_event在后台运行，如QQ的按钮、115优蛋的按钮。
楼主可否找出解决之道？

cumulonimbus

灰袍法师 发表于 2012-9-10 19:59
啊哈，搞出来了
他妈的一个画图程序，后面都有26个子窗口，要找到正确的那一个，才能发送 鼠标动作给它
...

为什么你的参数非得这样计算呢：lparam = x1 * 65536 + y1，我尝试过其他任何数字都不行。法师可否指教一二，谢谢。

灰袍法师

据微软网页说
mouse_event函数不再提供支持，不知道何时就不能用了
新的函数是 sendinput
http://msdn.microsoft.com/en-us/library/windows/desktop/ms646310(v=vs.85).aspx

cumulonimbus

灰袍法师 发表于 2012-9-12 00:54
[quote]cumulonimbus 发表于 2012-9-11 22:56 http://msdn.microsoft.com/en-us/library/windows/desktop/m ...

SendInput函数我也用过，只要涉及无句柄的X、Y都无法后台运行。
另外请教法师，为什么你的sendmessage参数非得这样计算呢：lparam = x1 * 65536 + y1，我尝试过其他任何数字都不行。法师可否指教一二，谢谢

灰袍法师

或者可以先发送最大化给QQ之流，这样图形按钮的位置就固定了

cumulonimbus

灰袍法师 发表于 2012-9-12 15:26
或者可以先发送最大化给QQ之流，这样图形按钮的位置就固定了

可以算QQ按钮与QQ左边界的距离，然后根据这个数据无论QQ移动到哪里，都可以算出QQ按钮的X、Y值。
现在唯一的缺点使用mouse_event必须前台运行。一旦有东西挡住按钮，就不起作用了。