获取光标所在组件句柄，注意是光标，不是鼠标

hktkzyz

上次的帖子，好像是被管理员设置了答案，但实际并没有解决，可能是我时间长没有回复的原因吧。
————————————————————————————————————————————————————————
按下快捷键就在当前文本框输入指定内容
https://bbs.125.la/forum.php?mod=viewthread&tid=14529529
(出处: 精易论坛)
————————————————————————————————————————————————————————

这个答案解决了文本投递的问题，但是没有解决获取光标所在组件句柄的问题。
举个例子，我打开一个excle，要输入密码，此时光标就在密码框，我想直接按下快捷键，就能让定义好的密码投递到excle的密码框。

我找了一些函数都不对，不知道是不是我用的有问题：
GetForegroundWindow，这是最前的窗体的句柄，但不能是其中组件的句柄，比如他的某个光标所在的编辑框。
GetCaretPos+WindowFromPoint，看说明是 插入符 的位置，可是我试了并不对，不知道是不是没用对。
GetCursorPos+WindowFromPoint，这是鼠标的。

Ossian

  

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
SelfThreadId	整数型
ForeThreadId	整数型
wnd	整数型
NULL	整数型

wnd ＝ GetForegroundWindow ()  ' ;//获得当前激活的窗口句柄
SelfThreadId ＝ GetCurrentThreadId ()  ' ;//获取本身的线程ID
ForeThreadId ＝ GetWindowThreadProcessId (wnd, NULL)  ' ;//根据窗口句柄获取线程ID
AttachThreadInput (ForeThreadId, SelfThreadId, 真)  ' ;//附加线程
调试输出 (GetFocus ())  ' ;//获取具有输入焦点的窗口句柄
AttachThreadInput (ForeThreadId, SelfThreadId, 假)  ' ;//取消附加的线程

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

调试输出 (编辑框1.取窗口句柄 ())
调试输出 (编辑框2.取窗口句柄 ())
调试输出 (编辑框3.取窗口句柄 ())

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 SelfThreadId, 整数型<br /> .局部变量 ForeThreadId, 整数型<br /> .局部变量 wnd, 整数型<br /> .局部变量 NULL, 整数型<br /> <br /> wnd ＝ GetForegroundWindow ()  ' ;//获得当前激活的窗口句柄<br /> SelfThreadId ＝ GetCurrentThreadId ()  ' ;//获取本身的线程ID<br /> ForeThreadId ＝ GetWindowThreadProcessId (wnd, NULL)  ' ;//根据窗口句柄获取线程ID<br /> AttachThreadInput (ForeThreadId, SelfThreadId, 真)  ' ;//附加线程<br /> 调试输出 (GetFocus ())  ' ;//获取具有输入焦点的窗口句柄<br /> AttachThreadInput (ForeThreadId, SelfThreadId, 假)  ' ;//取消附加的线程<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> 调试输出 (编辑框1.取窗口句柄 ())<br /> 调试输出 (编辑框2.取窗口句柄 ())<br /> 调试输出 (编辑框3.取窗口句柄 ())

冯古屋

管理员一般是不会主动给你确定最佳答案的，你自己选的千万别甩锅，我不接哟关于你的提问
我听说过取鼠标所在位置的组件句柄，至于光标所在位置的组件句柄，这个倒真没听说过
个人认为，api算是程序员写的一些函数，前提是程序员认定用户可能会有这样子的操作，它才定义，像你提的需求，一般逻辑下正常操作可能用不到的，你觉得会有程序员特地搞这样子的api吗？
我建议曲线救国，类似遍历当前所有窗口的句柄，看看有没有组件被激活中，或者当前的什么密码框有一些特殊的风格，排除确定最后的句柄

Bking

问一下，鼠标跟光标有啥区别（萌新）

飞羽软件

好像以前遇到过类似，解决办法是，用时钟取当前激活中的窗口句柄，判断是否自己需要的。如果是就执行下面操作

hktkzyz

liuruilol 发表于 2020-3-11 15:53
问一下，鼠标跟光标有啥区别（萌新）

鼠标就是在屏幕上可以随意移动的。
光标就是当前激活窗口上的可输入控件，比如编辑框里那个一闪一闪的“竖线”。

hktkzyz

冯古屋 发表于 2020-3-11 14:30
管理员一般是不会主动给你确定最佳答案的，你自己选的千万别甩锅，我不接哟关于你的提问
我听说 ...

2020-2-29 20:58
您的悬赏主题 按下快捷键就在当前文本框输入指定内容 被 Godsteal 设置了最佳答案   查看 &#8250;

对的不起，我也不是很懂，但我也不明白这个是什么意思，是被 Godsteal 这个人设置的最佳答案。

至于这个api的实用性，我觉得还是蛮实用的，比如我们要打开很多的文件，而没一个文件都要你输入一遍网址广告，这样我们定义了后台快捷键后，就不用每次输入了。当然也可以ctrl+v，但是这期间我们要复制其他内容就不方便了。况且有些文本框不让你ctrlv

