发个易语言编写的挂机软件源代码 供大家参考

lenzen

.版本 2
.支持库 EThread
.程序集 窗口程序集1
.程序集变量 dm, 大漠插件类
.程序集变量 句柄, 整数型
.程序集变量 线程1, 整数型
.程序集变量 线程2, 整数型
.程序集变量 线程3, 整数型
.子程序 __启动窗口_创建完毕
皮肤_资源加载 (#pf_重金属)
dm.插件_创建大漠 ()
dm.路径_设置全局路径 (取运行目录 ())
句柄 ＝ dm.窗口_查找窗口 (“D3 Main Window Class”, )
.如果 (dm.窗口_绑定_普通 (句柄, “dx”, “windows2”, “windows”, ) ＝ 真)
    _启动窗口.标题 ＝ “程序运行中”
.否则
    _启动窗口.标题 ＝ “未找到游戏”
.如果结束
dm.窗口_设置大小 (句柄, 1024, 768)
dm.窗口_设置状态 (句柄, 1)
线程_初始化COM ()
线程1 ＝ 线程_启动 (&移动, )
线程_初始化COM ()
线程2 ＝ 线程_启动 (&战斗, )
线程_初始化COM ()
线程3 ＝ 线程_启动 (&监视, )
.子程序 移动
.局部变量 找图1, 文本型
.循环判断首 ()
    延时 (200)
    找图1 ＝ dm.图色_识图_易用_序号 (631, 678, 717, 721, “面板.bmp”, “0”, 0.7, 0)
    .如果真 (到数值 (找图1) ≠ -1)
        dm.键鼠_鼠标移动 (600, 600)
        dm.键鼠_鼠标左键_点击 ()
        延时 (1500)
        dm.键鼠_鼠标移动 (600, 600)
        dm.键鼠_鼠标左键_点击 ()
        延时 (1500)
        dm.键鼠_鼠标移动 (600, 600)
        dm.键鼠_鼠标左键_点击 ()
        延时 (1500)
        dm.键鼠_鼠标移动 (600, 600)
        dm.键鼠_鼠标左键_点击 ()
        延时 (1500)
        dm.键鼠_鼠标移动 (960, 450)
        dm.键鼠_鼠标左键_点击 ()
        延时 (1500)
        dm.键鼠_鼠标移动 (960, 450)
        dm.键鼠_鼠标左键_点击 ()
        延时 (1500)
        dm.键鼠_鼠标移动 (960, 450)
        dm.键鼠_鼠标左键_点击 ()
        延时 (1500)
        dm.键鼠_鼠标移动 (960, 450)
        dm.键鼠_鼠标左键_点击 ()
        延时 (1500)
        dm.键鼠_鼠标移动 (960, 450)
        dm.键鼠_鼠标左键_点击 ()
        延时 (1500)
        dm.键鼠_鼠标移动 (960, 450)
        dm.键鼠_鼠标左键_点击 ()
        延时 (1500)
        dm.键鼠_鼠标移动 (960, 450)
        dm.键鼠_鼠标左键_点击 ()
        延时 (1500)
        dm.键鼠_鼠标移动 (500, 35)
        dm.键鼠_鼠标左键_点击 ()
        延时 (1500)
        dm.键鼠_鼠标移动 (500, 35)
        dm.键鼠_鼠标左键_点击 ()
        延时 (1500)
        dm.键鼠_鼠标移动 (500, 35)
        dm.键鼠_鼠标左键_点击 ()
        延时 (1500)
        dm.键鼠_鼠标移动 (130, 150)
        dm.键鼠_鼠标左键_点击 ()
        延时 (1500)
        dm.键鼠_鼠标移动 (130, 150)
        dm.键鼠_鼠标左键_点击 ()
        延时 (8000)
        dm.键鼠_键盘按下 (#Esc键)
        延时 (1000)
        dm.键鼠_鼠标移动 (500, 390)
        dm.键鼠_鼠标左键_点击 ()
        延时 (15000)
    .如果真结束
.循环判断尾 (真)
.子程序 战斗
.局部变量 找图1, 文本型
.局部变量 找图2, 文本型
.局部变量 分割文本1, 文本型, , "0"
.局部变量 X, 整数型
.局部变量 Y, 整数型
.循环判断首 ()
    延时 (400)
    找图1 ＝ dm.图色_识图_易用_序号 (1, 60, 1007, 617, “生命.bmp”, “0”, 0.9, 0)
    .如果真 (到数值 (找图1) ≠ -1)
        延时 (200)
        线程_挂起 (线程1)
        .循环判断首 ()
            延时 (400)
            dm.键鼠_键盘按下 (#A键)
            延时 (500)
            dm.键鼠_键盘按下 (#S键)
            延时 (500)
            dm.键鼠_键盘按下 (#D键)
            .计次循环首 (5, )
                延时 (200)
                找图2 ＝ dm.图色_识图_易用_序号 (1, 60, 1007, 617, “生命.bmp”, “0”, 0.9, 0)
                分割文本1 ＝ 分割文本 (找图2, “|”, )
                X ＝ 到数值 (分割文本1 [2])
                Y ＝ 到数值 (分割文本1 [3])
                dm.键鼠_鼠标移动 (X, Y)
                延时 (200)
                dm.键鼠_鼠标右键_点击 ()
            .计次循环尾 ()
        .循环判断尾 (到数值 (找图2) ≠ -1)
        延时 (8000)
        线程_恢复 (线程1)
    .如果真结束
.循环判断尾 (真)
.子程序 监视
.局部变量 找图1, 文本型
.局部变量 找图2, 文本型
.局部变量 找图3, 文本型
.局部变量 找图4, 文本型
.局部变量 找图5, 文本型
.循环判断首 ()
    延时 (200)
    找图1 ＝ dm.图色_识图_易用_序号 (439, 411, 569, 448, “确定.bmp”, “0”, 0.7, 0)
    .如果真 (到数值 (找图1) ≠ -1)
        dm.键鼠_鼠标移动 (480, 430)
        dm.键鼠_鼠标左键_点击 ()
    .如果真结束
    延时 (200)
    找图2 ＝ dm.图色_识图_易用_序号 (458, 551, 550, 598, “复活.bmp”, “0”, 0.7, 0)
    .如果真 (到数值 (找图2) ≠ -1)
        dm.键鼠_鼠标移动 (500, 575)
        dm.键鼠_鼠标左键_点击 ()
    .如果真结束
    延时 (200)
    找图3 ＝ dm.图色_识图_易用_序号 (130, 265, 188, 303, “延续进度.bmp”, “0”, 0.7, 0)
    .如果真 (到数值 (找图3) ≠ -1)
        dm.键鼠_鼠标移动 (160, 270)
        延时 (1000)
        dm.键鼠_鼠标左键_点击 ()
    .如果真结束
    延时 (200)
    找图4 ＝ dm.图色_识图_易用_序号 (410, 348, 599, 380, “账号.bmp”, “0”, 0.7, 0)
    .如果真 (到数值 (找图4) ≠ -1)
        dm.键鼠_键盘按下 (#*键)
        dm.键鼠_键盘按下 (#*键)
        dm.键鼠_键盘按下 (#*键)
        dm.键鼠_键盘按下 (#*键)
        dm.键鼠_键盘按下 (#*键)
        dm.键鼠_键盘按下 (#*键)
        dm.键鼠_键盘按下 (#*键)
        dm.键鼠_键盘按下 (#*键)
        dm.键鼠_键盘按下 (#键*)
        dm.键鼠_键盘按下 (#键*)
        dm.键鼠_键盘按下 (#键*)
        dm.键鼠_键盘按下 (#键*)
        dm.键鼠_键盘按下 (#键*)
        dm.键鼠_键盘按下 (#键*)
        dm.键鼠_键盘按下 (#回车键)
    .如果真结束
    延时 (200)
    找图5 ＝ dm.图色_识图_易用_序号 (723, 13, 745, 66, “修装备.bmp”, “0”, 0.7, 0)
    .如果真 (到数值 (找图5) ≠ -1)
        强制结束线程 (线程1)
        延时 (2000)
        dm.键鼠_键盘按下 (#R键)
        延时 (12000)
        dm.键鼠_鼠标移动 (725, 165)
        dm.键鼠_鼠标左键_点击 ()
        延时 (2000)
        dm.键鼠_鼠标左键_点击 ()
        延时 (2000)
        dm.键鼠_鼠标左键_点击 ()
        延时 (2000)
        dm.键鼠_鼠标移动 (361, 302)
        延时 (1000)
        dm.键鼠_鼠标左键_点击 ()
        延时 (1000)
        dm.键鼠_鼠标左键_点击 ()
        延时 (1000)
        dm.键鼠_鼠标移动 (175, 360)
        延时 (1000)
        dm.键鼠_鼠标左键_点击 ()
        延时 (1000)
        dm.键鼠_键盘按下 (#Esc键)
        延时 (1000)
        dm.键鼠_键盘按下 (#Esc键)
        延时 (1000)
        dm.键鼠_鼠标移动 (500, 390)
        dm.键鼠_鼠标左键_点击 ()
        延时 (15000)
        线程_初始化COM ()
        线程1 ＝ 线程_启动 (&移动, )
    .如果真结束
.循环判断尾 (真)
.子程序 _按钮1_被单击
dm.窗口_解绑 ()
销毁 ()
.子程序 _按钮2_被单击

* 号是我们的密码 所以用*号表示 这是在第1章挂先祖墓穴的 其他地图的修改下移动路径 就可以了