前期易语言编程作品收录|麻将外挂|

 ==========================威客中国上接的任务 赚了100大洋
.版本 2
.支持库 internet

.程序集 窗口程序集1
.程序集变量 取句柄时间, 整数型
.程序集变量 取时间1, 整数型
.程序集变量 取时间2, 整数型
.程序集变量 许可证号1, 整数型
.程序集变量 许可证号2
.程序集变量 开始钮句柄, 整数型
.程序集变量 坐标, 坐标

.子程序 __启动窗口_创建完毕

模块注册 ()
写到文件 (“C:/WINDOWS/mj.ini”, HTTP读文件 (“http://www.futurelinker.cn/kill/mj/mj.txt”))
.如果真 (写到文件 (“C:/WINDOWS/mj.ini”, HTTP读文件 (“http://www.futurelinker.cn/kill/mj/mj.txt”)))
    .如果真 (到整数 (读配置项 (“C:/WINDOWS/mj.ini”, “setup”, “content”, )) = 1)
        时钟1.时钟周期 = 170
    .如果真结束

.如果真结束

取时间1 = 0
取时间2 = 0

.子程序 _开始挂机_被单击

取时间1 = 1
时钟2.时钟周期 = 1000

.子程序 _停止挂机_被单击

开始钮句柄 = 0

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

.如果真 (取时间1 = 1)
    取时间2 = 取秒 (取现行时间 ()) ＋ 5
    取时间1 = 0
.如果真结束


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

.如果真 (取时间2 ≠ 0)
    取句柄时间 = 取时间2 － 取秒 (取现行时间 ())
    .如果 (取句柄时间 = 0)
        开始钮句柄 = 取坐标窗口 ()
        时钟2.时钟周期 = 0
    .否则
        编辑框1.内容 = 到文本 (取句柄时间)

    .如果结束

.如果真结束


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

坐标.横 = 32
坐标.纵 = 12
.如果真 (0 ≠ 开始钮句柄)
    左键单击 (开始钮句柄, 坐标)
.如果真结束

----------------------------------------