定制自己的按键精灵

引子玄

让电脑帮我们写"自定义"程序代码{:soso_e179:}

cumulonimbus

Private Sub Form_Load()
dim hwnd as long
hwnd = XXXXXX 'XXXXX表示记事本编辑框的句柄
PostMessage hwnd,WM_KEYDOWN，VK_A，MakeKeyLparam(VK_A,WM_KEYDOWN) '按下A键
PostMessage hwnd,WM_CHAR，ASC("A"),MakeKeyLparam(VK_A,WM_KEYDOWN)'输入字符A
PostMessage hwnd,WM_UP，VK_A，MakeKeyLparam(VK_A,WM_UP)'释放A键
End Sub
我上面所说的按键精灵就是这么一段代码,用它代替人去执行输入保存新增操作,有点类似EXCEL的宏一样,但它很大不同之处在于需要捕获控件句柄(人机对话界面往往是由一堆堆控件堆成的),然后用API给对象传值,简单的说就是这么一回事.

----------------------------------------------------
楼主，上面是你的代码，这个代码不是也要记事本编辑框的句柄吗？
如：QQ、115优蛋等等的登录框找不到句柄，实在想不出来要如何操作。

luqiwe

cumulonimbus 发表于 2012-9-6 20:20
Private Sub Form_Load()
dim hwnd as long
hwnd = XXXXXX 'XXXXX表示记事本编辑框的句柄

查找句柄,用API函数,案例实在太多,百度可搜,我手头有VB版查句柄的代码,但要转换成VBA一直没时间,你只能自己去搜一下了.

cumulonimbus

luqiwe 发表于 2012-9-6 22:22
查找句柄,用API函数,案例实在太多,百度可搜,我手头有VB版查句柄的代码,但要转换成VBA一直没时间,你只能自 ...

谢谢兄弟，QQ的登录按钮，我用SPY++去找都找不到句柄，难道你还能比SPY++更牛B。

luqiwe

cumulonimbus 发表于 2012-9-6 22:26
谢谢兄弟，QQ的登录按钮，我用SPY++去找都找不到句柄，难道你还能比SPY++更牛B。

如果是用API即时生成的控件,是没句柄的,相信开发者一般不会这样处理,但如果确实这样只能用屏幕区域定位技术来解决了.借用一网友的话:那玩意不是标准控件，况且那玩意不是由子窗口按钮实现的。是直接绘图。判断鼠标点击的相对位置来触发事件。所以你可以从这里考虑。发送WM_LBUTTONDOWN事件。使用mouse_event函数。你试一试，发现还是不行。操*蛋*的腾*讯。它有消息拦截。所以你必须要了解驱动级别的系统编程。动手去试试吧。

cumulonimbus

luqiwe 发表于 2012-9-6 22:42
如果是用API即时生成的控件,是没句柄的,相信开发者一般不会这样处理,但如果确实这样只能用屏幕区域定位 ...

呵呵，谢谢兄弟。
现在好多软件的登录按钮都无法找到句柄，例如：115优蛋，它的登录按钮也无法找到句柄。难办呀!
还有请问兄弟，屏幕区域定位技术是啥技术？如果用VBA如何实现呢？

cumulonimbus

luqiwe 发表于 2012-9-6 22:22
查找句柄,用API函数,案例实在太多,百度可搜,我手头有VB版查句柄的代码,但要转换成VBA一直没时间,你只能自 ...

假设记事本(有可能是其它的软件)的文字信息只能用API获取，要如何获取呢？
我用GetWindowText无法获取，是否还有其它的办法提取呢？谢谢兄弟

引子玄

我想学了类模块，学这会多余，毫无意义，汗这落后的DD

东亚五金

你们是越玩越高级

cumulonimbus

楼主，我试了一下mouse_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)             '按下S键。
Call keybd_event(vbKeyS, MapVirtualKey(vbKeyS, 0), KEYEVENTF_KEYUP, 0)   '放开S键。


我发现这根本就无法后台运行，只要有什么东西挡住了要操作的对象，它就在挡住的东西上操作，而不是在操作对象上运行程序。