当前位置: 主页 > 百科 > 计算机编程 > 易语言源码 >
-12 Comments

疯狂鼠标的源代码

发布于:2016-07-04  |   作者:http://www.zxjsq.net  |   已聚集:人围观

.版本 2

.支持库 iext

.支持库 eAPI


.程序集 窗口程序集_窗口3

.程序集变量 种子, 整数型


.子程序 _时钟1_周期事件


透明标签1.标题 = 到文本 (到数值 (透明标签1.标题) - 1)

.如果真 (透明标签1.标题 = “-1”)

    标签1.可视 = 真

    窗口3.标题 = “正在” + 执行操作

    分类 ()

    窗口3.位置 = 2

    时钟1.时钟周期 = 0

.如果真结束


.子程序 分类


.如果真 (执行操作 = “疯狂单击”)

    时钟2.时钟周期 = 到数值 (_启动窗口.编辑框3.内容)

.如果真结束

.如果真 (执行操作 = “疯狂双击”)

    时钟3.时钟周期 = 到数值 (_启动窗口.编辑框3.内容)

.如果真结束

.如果真 (执行操作 = “疯狂右击”)

    时钟4.时钟周期 = 到数值 (_启动窗口.编辑框3.内容)

.如果真结束

时钟5.时钟周期 = 1000


.子程序 _窗口3_创建完毕


透明标签3.标题 = 执行操作

种子 = 0 


.子程序 _时钟2_周期事件


模拟鼠标点击 (横坐标, 纵坐标, #单击左键)


.子程序 _时钟3_周期事件


模拟鼠标点击 (横坐标, 纵坐标, #双击)


.子程序 _时钟4_周期事件


模拟鼠标点击 (横坐标, 纵坐标, #单击右键)


.子程序 _时钟5_周期事件

.局部变量 总时间, 整数型


总时间 = 到数值 (_启动窗口.编辑框4.内容)

种子 = 种子 + 1

.如果真 (种子 = 总时间)

    _启动窗口.可视 = 真

    _启动窗口.调整层次 (#最高层)

    销毁 ()

.如果真结束

标签:                   喜欢:收藏