后台点击

xingyuexl

  

计次循环首 (超级列表框1.取表项数 (), j)
数量 ＝ 超级列表框1.取表项数 ()
x ＝ 到整数 (超级列表框1.取标题 (j － 1, 1))
y ＝ 到整数 (超级列表框1.取标题 (j － 1, 2))
句柄 ＝ 到整数 (超级列表框1.取标题 (j － 1, 4))
鼠标_消息 (句柄, x, y, 1)
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> <br /> .计次循环首 (超级列表框1.取表项数 (), j)<br />     数量 ＝ 超级列表框1.取表项数 ()<br />     x ＝ 到整数 (超级列表框1.取标题 (j － 1, 1))<br />     y ＝ 到整数 (超级列表框1.取标题 (j － 1, 2))<br />     句柄 ＝ 到整数 (超级列表框1.取标题 (j － 1, 4))<br />     鼠标_消息 (句柄, x, y, 1)<br /> <br /> .计次循环尾 ()

怎么让它按  列表框顺序  点击 啊

陌迁尘

你这不就是列表顺序，你自己加上延时就可以看出效果了。

  

计次循环首 (超级列表框1.取表项数 (), j)
x ＝ 到整数 (超级列表框1.取标题 (j － 1, 1))
y ＝ 到整数 (超级列表框1.取标题 (j － 1, 2))
句柄 ＝ 到整数 (超级列表框1.取标题 (j － 1, 4))
鼠标_消息 (句柄, x, y, 1)
延时（到整数 (超级列表框1.取标题 (j － 1, 3))）
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> <br /> .计次循环首 (超级列表框1.取表项数 (), j)<br />     x ＝ 到整数 (超级列表框1.取标题 (j － 1, 1))<br />     y ＝ 到整数 (超级列表框1.取标题 (j － 1, 2))<br />     句柄 ＝ 到整数 (超级列表框1.取标题 (j － 1, 4))<br />     鼠标_消息 (句柄, x, y, 1)<br /> <br />     延时（到整数 (超级列表框1.取标题 (j － 1, 3))）<br /> <br /> .计次循环尾 ()

wangchen

  

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

变量名	类 型	静态	数组	备 注
j	整数型

数量 ＝ 超级列表框1.取表项数 ()
计次循环首 (数量, j)
启动线程 (&点击, j － 1, )
程序_延时 (10)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
点击
参数名	类 型	参考	可空	数组	备 注
参数	整数型

变量名	类 型	静态	数组	备 注
x	整数型
y	整数型
句柄	整数型

进入许可区 (点击许可证)
x ＝ 到整数 (超级列表框1.取标题 (参数, 1))
y ＝ 到整数 (超级列表框1.取标题 (参数, 2))
句柄 ＝ 到整数 (超级列表框1.取标题 (参数, 4))
鼠标_消息 (句柄, x, y, 1)  ' 这不是后台 要用大漠
退出许可区 (点击许可证)

子程序名	返回值类型	公开	备 注
程序_延时	逻辑型		不占用cpu，窗口不卡死，不影响其它代码执行
参数名	类 型	参考	可空	数组	备 注
延时间隔	整数型				1000毫秒 = 1秒  留空为无限等待
延时单位	长整数型				默认为毫秒  0=毫秒  1=秒  2=分钟  3=小时

变量名	类 型	静态	数组	备 注
局_时间句柄	整数型
局_时间	LARGE_INTEGER

判断 (延时单位 ＝ 0 且 是否为空 (延时间隔))
延时间隔 ＝ 5000 × 60 × 60
延时单位 ＝ 5000 × 60 × 60
判断 (延时单位 ＝ 0)
延时单位 ＝ 1
判断 (延时单位 ＝ 1)
延时单位 ＝ 1000
判断 (延时单位 ＝ 2)
延时单位 ＝ 1000 × 60
判断 (延时单位 ＝ 3)
延时单位 ＝ 1000 × 60 × 60


局_时间.QuadPart ＝ -10 × 延时间隔 × 1000 × 延时单位
局_时间句柄 ＝ CreateWaitableTimerA (0, 假, 0)
SetWaitableTimer (局_时间句柄, 局_时间, 0, 0, 0, 假)
判断循环首 (MsgWaitForMultipleObjects (1, 局_时间句柄, 假, -1, 255) ≠ 0)
处理事件 ()
判断循环尾 ()
CloseHandle (局_时间句柄)
返回 (真)

