疫情期間，學(xué)習(xí)了一下易語(yǔ)言，寫(xiě)個(gè)自動(dòng)釣魚(yú)前臺(tái)輔助，自己調(diào)了一個(gè)晚上，還可以。

視角要調(diào)到水平行

?

?

.版本 2
.支持庫(kù) dm

.程序集 窗口程序集_啟動(dòng)窗口

.子程序 _按鈕1_被單擊
.局部變量 句柄, 整數(shù)型
.局部變量 綁定, 整數(shù)型
.局部變量 退出, 文本型

延時(shí) (3000)
句柄 ＝ 窗口_大漠獲取句柄 (“”, “魔獸世界”)
輸出調(diào)試文本 (句柄)
綁定 ＝ 綁定窗口 (句柄, “normal”, “normal”, “normal”, 0)

輸出調(diào)試文本 (綁定)
延時(shí) (300)
' 啟動(dòng)線程 (&_時(shí)鐘1_周期事件, , )

' 退出 ＝ 標(biāo)準(zhǔn)輸入 ()
.' 判斷循環(huán)首 (到整數(shù) (退出) ≠ #V鍵)
? ? ' 釣魚(yú)過(guò)程 ()
.' 判斷循環(huán)尾 ()
釣魚(yú)過(guò)程 ()

.子程序 釣魚(yú)過(guò)程
.局部變量 返回坐標(biāo), 文本型
.局部變量 計(jì)次, 整數(shù)型
.局部變量 是否有聲音, 邏輯型

DM.KeyPress (49)
延時(shí) (3000)
' c4a279-000000|b49468-000000
' 返回坐標(biāo) ＝ DM.FindColorE (399, 97, 791, 591, “d4ad6b-000000|c1996b-000000”, 0.9, 0) ‘白天
返回坐標(biāo) ＝ DM.FindColorE (355, 9, 908, 588, “c4a279-000000|b49468-000000”, 0.9, 0)
輸出調(diào)試文本 (“a:” ＋ 返回坐標(biāo))
延時(shí) (300)

.如果真 (返回坐標(biāo) ≠ “-1|-1”)
? ? 返回?cái)?shù)組 ＝ 分割文本 (返回坐標(biāo), “|”, )
? ? DM.MoveTo (到整數(shù) (返回?cái)?shù)組 [1]), 到整數(shù) (返回?cái)?shù)組 [2]))

? ? 延時(shí) (10000)
? ? DM.RightClick ()
? ? 延時(shí) (1000)
? ? DM.KeyPress (#空格鍵)

? ? 延時(shí) (100)
? ? DM.MoveTo (0, 0)
? ? 延時(shí) (1000)

.如果真結(jié)束

釣魚(yú)過(guò)程 ()

.子程序 釣到魚(yú)
.局部變量 返回坐標(biāo), 文本型
.局部變量 返回坐標(biāo)2, 文本型

返回坐標(biāo)2 ＝ DM.FindColorE (587, 590, 762, 641, “00bf00-000000”, 1, 0)
.如果真 (返回坐標(biāo)2 ＝ “-1|-1”)
? ? 延時(shí) (1000)

? ? DM.RightClick ()
? ? 延時(shí) (1000)
? ? DM.KeyPress (#空格鍵)
? ? 延時(shí) (1000)
? ? 返回 ()
.如果真結(jié)束

返回坐標(biāo) ＝ DM.FindColorE (到整數(shù) (返回?cái)?shù)組 [1]) ＋ 10, 到整數(shù) (返回?cái)?shù)組 [2]) ＋ 20, 到整數(shù) (返回?cái)?shù)組 [1]) ＋ 30, 到整數(shù) (返回?cái)?shù)組 [2]) ＋ 50, “8ca7d2-000000|abc4f0-000000”, 0.9, 0)
.如果 (返回坐標(biāo) ≠ “-1|-1”)
? ? 延時(shí) (800)
? ? 輸出調(diào)試文本 (“b” ＋ 返回坐標(biāo))
? ? DM.RightClick ()
? ? 延時(shí) (1000)
? ? DM.KeyPress (#空格鍵)
? ? 延時(shí) (1000)
? ? DM.RightClick ()

.否則
? ? 釣到魚(yú) ()
.如果結(jié)束

.子程序 _按鈕2_被單擊

DM.UnBindWindow ()
_啟動(dòng)窗口.銷(xiāo)毀 ()

.子程序 判斷聲音, 邏輯型
.局部變量 綁定, 整數(shù)型
.局部變量 返回坐標(biāo), 文本型

綁定 ＝ 綁定窗口 (聲音句柄, “dx2”, “windows”, “windows”, 0)
返回坐標(biāo) ＝ DM.FindColorE (29, 122, 89, 271, “33c133-000000”, 1, 0)
輸出調(diào)試文本 (“c:” ＋ 返回坐標(biāo))
延時(shí) (300)
.如果 (返回坐標(biāo) ≠ “-1|-1”)
? ? 返回 (假)
.否則
? ? 返回 (真)
.如果結(jié)束

' DM.UnBindWindow ()
DM.SetWindowState (魔獸世界句柄, 1)
DM.LeftClick ()
延時(shí) (300)

.子程序 __啟動(dòng)窗口_創(chuàng)建完畢

' 魔獸世界句柄 ＝ 窗口_大漠獲取句柄 (“”, “魔獸世界”)
' 聲音句柄 ＝ 窗口_大漠獲取句柄 (“”, “音量”)
' 延時(shí) (5000)
運(yùn)行 (“regsvr32 ” ＋ 取運(yùn)行目錄 () ＋ “\dm.dll” ＋ “ -s”, 真, )

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。