鼠标后台点击可多坐标、最小化

易语言 2020-07-13 14:36:11

鼠标后台点击可多坐标、最小化

' 句柄 = 到整数 (编辑框_窗口句柄.内容)
' X = 到整数 (编辑框_X.内容)
' Y = 到整数 (编辑框_Y.内容)
' SendMessageA整数 (句柄, 513, 1, X + 65536 × Y) ' ’鼠标左键按下
' SendMessageA整数 (句柄, 514, 0, X + 65536 × Y) ' ’鼠标左键放开
.计次循环首 (超级列表框1.取表项数 (), a)
X = 到整数 (超级列表框1.取标题 (a - 1, 0))
Y = 到整数 (超级列表框1.取标题 (a - 1, 1))
句柄 = 到整数 (超级列表框1.取标题 (a - 1, 2))
延迟 (10) ' 这里可以不要
SendMessageA整数 (句柄, 513, 1, X + 65536 × Y) ' ’鼠标左键按下
SendMessageA整数 (句柄, 514, 0, X + 65536 × Y) ' ’鼠标左键放开
' 调试输出 (X, Y, 句柄)
.计次循环尾 ()