关于鼠标点击，向右连续点击，翻了论坛的帖子，没想要的

老四知道

.版本 2
.支持库 eAPI

鼠标_单击 (取鼠标所在窗口句柄 (), 取鼠标水平位置 (), 取鼠标垂直位置 (), 1)
鼠标_移动 (取鼠标所在窗口句柄 (), 取鼠标水平位置 () ＋ 30, 取鼠标垂直位置 ())
鼠标_单击 (取鼠标所在窗口句柄 (), 取鼠标水平位置 (), 取鼠标垂直位置 (), 1)
鼠标_移动 (取鼠标所在窗口句柄 (), 取鼠标水平位置 () ＋ 30, 取鼠标垂直位置 ())
鼠标_单击 (取鼠标所在窗口句柄 (), 取鼠标水平位置 (), 取鼠标垂直位置 (), 1)
鼠标_移动 (取鼠标所在窗口句柄 (), 取鼠标水平位置 () ＋ 30, 取鼠标垂直位置 ())
鼠标_单击 (取鼠标所在窗口句柄 (), 取鼠标水平位置 (), 取鼠标垂直位置 (), 1)






补充内容 (2024-11-9 10:16):
不知道这样写对不对，用excel表格实验下来不太对，求各位路过的大佬指点一二

147888123

你不是加个循环就好了

xbwdl

  

子程序名	返回值类型	公开	备 注
子程序1

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

' 鼠标_单击 (取鼠标所在窗口句柄 (), 取鼠标水平位置 (), 取鼠标垂直位置 (), 1)
计次循环首 (5, i)
鼠标_移动 (窗口_取屏幕句柄 (), 取鼠标水平位置 () ＋ 30, 取鼠标垂直位置 ())
程序_延时 (500)
计次循环尾 ()

.版本 2<br /> <br /> .子程序 子程序1<br /> .局部变量 i, 整数型<br /> <br /> ' 鼠标_单击 (取鼠标所在窗口句柄 (), 取鼠标水平位置 (), 取鼠标垂直位置 (), 1)<br /> .计次循环首 (5, i)<br />     鼠标_移动 (窗口_取屏幕句柄 (), 取鼠标水平位置 () ＋ 30, 取鼠标垂直位置 ())<br />     程序_延时 (500)<br /> .计次循环尾 ()

老四知道

xbwdl 发表于 2024-11-9 10:57
[e=1].版本 2

.子程序 子程序1

循环了一次后又从第一次的鼠标位置开始取坐标了

147888123

老四知道 发表于 2024-11-9 11:08
循环了一次后又从第一次的鼠标位置开始取坐标了

循环前你把位置取当前坐标

a45167039

  

子程序名	返回值类型	公开	备 注
子程序1

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

如果真 (坐标 ＝ 0)
坐标 ＝ 取鼠标水平位置 ()
计次循环首 (5, i)
坐标 ＝ 坐标 ＋ i × 30
鼠标_移动 (窗口_取屏幕句柄 (), 坐标 ＋ 30, 取鼠标垂直位置 ())
程序_延时 (500)
计次循环尾 ()

.版本 2<br /> <br /> .子程序 子程序1<br /> .局部变量 i, 整数型<br /> .局部变量 坐标, 整数型, 静态<br /> <br /> .如果真 (坐标 ＝ 0)<br />     坐标 ＝ 取鼠标水平位置 ()<br /> .如果真结束<br /> .计次循环首 (5, i)<br />     坐标 ＝ 坐标 ＋ i × 30<br />     鼠标_移动 (窗口_取屏幕句柄 (), 坐标 ＋ 30, 取鼠标垂直位置 ())<br />     程序_延时 (500)<br /> .计次循环尾 ()

根据上面那个大神改的


补充内容 (2024-11-9 11:51):
坐标=坐标 + i × 30 改成坐标=坐标+30就可以了 写错了

xiaoSeven

捕获一下鼠标试试，再就是前台操作的一些东西，你一旦动了鼠标就白瞎了

老四知道

a45167039 发表于 2024-11-9 11:49
[e=0].版本 2

.子程序 子程序1

还是不行，用热键执行一次，再执行之后，会接着上次的坐标继续点击

dc244399752

.版本 2
.支持库 eAPI

.子程序 子程序1
.局部变量 窗口句柄, 整数型

窗口句柄 ＝ 取鼠标所在窗口句柄 ()
.如果真 (集_x ＝ 0)
    集_x ＝ 取鼠标水平位置 ()
    集_y ＝ 取鼠标垂直位置 ()
.如果真结束

.计次循环首 (5, )

    鼠标_单击 (窗口句柄, 集_x, 集_y, 1)
    集_x ＝ 集_x ＋ 30
    鼠标_移动 (窗口句柄, 集_x, 集_y)
    程序_延时 (1, 1)
.计次循环尾 ()

chenboss

模拟鼠标不能超过屏幕宽度，最终会一直点击屏幕最右侧，对excel没显示在屏幕的单元格是点不到的

补充内容 (2024-11-9 14:12):
如果想对excel单元格一直往右边点，可以结合模拟键盘右方向键，再鼠标点击最右侧即可