疫情期間，學習了一下易語言，寫個自動釣魚前臺輔助，自己調了一個晚上，還可以。

視角要調到水平行

?

?

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

總結

以上是生活随笔為你收集整理的易语言魔兽世界怀旧服自动钓鱼源码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。