子程序名	返回值类型	公开	备 注
鼠标_消息			向指定窗口发送鼠标动作消息(无返回值)
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型				可空:为桌面超级列表框句柄  接收鼠标消息窗口句柄
水平坐标	整数型				可空:为原水平坐标不变  移动目标鼠标水平坐标 (注:坐标为参数一窗口句柄中的坐标)
垂直坐标	整数型				可空:为原垂直坐标不变  移动目标鼠标垂直坐标
键	整数型				可空:为左键  1 #左键   2 #右键   3 #中键  4 #中键上滚动 5 #中键下滚动(滚动前后请按下放开中键)
控制	整数型				可空:为单击  1 #单击   2 #双击   3 #按下  4 #放开

变量名	类 型	静态	数组	备 注
坐标值	整数型

如果真 (窗口句柄 ＝ 0)
窗口句柄 ＝ GetDesktopWindow ()
如果真 (是否为空 (水平坐标))
水平坐标 ＝ 2
如果真 (是否为空 (垂直坐标))
垂直坐标 ＝ 2
坐标值 ＝ 水平坐标 ＋ 垂直坐标 × 65536
如果真 (键 ＝ 4)  ' 中键上滚动
SendMessageA (窗口句柄, 522, 7864336, 坐标值 ＋ 25100873)
返回 ()
如果真 (键 ＝ 5)  ' 中键下滚动
SendMessageA (窗口句柄, 522, -7864304, 坐标值 ＋ 25100873)
返回 ()
SendMessageA (窗口句柄, 512, 2, 坐标值)
如果真 (键 ＝ 0 或 键 ＝ 1)
如果真 (控制 ＝ 0 或 控制 ＝ 1)
SendMessageA (窗口句柄, 513, 1, 坐标值)  ' 左键按下
SendMessageA (窗口句柄, 514, 0, 坐标值)  ' 左键放开
如果真 (控制 ＝ 2)
SendMessageA (窗口句柄, 513, 1, 坐标值)
SendMessageA (窗口句柄, 514, 0, 坐标值)
SendMessageA (窗口句柄, 515, 0, 坐标值)  ' 双击左键
如果真 (控制 ＝ 3)
SendMessageA (窗口句柄, 513, 1, 坐标值)
如果真 (控制 ＝ 4)
SendMessageA (窗口句柄, 514, 0, 坐标值)
返回 ()
如果真 (键 ＝ 2)
如果真 (控制 ＝ 0 或 控制 ＝ 1)
SendMessageA (窗口句柄, 516, 2, 坐标值)  ' 右键按下
SendMessageA (窗口句柄, 517, 2, 坐标值)  ' 右键放开
如果真 (控制 ＝ 2)
SendMessageA (窗口句柄, 516, 2, 坐标值)
SendMessageA (窗口句柄, 517, 2, 坐标值)
SendMessageA (窗口句柄, 518, 0, 坐标值)  ' 双击右键
如果真 (控制 ＝ 3)
SendMessageA (窗口句柄, 516, 2, 坐标值)
如果真 (控制 ＝ 4)
SendMessageA (窗口句柄, 517, 2, 坐标值)
SendMessageA (窗口句柄, 123, 132782, 坐标值 ＋ 25100873)  ' 右键放开
返回 ()
如果真 (键 ＝ 3)
如果真 (控制 ＝ 0 或 控制 ＝ 1)
SendMessageA (窗口句柄, 519, 16, 坐标值)  ' 中键按下
SendMessageA (窗口句柄, 520, 0, 坐标值)  ' 中键放开
如果真 (控制 ＝ 2)
SendMessageA (窗口句柄, 519, 16, 坐标值)
SendMessageA (窗口句柄, 520, 0, 坐标值)
SendMessageA (窗口句柄, 521, 0, 坐标值)  ' 双击中键
如果真 (控制 ＝ 3)
SendMessageA (窗口句柄, 519, 16, 坐标值)
如果真 (控制 ＝ 4)
SendMessageA (窗口句柄, 520, 0, 坐标值)
返回 ()
' WM_MOUSEFIRST = 512
' WM_MOUSEMOVE = 512
' // 移动鼠标
' WM_LBUTTONDOWN = 513
' //按下鼠标左键
' WM_LBUTTONUP = 514
' //释放鼠标左键
' WM_LBUTTONDBLCLK = 515
' //双击鼠标左键
' WM_RBUTTONDOWN = 516
' //按下鼠标右键
' WM_RBUTTONUP = 517
' //释放鼠标右键
' WM_RBUTTONDBLCLK = 518
' //双击鼠标右键
' WM_MBUTTONDOWN = 519
' //按下鼠标中键
' WM_MBUTTONUP = 520
' //释放鼠标中键
' WM_MBUTTONDBLCLK = 521
' //双击鼠标中键
' WM_MOUSEWHEEL = 522
' 当鼠标轮子转动时发送此消息个当前有焦点的控件

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

