按键精灵[天龙八部]后台挂机源码.docxVIP

//=================================== set dm = createobject(dm.dmsoft) TracePrint dm.Ver() dm_ret = dm.SetPath (C:\Documents and Settings\Administrator\桌面\按键\天龙实验) //自行修改，不明白看了大漠你就懂了 dm_ret = dm.SetDict(0, C:\Documents and Settings\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) //这个地方是遇到纠结的最多的地方，新手可能会有感触哈。 Delay 1000 If dm_ret = 0 Then MessageBox 绑定失败 EndScript End If i = 0 Dim fw, HP, MP, CHP Do //================找怪======================== Rem 继续找怪 dm.keypress 123 Rem A dm_ret = dm.CmpColor(441,20,760c07-000000|0f7207-000000,0.9) //只打绿色和红色名的怪 If dm_ret = 0 Then Call F1技能 Else Goto 继续找怪 End If Loop //===============================F1=============== Sub F1技能 dm.keypress 112 dm.keypress 113 Call 杀死再换 Call 防卡 Call 人物加血 Call 人物加蓝 Call 宠物加血 Call 捡包 Call 挂机检测 Call 返回挂机点 goto 继续找怪 End Sub //======================人物加血====================== Sub 人物加血 HP=Form1.HP.Text //输入框相关 dm_ret = dm.CmpColor(67+139*(HP/100),35,373737-000000,0.9) If dm_ret = 0 Then dm.KeyDown 118 Delay 100 dm.KeyUp 118 Delay 500 End If End Sub //========================人物加蓝===================== Sub 人物加蓝 MP=Form1.MP.Text dm_ret = dm.CmpColor(67+139*(MP/100),44,373737-000000,0.9) //百分百加血使用的是论坛某位前辈的例子，真是超级简单加好用 If dm_ret = 0 Then dm.KeyDown 119 Delay 500 dm.KeyUp 119 Delay 500 End If End Sub //========================宠物加血===================== Sub 宠物加血 //========自动出战============== If Form1.CheckBox6.Value = 1 Then dm_ret = dm.Cmp