大漠传奇自动打怪源码分享

abbys

Set dm = createobject("dm.dmsoft")

dm.Setpath "f:\tmp"
dm.setdict 0, "song9.txt"
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd, "normal", "normal", "normal", 0)
// 这里是找怪 的判断 注意血条要高亮 否则和怪血冲突
Rem 找怪
//判断 血色找到后跑过去
dm_ret = dm.FindColor(4,18,787,338,"ff0000-000000",1.0,4,intX,intY)
If intX > 0 And intY>0Then
dm.MoveTo intX+20 , intY+10
dm.RightDown
// 跑过去 调用打怪
Call 打怪()
Else
// 如果没找到 就随机跑动找怪
Call 跑动()
End If
// 这是捡东西子程序 注意要把不捡的不显示的通过内挂添加 以下是祖玛**类的装备捡取回收（回收具体在下边） 可以自己编辑下需要的
Sub 捡东西()
i=0
While i = 0
dm_ret = dm.FindStrFast(0,0,2000,2000,"骨玉|龙纹剑|泰坦|裁决|力量|紫碧螺|绿色|龙之|恶魔|三眼|骑士|精品|天下|**|法神|天尊|灵魂|","ff0000-000000|000ffff-000000|a5cbf7-000000|a5cbf7-000000",1,x1,y1)
If x1 >= 0 Then
dm. RightUp
dm.MoveTo x1+25,y1+8
dm.LeftClick
Delay 1000
Call 打怪()
Else
i=1
Call 回收()
Goto 找怪
End If
Wend
End Sub
// 打怪子程序 通过身边范围找怪当出现时 技能 F4 打怪 当身边怪消失了 开始捡东西
Sub 打怪()
i=2
While i=2
dm_ret = dm.FindColor(325, 102, 435, 189, "ff0000-000000", 1.0, 4, qX, qY)
If qX > 0 And qY>0Then
dm. RightUp
dm.MoveTo qX + 20, qY+ 20
Delay 800
dm.KeyPress 115
Else
i=1
Call 捡东西()
End If
Wend
End Sub
// 这是随机跑动的变量 不懂的可以看看官方教程 2D 那一集
Sub 跑动()
Randomize
n = Int(rnd * 7)
If n = 0 Then
dm.MoveTo 383,18
Delay 2000
dm.RightDown
Delay 2000
Goto 找怪
End if
If n = 1Then
dm.MoveTo 608,65
Delay 100
Delay 2000
dm.RightDown
Delay 1000
Goto 找怪
End If
If n = 2 Then
dm.MoveTo 718,193
Delay 100
Delay 2000
dm.RightDown
Delay 2000
Goto 找怪
End If
If n = 3 Then
dm. MoveTo 636,334
Delay 100
Delay 2000
dm.RightDown
Delay 2000
Goto 找怪
End If
If n = 4 Then
dm.MoveTo 391,348
Delay 100
Delay 2000
dm.RightDown
Delay 2000
Goto 找怪
End If
If n = 5 Then
dm. MoveTo 223,298
Delay 100
Delay 2000
dm.RightDown
Delay 2000
Goto 找怪
End If
If n = 6 Then
dm.MoveTo 143,190
Delay 100
Delay 2000
dm.RightDown
Delay 2000
Goto 找怪
End If
If n = 7 Then
dm.MoveTo 213,58
Delay 100
Delay 2000
dm.RightDown
Delay 2000
Goto 找怪
End if
Delay 10000
End Sub
// 下面的是回收的 如果不需要的话就把32 行调用回收去掉 毕竟每个和每个版本不同
Sub 回收()
Delay 1000
dm.KeyPress 13
Delay 1000
dm.KeyDown 17
dm.KeyPress 86
dm.KeyUp 17
Delay 1000
dm.KeyPress 13
Delay 1000
dm_ret =dm.FindStr(0, 0, 402, 182, "1", "ffff00-000000",1.0, x, y)
If x > 0 Then
dm.MoveTo x + 10, y + 5
Delay 500
dm.LeftClick
Delay 1000
dm.MoveTo 88, 122
Delay 500
dm.LeftClick
Delay 1000
dm.MoveTo 407, 13
Delay 500
dm.LeftClick
Delay 1000
End If
End Sub
// 释放
dm_ret = dm.UnBindWindow()




联系我时，请说是在 挂海论坛 上看到的，谢谢！

kpking

高手啊。~~看不明白。

huhui5008

这是按键精灵，拿来骗分？

wwx1314520

以前看帖从不回帖，后来发现， 这样不但会用掉我的海币， 而且还不厚道。