资源描述:
《按键精灵[天龙八部]后台挂机源码》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、//===================================setdm=createobject("dm.dmsoft")TracePrintdm.Ver()dm_ret=dm.SetPath("C:DocumentsandSettingsAdministrator桌面按键天龙实验")//自行修改,不明白看了大漠你就懂了dm_ret=dm.SetDict(0,"C:DocumentsandSettingsAdministrator桌面按键天龙实验ziku_song9.txt")//自行
2、修改,不明白看了大漠你就懂了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"绑定失败"EndScript
3、EndIfi=0Dimfw,HP,MP,CHPDo//================找怪========================Rem继续找怪dm.keypress123RemAdm_ret=dm.CmpColor(441,20,"760c07-000000
4、0f7207-000000",0.9)//只打绿色和红色名的怪Ifdm_ret=0ThenCallF1技能ElseGoto继续找怪EndIfLoop//===============================F1===============SubF
5、1技能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.Ke
6、yDown118Delay100dm.KeyUp118Delay500EndIfEndSub//========================人物加蓝=====================Sub人物加蓝MP=Form1.MP.Textdm_ret=dm.CmpColor(67+139*(MP/100),44,"373737-000000",0.9)//百分百加血使用的是论坛某位前辈的例子,真是超级简单加好用Ifdm_ret=0Thendm.KeyDown119Delay500dm.KeyUp119Delay500E
7、ndIfEndSub//========================宠物加血=====================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*(
8、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+kd
9、m.MoveTox,yDelay40//LeftClick1mouse_tz=dm.GetCursorShape()Ifmouse_tz="6ea90254"Thendm.MoveTox,yDelay300dm.RightDownDelay200dm.RightDownDelay2000ExitsubEndIfNex