点击许可证 ＝ 创建进入许可证 ()

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

删除进入许可证 (点击许可证)

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 j, 整数型<br /> <br /> 数量 ＝ 超级列表框1.取表项数 ()<br /> .计次循环首 (数量, j)<br />     启动线程 (&点击, j － 1, )<br />     程序_延时 (10)<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 点击<br /> .参数 参数, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 句柄, 整数型<br /> <br /> 进入许可区 (点击许可证)<br /> x ＝ 到整数 (超级列表框1.取标题 (参数, 1))<br /> y ＝ 到整数 (超级列表框1.取标题 (参数, 2))<br /> 句柄 ＝ 到整数 (超级列表框1.取标题 (参数, 4))<br /> 鼠标_消息 (句柄, x, y, 1)  ' 这不是后台 要用大漠<br /> 退出许可区 (点击许可证)<br /> <br /> .子程序 程序_延时, 逻辑型, 公开, 不占用cpu，窗口不卡死，不影响其它代码执行<br /> .参数 延时间隔, 整数型, 可空, 1000毫秒 = 1秒  留空为无限等待<br /> .参数 延时单位, 长整数型, 可空, 默认为毫秒  0=毫秒  1=秒  2=分钟  3=小时<br /> .局部变量 局_时间句柄, 整数型<br /> .局部变量 局_时间, LARGE_INTEGER<br /> <br /> .判断开始 (延时单位 ＝ 0 且 是否为空 (延时间隔))<br />     延时间隔 ＝ 5000 × 60 × 60<br />     延时单位 ＝ 5000 × 60 × 60<br /> .判断 (延时单位 ＝ 0)<br />     延时单位 ＝ 1<br /> .判断 (延时单位 ＝ 1)<br />     延时单位 ＝ 1000<br /> .判断 (延时单位 ＝ 2)<br />     延时单位 ＝ 1000 × 60<br /> .判断 (延时单位 ＝ 3)<br />     延时单位 ＝ 1000 × 60 × 60<br /> .默认<br /> <br /> .判断结束<br /> 局_时间.QuadPart ＝ -10 × 延时间隔 × 1000 × 延时单位<br /> 局_时间句柄 ＝ CreateWaitableTimerA (0, 假, 0)<br /> SetWaitableTimer (局_时间句柄, 局_时间, 0, 0, 0, 假)<br /> .判断循环首 (MsgWaitForMultipleObjects (1, 局_时间句柄, 假, -1, 255) ≠ 0)<br />     处理事件 ()<br /> .判断循环尾 ()<br /> CloseHandle (局_时间句柄)<br /> 返回 (真)<br /> <br /> .子程序 鼠标_消息, , 公开, 向指定窗口发送鼠标动作消息(无返回值)<br /> .参数 窗口句柄, 整数型, 可空, 可空:为桌面超级列表框句柄  接收鼠标消息窗口句柄<br /> .参数 水平坐标, 整数型, 可空, 可空:为原水平坐标不变  移动目标鼠标水平坐标 (注:坐标为参数一窗口句柄中的坐标)<br /> .参数 垂直坐标, 整数型, 可空, 可空:为原垂直坐标不变  移动目标鼠标垂直坐标<br /> .参数 键, 整数型, 可空, 可空:为左键  1 #左键   2 #右键   3 #中键  4 #中键上滚动 5 #中键下滚动(滚动前后请按下放开中键)<br /> .参数 控制, 整数型, 可空, 可空:为单击  1 #单击   2 #双击   3 #按下  4 #放开<br /> .局部变量 坐标值, 整数型<br /> <br /> .如果真 (窗口句柄 ＝ 0)<br />     窗口句柄 ＝ GetDesktopWindow ()<br /> .如果真结束<br /> .如果真 (是否为空 (水平坐标))<br />     水平坐标 ＝ 2<br /> .如果真结束<br /> .如果真 (是否为空 (垂直坐标))<br />     垂直坐标 ＝ 2<br /> .如果真结束<br /> 坐标值 ＝ 水平坐标 ＋ 垂直坐标 × 65536<br /> .如果真 (键 ＝ 4)  ' 中键上滚动<br />     SendMessageA (窗口句柄, 522, 7864336, 坐标值 ＋ 25100873)<br />     返回 ()<br /> .如果真结束<br /> .如果真 (键 ＝ 5)  ' 中键下滚动<br />     SendMessageA (窗口句柄, 522, -7864304, 坐标值 ＋ 25100873)<br />     返回 ()<br /> .如果真结束<br /> SendMessageA (窗口句柄, 512, 2, 坐标值)<br /> .如果真 (键 ＝ 0 或 键 ＝ 1)<br />     .如果真 (控制 ＝ 0 或 控制 ＝ 1)<br />         SendMessageA (窗口句柄, 513, 1, 坐标值)  ' 左键按下<br />         SendMessageA (窗口句柄, 514, 0, 坐标值)  ' 左键放开<br />     .如果真结束<br />     .如果真 (控制 ＝ 2)<br />         SendMessageA (窗口句柄, 513, 1, 坐标值)<br />         SendMessageA (窗口句柄, 514, 0, 坐标值)<br />         SendMessageA (窗口句柄, 515, 0, 坐标值)  ' 双击左键<br />     .如果真结束<br />     .如果真 (控制 ＝ 3)<br />         SendMessageA (窗口句柄, 513, 1, 坐标值)<br />     .如果真结束<br />     .如果真 (控制 ＝ 4)<br />         SendMessageA (窗口句柄, 514, 0, 坐标值)<br />     .如果真结束<br />     返回 ()<br /> .如果真结束<br /> .如果真 (键 ＝ 2)<br />     .如果真 (控制 ＝ 0 或 控制 ＝ 1)<br />         SendMessageA (窗口句柄, 516, 2, 坐标值)  ' 右键按下<br />         SendMessageA (窗口句柄, 517, 2, 坐标值)  ' 右键放开<br />     .如果真结束<br />     .如果真 (控制 ＝ 2)<br />         SendMessageA (窗口句柄, 516, 2, 坐标值)<br />         SendMessageA (窗口句柄, 517, 2, 坐标值)<br />         SendMessageA (窗口句柄, 518, 0, 坐标值)  ' 双击右键<br />     .如果真结束<br />     .如果真 (控制 ＝ 3)<br />         SendMessageA (窗口句柄, 516, 2, 坐标值)<br />     .如果真结束<br />     .如果真 (控制 ＝ 4)<br />         SendMessageA (窗口句柄, 517, 2, 坐标值)<br />     .如果真结束<br />     SendMessageA (窗口句柄, 123, 132782, 坐标值 ＋ 25100873)  ' 右键放开<br />     返回 ()<br /> .如果真结束<br /> .如果真 (键 ＝ 3)<br />     .如果真 (控制 ＝ 0 或 控制 ＝ 1)<br />         SendMessageA (窗口句柄, 519, 16, 坐标值)  ' 中键按下<br />         SendMessageA (窗口句柄, 520, 0, 坐标值)  ' 中键放开<br />     .如果真结束<br />     .如果真 (控制 ＝ 2)<br />         SendMessageA (窗口句柄, 519, 16, 坐标值)<br />         SendMessageA (窗口句柄, 520, 0, 坐标值)<br />         SendMessageA (窗口句柄, 521, 0, 坐标值)  ' 双击中键<br />     .如果真结束<br />     .如果真 (控制 ＝ 3)<br />         SendMessageA (窗口句柄, 519, 16, 坐标值)<br />     .如果真结束<br />     .如果真 (控制 ＝ 4)<br />         SendMessageA (窗口句柄, 520, 0, 坐标值)<br />     .如果真结束<br />     返回 ()<br /> .如果真结束<br /> ' WM_MOUSEFIRST = 512<br /> ' WM_MOUSEMOVE = 512<br /> ' // 移动鼠标<br /> ' WM_LBUTTONDOWN = 513<br /> ' //按下鼠标左键<br /> ' WM_LBUTTONUP = 514<br /> ' //释放鼠标左键<br /> ' WM_LBUTTONDBLCLK = 515<br /> ' //双击鼠标左键<br /> ' WM_RBUTTONDOWN = 516<br /> ' //按下鼠标右键<br /> ' WM_RBUTTONUP = 517<br /> ' //释放鼠标右键<br /> ' WM_RBUTTONDBLCLK = 518<br /> ' //双击鼠标右键<br /> ' WM_MBUTTONDOWN = 519<br /> ' //按下鼠标中键<br /> ' WM_MBUTTONUP = 520<br /> ' //释放鼠标中键<br /> ' WM_MBUTTONDBLCLK = 521<br /> ' //双击鼠标中键<br /> ' WM_MOUSEWHEEL = 522<br /> ' 当鼠标轮子转动时发送此消息个当前有焦点的控件<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 点击许可证 ＝ 创建进入许可证 ()<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 删除进入许可证 (点击许可证)