求 源码模拟鼠标从一个xy点位 移动到另一个点位(在线等

lijingyue

.版本 2
.支持库 eAPI

模拟鼠标点击 (到整数 (编辑框_5X.内容), 到整数 (编辑框_5y.内容), )
鼠标_按键 (3, 3)
' 鼠标_移动 (, 到整数 (编辑框_5X.内容), 到整数 (编辑框_5y.内容) ＋ 10)

' 鼠标_带轨迹移动 (到整数 (编辑框_5X.内容), 到整数 (编辑框_5y.内容), 到整数 (编辑框_5X.内容), 到整数 (编辑框_5y.内容) ＋ 10, , )
' 鼠标_按键 (3, 4)
鼠标_消息 (, , 10, 5, 4)

我测试了精易模块里关于鼠标移动相关的，没有一个能让鼠标东西来了，只能单纯的点击

需求：
可以使用X·Y 点位 使鼠标左键按住，然后移动至X·Y +10 位置 鼠标左键松开。

或者使用X·Y 点位 鼠标滚轮  向上 或 向下滚动，（可设置滚动大小）移动到新的点位
。

整体就是我通过X-Y 鼠标位置  将网页进度条下拉或者上拉，由于本人对网页相关的不是特懂，正能用最传统的办法... 但是没搞出来。

LEOONL

  

子程序名	返回值类型	公开	备 注
鼠标_模拟鼠标拖动
参数名	类 型	参考	可空	数组	备 注
x	整数型
y	整数型
横纵移动	整数型				2为纵，其他为横
移动次数	整数型
每次移动距离	整数型
移动延时	整数型

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

如果 (横纵移动 ＝ 2)
鼠标_移动 (, x, y)
鼠标_按键 (1, 3)
计次循环首 (移动次数, n)
延时 (移动延时)
鼠标_移动 (, x, y ＋ 每次移动距离 × n)
计次循环尾 ()
鼠标_按键 (1, 4)
鼠标_移动 (, x, y)
鼠标_按键 (1, 3)
计次循环首 (移动次数, n)
延时 (移动延时)
鼠标_移动 (, x ＋ 每次移动距离 × n, y)
计次循环尾 ()
鼠标_按键 (1, 4)

.版本 2<br /> <br /> .子程序 鼠标_模拟鼠标拖动, , 公开<br /> .参数 x, 整数型<br /> .参数 y, 整数型<br /> .参数 横纵移动, 整数型, , 2为纵，其他为横<br /> .参数 移动次数, 整数型<br /> .参数 每次移动距离, 整数型<br /> .参数 移动延时, 整数型<br /> .局部变量 n, 整数型<br /> <br /> .如果 (横纵移动 ＝ 2)<br />     鼠标_移动 (, x, y)<br />     鼠标_按键 (1, 3)<br />     .计次循环首 (移动次数, n)<br />         延时 (移动延时)<br />         鼠标_移动 (, x, y ＋ 每次移动距离 × n)<br />     .计次循环尾 ()<br />     鼠标_按键 (1, 4)<br /> .否则<br />     鼠标_移动 (, x, y)<br />     鼠标_按键 (1, 3)<br />     .计次循环首 (移动次数, n)<br />         延时 (移动延时)<br />         鼠标_移动 (, x ＋ 每次移动距离 × n, y)<br />     .计次循环尾 ()<br />     鼠标_按键 (1, 4)<br /> .如果结束

lijingyue

LEOONL 发表于 2024-8-29 22:24
[e=0].版本 2

.子程序 鼠标_模拟鼠标拖动, , 公开

待我测试下，你这代码从哪找到的，，，真快

LEOONL

lijingyue 发表于 2024-8-29 22:26
待我测试下，你这代码从哪找到的，，，真快

自己的            

lijingyue

LEOONL 发表于 2024-8-29 22:24
[e=0].版本 2

.子程序 鼠标_模拟鼠标拖动, , 公开

您好，源代码我看是逻辑是没问题的但是我在电脑上运行这段代码，鼠标_移动  代码生效 ，在往下的代码就没反应了，   我怀疑我电脑出BUG了

lijingyue

LEOONL 发表于 2024-8-29 22:32
自己的

.版本 2
.支持库 spec

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

鼠标_模拟鼠标拖动 (到整数 (编辑框_5X.内容), 到整数 (编辑框_4y.内容), 2, 2, 100, 100)



.子程序 鼠标_模拟鼠标拖动, , 公开
.参数 x, 整数型
.参数 y, 整数型
.参数 横纵移动, 整数型, , 2为纵，其他为横
.参数 移动次数, 整数型
.参数 每次移动距离, 整数型
.参数 移动延时, 整数型
.局部变量 n, 整数型

.如果 (横纵移动 ＝ 2)
    鼠标_移动 (, x, y)
    鼠标_按键 (1, 3)
    调试输出 (“摁下”)
    .计次循环首 (移动次数, n)
        延时 (移动延时)
        鼠标_移动 (, x, y ＋ 每次移动距离 × n)
        调试输出 (“向下动”)
    .计次循环尾 ()
    鼠标_按键 (1, 4)
    调试输出 (“松开”)
.否则
    鼠标_移动 (, x, y)
    鼠标_按键 (1, 3)
    .计次循环首 (移动次数, n)
        延时 (移动延时)
        鼠标_移动 (, x ＋ 每次移动距离 × n, y)
    .计次循环尾 ()
    鼠标_按键 (1, 4)
.如果结束

我加了调试输出 程序没弹出来，可有排查方向 指导下

LEOONL

lijingyue 发表于 2024-8-29 22:37
.版本 2
.支持库 spec

程序没弹出来什么意思，运行代码有什么问题，鼠标按键无效？

lijingyue

LEOONL 发表于 2024-8-29 22:40
程序没弹出来什么意思，运行代码有什么问题，鼠标按键无效？

就是无效，我加了 调试输出，看看  哪块没反应  ，结果 都没反应，  我在想是不是我版本太低了， 在找新版本的易语言，还是我电脑驱动没更新导致的

LEOONL

lijingyue 发表于 2024-8-29 22:42
就是无效，我加了 调试输出，看看  哪块没反应  ，结果 都没反应，  我在想是不是我版本太低了， 在找新 ...

都没？ 你不是说鼠标可以移动，移动代码可是在调试输出下的

djdjdj69

可以了可以可以了