hktkzyz

Ossian 发表于 2020-3-11 16:39

  

[/quote]
感谢，好使。有3个疑问：
1、这样好像要一直开着时钟，而为了能够及时响应自定义的快捷键，时钟估计得设置到500ms左右，那会不会很占用系统zy，或者会不会时间长了可能内存泄露奔溃什么的。
2、这个原理好像是把外部的线程附加到自己身上，然后通过getfocus获取，但还是不太明白，如果可以，能否给讲一下，谢谢。
3、getfocus好像是获取的所有能接受焦点的控件，是否有只接受可输入型控件的函数，当然这个到没什么影响，反正都要走一遍时钟里的过程。
下面是我的代码，请指教：
[e=1].版本 2

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
热键	整数型
n	当前句柄

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
SelfThreadId	整数型
ForeThreadId	整数型
wnd	整数型
NULL	整数型

wnd ＝ GetForegroundWindow ()  ' ;//获得当前激活的窗口句柄
SelfThreadId ＝ GetCurrentThreadId ()  ' ;//获取本身的线程ID
ForeThreadId ＝ GetWindowThreadProcessId (wnd, NULL)  ' ;//根据窗口句柄获取线程ID
AttachThreadInput (ForeThreadId, SelfThreadId, 真)  ' ;//附加线程
n ＝ GetFocus ()
' 调试输出 (n)  ' ;//获取具有输入焦点的窗口句柄
' 编辑框4.加入文本 (到文本 (n) ＋ #换行符)
AttachThreadInput (ForeThreadId, SelfThreadId, 假)  ' ;//取消附加的线程

子程序名	返回值类型	公开	备 注
_按钮1_被单击

时钟1.时钟周期 ＝ 500

子程序名	返回值类型	公开	备 注
_按钮2_被单击

时钟1.时钟周期 ＝ 0

子程序名	返回值类型	公开	备 注
_标签1_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
参数二	整数型

如果真 (参数一 ＝ 热键)
文本_投递 (n, 编辑框5.内容)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

热键 ＝ zc热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 1, #Q键 )

i支持库列表	支持库注释
spec	特殊功能支持库
shellEx	扩展功能支持库一

.版本 2<br /> .支持库 spec</blockquote></div><br /> 感谢，好使。有3个疑问：<br /> 1、这样好像要一直开着时钟，而为了能够及时响应自定义的快捷键，时钟估计得设置到500ms左右，那会不会很占用系统zy，或者会不会时间长了可能内存泄露奔溃什么的。<br /> 2、这个原理好像是把外部的线程附加到自己身上，然后通过getfocus获取，但还是不太明白，如果可以，能否给讲一下，谢谢。<br /> 3、getfocus好像是获取的所有能接受焦点的控件，是否有只接受可输入型控件的函数，当然这个到没什么影响，反正都要走一遍时钟里的过程。<br /> <br /> 下面是我的代码，请指教：<br /> [e=1].版本 2<br /> .支持库 shellEx<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 热键, 整数型<br /> .程序集变量 n, 当前句柄<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 SelfThreadId, 整数型<br /> .局部变量 ForeThreadId, 整数型<br /> .局部变量 wnd, 整数型<br /> .局部变量 NULL, 整数型<br /> <br /> wnd ＝ GetForegroundWindow ()  ' ;//获得当前激活的窗口句柄<br /> SelfThreadId ＝ GetCurrentThreadId ()  ' ;//获取本身的线程ID<br /> ForeThreadId ＝ GetWindowThreadProcessId (wnd, NULL)  ' ;//根据窗口句柄获取线程ID<br /> AttachThreadInput (ForeThreadId, SelfThreadId, 真)  ' ;//附加线程<br /> n ＝ GetFocus ()<br /> ' 调试输出 (n)  ' ;//获取具有输入焦点的窗口句柄<br /> ' 编辑框4.加入文本 (到文本 (n) ＋ #换行符)<br /> AttachThreadInput (ForeThreadId, SelfThreadId, 假)  ' ;//取消附加的线程<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 时钟1.时钟周期 ＝ 500<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 时钟1.时钟周期 ＝ 0<br /> <br /> .子程序 _标签1_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> <br /> .如果真 (参数一 ＝ 热键)<br />     文本_投递 (n, 编辑框5.内容)<br /> .如果真结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 热键 ＝ zc热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 1, #Q键)

Ossian

hktkzyz 发表于 2020-3-11 18:53
感谢，好使。有3个疑问：
1、这样好像要一直开着时钟，而为了能够及时响应自定义的快捷键，时钟估计得设 ...

1.要崩溃一般也是易语言自带的时钟崩溃 这个API没有内存泄漏的问题
2.差不多就这样
3.应该没有