//===================================setdm=createobject("dm.dmsoft")TracePrintdm.Ver()dm_ret=dm.SetPath("C:\DocumentsandSettings\Administrator\桌面\按键\天龙实验")//自行修改，不明白看了大漠你就懂了dm_ret=dm.SetDict(0,"C:\DocumentsandSettings\Administrator\桌面\按键\天龙实验\ziku_song9.txt")//自行修改，不明白看了大漠你就懂了hwnd=dm.EnumWindow(0,"《天龙八部3》","",1+4+8+16)dm_ret=dm.SetWindowState(hwnd,12)dm_ret=dm.SetWindowSize(hwnd,1030,728)dm_ret=dm.BindWindow(hwnd,"dx","dx.mouse.state.api","dx",0)//这个地方是遇到纠结的最多的地方，新手可能会有感触哈。Delay1000Ifdm_ret=0ThenMessageBox"绑定失败"EndScriptEndIfi=0Dimfw,HP,MP,CHPDo//================找怪========================Rem继续找怪dm.keypress123RemAdm_ret=dm.CmpColor(441,20,"760c07-000000|0f7207-000000",0.9)//只打绿色和红色名的怪Ifdm_ret=0ThenCallF1技能ElseGoto继续找怪EndIfLoop//===============================F1===============SubF1技能dm.keypress112dm.keypress113Call杀死再换Call防卡Call人物加血Call人物加蓝Call宠物加血Call捡包Call挂机检测Call返回挂机点goto继续找怪EndSub//======================人物加血======================Sub人物加血HP=Form1.HP.Text//输入框相关dm_ret=dm.CmpColor(67+139*(HP/100),35,"373737-000000",0.9)Ifdm_ret=0Thendm.KeyDown118Delay100dm.KeyUp118Delay500EndIfEndSub//========================人物加蓝=====================Sub人物加蓝MP=Form1.MP.Textdm_ret=dm.CmpColor(67+139*(MP/100),44,"373737-000000",0.9)//百分百加血使用的是论坛某位前辈的例子，真是超级简单加好用Ifdm_ret=0Thendm.KeyDown119Delay500dm.KeyUp119Delay500EndIfEndSub//========================宠物加血=====================Sub宠物加血//========自动出战==============IfForm1.CheckBox6.Value=1Thendm_ret=dm.CmpColor(115,84,"d90a00-000000",0.9)//判断宠物死亡，死亡自动出战Ifdm_ret=1ThenCall召唤暂停EndIfEndIfCHP=Form1.CHP.Textdm_ret=dm.CmpColor(115+94*(CHP/100),84,"242424-000000",0.9)Ifdm_ret=0Thendm.KeyDown120Delay500dm.KeyUp120Delay1000EndIfEndSub//=====================效率太低，没测试====================Sub捡包//例子：Calllib.网游.方形渐开线(400,300,20,20)Dimx,y,v,i,j,kx=513:y=337//设置2点间距离v=10i=1For30j=0:k=vFor2Forix=x+j:y=y+kdm.MoveTox,yDelay40//LeftClick1mouse_tz=dm.GetCursorShape()Ifmouse_tz="6ea90254"Thendm.MoveTox,yDelay300dm.RightDownDelay200dm.RightDownDelay2000ExitsubEndIfNextj=v:k=0Nexti=i+1:v=v*(-1)NextEndSubSub杀死再换//杀死一个换一个···比较实用，去掉这段就是快速杀怪，打一下换一个IfForm1.CheckBox5.Value=1Thendm_ret=dm.CmpColor(277,36,"d90a00-000000",0.9)//判断怪有没有死亡，死亡继续找怪Ifdm_ret=1ThenExitSubElseGotoAEndIfEndIfEndSub//=======================================================================Sub召唤暂停//这个子程序的目的其实可以不要，但是为了提高BB出战的准确率，我加了个这个东西，必须召唤出来了才继续杀怪，不然切怪得速度太快，召唤不出来Dodm.keypress121//BB出战快捷键Delay1000dm_ret=dm.CmpColor(115,84,"d90a00-000000",0.9)//判断召唤是否成功Ifdm_ret=0ThenExitSubEndIfloopEndSub//=================================防卡===================================Sub防卡//这个防卡其实是为了在特殊地形远程人物攻击会卡，无效等情况，攻击之后不减血，立即换怪IfForm1.CheckBox1.Value=1ThenDelay500i=i+1Ifi>2Thendm_ret=dm.CmpColor(451,36,"d90a00-000000",0.9)Ifdm_ret=0ThenGoto继续找怪EndIfEndIfEndIfEndSub//===============================捡包====================================Sub捡包//说实话3D找色来找包，成功率真的很低。不建议使用dm_ret=dm.FindColor(0,0,2...