易语言魔兽世界怀旧服自动钓鱼源码

疫情期间，学习了一下易语言，写个自动钓鱼前台辅助，自己调了一个晚上，还可以。

视角要调到水平行

 

 

.版本 2
.支持库 dm

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 句柄, 整数型
.局部变量 绑定, 整数型
.局部变量 退出, 文本型

延时 (3000)
句柄 ＝ 窗口_大漠获取句柄 (“”, “魔兽世界”)
输出调试文本 (句柄)
绑定 ＝ 绑定窗口 (句柄, “normal”, “normal”, “normal”, 0)

输出调试文本 (绑定)
延时 (300)
' 启动线程 (&_时钟1_周期事件, , )

' 退出 ＝ 标准输入 ()
.' 判断循环首 (到整数 (退出) ≠ #V键)
    ' 钓鱼过程 ()
.' 判断循环尾 ()
钓鱼过程 ()

.子程序 钓鱼过程
.局部变量 返回坐标, 文本型
.局部变量 计次, 整数型
.局部变量 是否有声音, 逻辑型

DM.KeyPress (49)
延时 (3000)
' c4a279-000000|b49468-000000
' 返回坐标 ＝ DM.FindColorE (399, 97, 791, 591, “d4ad6b-000000|c1996b-000000”, 0.9, 0) ‘白天
返回坐标 ＝ DM.FindColorE (355, 9, 908, 588, “c4a279-000000|b49468-000000”, 0.9, 0)
输出调试文本 (“a:” ＋ 返回坐标)
延时 (300)

.如果真 (返回坐标 ≠ “-1|-1”)
    返回数组 ＝ 分割文本 (返回坐标, “|”, )
    DM.MoveTo (到整数 (返回数组 [1]), 到整数 (返回数组 [2]))

    延时 (10000)
    DM.RightClick ()
    延时 (1000)
    DM.KeyPress (#空格键)

    延时 (100)
    DM.MoveTo (0, 0)
    延时 (1000)

.如果真结束

钓鱼过程 ()

.子程序 钓到鱼
.局部变量 返回坐标, 文本型
.局部变量 返回坐标2, 文本型

返回坐标2 ＝ DM.FindColorE (587, 590, 762, 641, “00bf00-000000”, 1, 0)
.如果真 (返回坐标2 ＝ “-1|-1”)
    延时 (1000)

    DM.RightClick ()
    延时 (1000)
    DM.KeyPress (#空格键)
    延时 (1000)
    返回 ()
.如果真结束

返回坐标 ＝ DM.FindColorE (到整数 (返回数组 [1]) ＋ 10, 到整数 (返回数组 [2]) ＋ 20, 到整数 (返回数组 [1]) ＋ 30, 到整数 (返回数组 [2]) ＋ 50, “8ca7d2-000000|abc4f0-000000”, 0.9, 0)
.如果 (返回坐标 ≠ “-1|-1”)
    延时 (800)
    输出调试文本 (“b” ＋ 返回坐标)
    DM.RightClick ()
    延时 (1000)
    DM.KeyPress (#空格键)
    延时 (1000)
    DM.RightClick ()

.否则
    钓到鱼 ()
.如果结束

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

DM.UnBindWindow ()
_启动窗口.销毁 ()

.子程序 判断声音, 逻辑型
.局部变量 绑定, 整数型
.局部变量 返回坐标, 文本型

绑定 ＝ 绑定窗口 (声音句柄, “dx2”, “windows”, “windows”, 0)
返回坐标 ＝ DM.FindColorE (29, 122, 89, 271, “33c133-000000”, 1, 0)
输出调试文本 (“c:” ＋ 返回坐标)
延时 (300)
.如果 (返回坐标 ≠ “-1|-1”)
    返回 (假)
.否则
    返回 (真)
.如果结束

' DM.UnBindWindow ()
DM.SetWindowState (魔兽世界句柄, 1)
DM.LeftClick ()
延时 (300)

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

' 魔兽世界句柄 ＝ 窗口_大漠获取句柄 (“”, “魔兽世界”)
' 声音句柄 ＝ 窗口_大漠获取句柄 (“”, “音量”)
' 延时 (5000)
运行 (“regsvr32 ” ＋ 取运行目录 () ＋ “\dm.dll” ＋ “ -s”, 真, )