记录 其他窗口(不是E的)鼠标点击坐标

tjzoo111

记录 其他窗口(不是E的)鼠标点击坐标     求代码示例 搜索出来的都是 记录E窗口的坐标

草履虫

1. .版本 2
   
2. .支持库 eAPI
   
3. .支持库 shellEx
   
4. .支持库 EThread
   
5. 
   
6. .程序集 窗口程序集1
   
7. .程序集变量 F9, 整数型
   
8. .程序集变量 F10, 整数型
   
9. .程序集变量 X句柄, 整数型
   
10. .程序集变量 开启, 逻辑型
    
11. 
    
12. .子程序 _按钮1_被单击
    
13. 
    
14. 时钟1.时钟周期 ＝ 200
    
15. 
    
16. .子程序 _时钟1_周期事件
    
17. 
    
18. 模拟鼠标点击 (取鼠标水平位置 (), 取鼠标垂直位置 (), 0)
    
19. 
    
20. .子程序 _按钮2_被单击
    
21. 
    
22. 时钟1.时钟周期 ＝ 0
    
23. 
    
24. .子程序 __启动窗口_创建完毕
    
25. 
    
26. F9 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F9键)
    
27. F10 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F10键)
    
28. 启动线程 (&运行子程序, , X句柄)
    
29. 
    
30. .子程序 _标签1_反馈事件, 整数型
    
31. .参数 参数一, 整数型
    
32. .参数 参数二, 整数型
    
33. 
    
34. .判断开始 (参数一 ＝ F9)
    
35.     开启 ＝ 真  ' 此处也可以使用   启动线程 (&运行子程序, , X句柄)
    
36. .判断 (参数一 ＝ F10)
    
37.     开启 ＝ 假  ' 若上面使用   启动线程 (&运行子程序, , X句柄)，则此处使用 关闭线程句柄 (X句柄) 或  强制结束线程(X句柄)
    
38. .默认
    
39. 
    
40. .判断结束
    
41. 
    
42. 
    
43. .子程序 运行子程序
    
44. .局部变量 启动, 逻辑型
    
45. 
    
46. 启动 ＝ 真
    
47. .判断循环首 (启动)
    
48.     .判断开始 (取反 (开启))
    
49.         _按钮2_被单击 ()
    
50.     .默认
    
51.         ' 在下方2个《————》备注之间写你要执行的代码，此循环为无限循环，请在销毁软件时，强制结束线程
    
52.         ' ————
    
53.         _按钮1_被单击 ()
    
54. 
    
55. 
    
56.         ' ————
    
57.     .判断结束
    
58. 
    
59. 
    
60.     延时 (100)
    
61. .判断循环尾 ()
    
62. 
    
63. 
    
64. .子程序 __启动窗口_将被销毁
    
65. 
    
66. 强制结束线程 (X句柄)
    

复制代码

doudou4631

帮你写的,里面都有备注,看不懂了在联系吧

tjzoo111

用全局已经搞定了.版本 2

.程序集 窗口程序集1
.程序集变量 线程_鼠标钩子句柄, 整数型
.程序集变量 鼠标钩子句柄, 整数型
.程序集变量 鼠标钩子指针, 子程序指针, , "0"
.程序集变量 数组, 文本型, , "0"
.程序集变量 显示, 文本型
.程序集变量 n, 整数型

.子程序 __启动窗口_创建完毕





.子程序 回调函数, 逻辑型
.参数 A, 整数型

' 标签4.标题 ＝ 到文本 (取鼠标水平位置 ()) ＋ “,” ＋ 到文本 (取鼠标垂直位置 ())812, 556)  ' 942,537
显示 ＝ “”

.判断开始 (A ＝ 513)
    加入成员 (数组, 到文本 (取鼠标水平位置 () － 940 ＋ 812) ＋ “,” ＋ 到文本 (取鼠标垂直位置 () － 537 ＋ 556) ＋ “,”)
    标题 ＝ “添加” ＋ 到文本 (取数组成员数 (数组)) ＋ “点”
