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

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

视角要调到水平行

 

 

.版本 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:” ＋ 返回坐标)
延时 (3