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

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

视角要调到水平行

.版本 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”, 真, )