.判断 (A ＝ 516)
    删除成员 (数组, 取数组成员数 (数组), 1)
    标题 ＝ “删除” ＋ 到文本 (取数组成员数 (数组) ＋ 1) ＋ “点”
.默认

.判断结束

.计次循环首 (取数组成员数 (数组), n)
    显示 ＝ 显示 ＋ 数组 [n]
.计次循环尾 ()

标签2.标题 ＝ 显示
置剪辑板文本 (显示)
返回 (假)

.子程序 __启动窗口_将被销毁

卸载鼠标钩子 ()

.子程序 安装鼠标钩子, 逻辑型, 公开, 安装一个鼠标钩子,可同时安装多个钩子指针,后加入的指针具有优先权(成功返回真,失败返回假)
.参数 回调指针, 子程序指针, , 回调钩子子程序指针,子程序只一个参数为鼠标标识(事件常量).返回真:吃掉消息.返回假:放行消息
.局部变量 a, 整数型

.如果真 (鼠标钩子句柄 ≠ 0)
    .计次循环首 (取数组成员数 (鼠标钩子指针), a)
        .如果真 (鼠标钩子指针 [a] ＝ 回调指针)
            返回 (假)  ' 已存在该指针地址
        .如果真结束

    .计次循环尾 ()
    加入成员 (鼠标钩子指针, 回调指针)
    返回 (真)
.如果真结束
加入成员 (鼠标钩子指针, 回调指针)
鼠标钩子句柄 ＝ 安装钩子_ (14, &鼠标钩子处理, _取模块句柄 (0), 0)
返回 (真)

.子程序 卸载鼠标钩子, , 公开, 卸载已安装的鼠标钩子集 (本命令会在类变量销毁时自动被调用)

卸载钩子_ (线程_鼠标钩子句柄)
线程_鼠标钩子句柄 ＝ 0

.子程序 鼠标钩子处理, 整数型, , HOOK类
.参数 code, 整数型
.参数 鼠标标识, 整数型
.参数 lp, 整数型
.局部变量 参数, 整数型, , "1"
.局部变量 a, 整数型

参数 [1] ＝ 鼠标标识
.计次循环首 (取数组成员数 (鼠标钩子指针), a)
    .如果真 (_动态调用子程序1 (#动态调用代码, 鼠标钩子指针 [取数组成员数 (鼠标钩子指针) － a ＋ 1], 参数, 1, 假))
        返回 (1)
    .如果真结束

.计次循环尾 ()
返回 (下一个钩子 (鼠标钩子句柄, code, 鼠标标识, lp))


.子程序 _按钮1_被单击

安装鼠标钩子 (&回调函数)

.子程序 _按钮2_被单击

清除数组 (数组)
标签2.标题 ＝ “”
卸载鼠标钩子 ()

tjzoo111

doudou4631 发表于 2014-6-23 23:52
帮你写的,里面都有备注,看不懂了在联系吧

你那个是单击按钮触发的事件  我要的是 在其他窗口单击鼠标左右触发事件

tjzoo111

草履虫 发表于 2014-6-24 15:00

要的是在  " 其他窗口"    单击鼠标左右触发事件

草履虫

为啥一定要鼠标 按下F9键不行么[/quote]


.版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

窗口_监视热键_注册 (&子程序1)

.子程序 子程序1
.参数 功能键, 整数型
.参数 键代码, 整数型

.如果 (键代码 ＝ #F9键)
    调试输出 (取鼠标水平位置 (), 取鼠标垂直位置 ())
.否则

.如果结束

tjzoo111

草履虫 发表于 2014-6-24 16:47
为啥一定要鼠标 按下F9键不行么

[/quote]

要的就是鼠标触发事件 不是按键

tjzoo111

全局钩子没能判断 窗口句柄..