大话2脚本常用命令Word下载.docx

1、 If form1.物品栏4.Value = 1 Then 物品栏4.bmp,0.9,物品栏4X,物品栏4Y Call 移动点击（物品栏4X-2, 物品栏4Y-2） FindPic 37,327,346,388,飞行棋.bmp,0.9,飞X,飞Y If 飞X = 0 Then Call 移动右击（飞X + 3, 飞Y + 3） Else MessageBox 没有飞行棋了,快点去买吧 送 = dm.findpic（142,255,268,305,送我去.bmp,000000,0.8,0,送X,送Y） If 送X Delay 300 Call 移动点击（送X + 8, 送Y + 8）请在灵兽村做

2、好坐标再启动脚本 End Function完整版Global 攻击次数,开始去任务PutAttachment c:大话西游dm.dll*.txt.plugin, regdll.dll*.bmpCall Plugin.regdll.reg（大话西游dm.dll）Call 注册大漠（）Sub 注册大漠（） Set dm = createobject（dm.dmsoft dm_ret = dm.SetShowErrorMsg（0） if dm.ver（）= then RunApp regsvr32 c:大话西游dm.dll /s : If dm.ver（） = Then 创建对象失败，检查系统是否禁

3、用了vbs脚本权限 EndScriptEnd Subhwndex = dm.EnumWindow（0, 0, WSWINDOW, 2 + 4 + 8 + 16）TracePrint hwndexdm.SetPath dm.GetBasePath定义字库目录dm.SetDict 0, 大话西游dhxy.txtdm_ret = dm.SetPath（大话西游dm_ret = dm.SetWindowState（hwndex, 1）moshi = dm.bindwindow（hwndex, normal,0）TracePrint moshidm_ret = dm.GetClientSize（hwnd

4、ex, w, h）yidong = dm.MoveWindow（hwndex, 0, 0）Call 任务检查Call 主线程sub 主线程 Do If 开始去任务 = 1 Then Call 第二次查找_队伍 If 队友二x Delay 6000 Call 超级巫师 If 灵兽村X = 0 and 灵兽村Y Call 补血蓝 Call 宠物弹出对话框 Call 任务检查 Delay 100End subFunction 攻击任务 循环次数=0 Delay 200 Call 查找战斗状态 Call 查找_灵兽村 Call 取消任务 If 战斗状态X = 0 Then 法术攻击 = dm.Find

5、Pic（689,174,774,373,法术.bmp,0.8,0,法术攻击X,法术攻击Y） If 法术攻击X = 0 and 法术攻击y236 Then If form1.阎罗追命.Value = 1 or form1.魔神附身.value = 1 or form1.含情脉脉.value = 1 Then Call 移动点击（法术攻击X + 8, 法术攻击Y + 8） If form1.阎罗追命.Value = 1 Then Call 移动点击（527,221） If form1.魔神附身.value = 1 Then Call 移动点击（404,221） If form1.含情脉脉.valu

6、e = 1 Then Call 移动点击（286,221） If form1.物理攻击.value = 1 Then dm.KeyDown 18 dm.KeyPress 65 dm.KeyUp 18 Call 移动点击（231, 182） Call 移动点击（190,254） If 战斗状态x Call 移动点击（150, 328） Call 移动点击（110, 416） Call 移动点击（271,90） Call 移动点击（251,370） Call 移动点击（331,216） Call 移动点击（289,295） If 战斗状态 = 0 and 法术攻击二y 236 Then If fo

7、rm1.第四个技能.Value = 1 or form1.第三个技能.Value = 1 or form1.第二个技能.Value = 1 or form1.第一个技能.Value = 1 Then Call 移动点击（法术攻击二X + 8, 法术攻击二Y + 8） If form1.第四个技能.Value = 1 Then Call 移动点击（309, 187） If form1.第三个技能.Value = 1 Then Call 移动点击（309, 164） If form1.第二个技能.Value = 1 Then Call 移动点击（309, 140） If form1.第一个技能.V

8、alue = 1 Then Call 移动点击（309, 122） Call 移动点击（第二次x, 第二次y） If form1.宝宝物理攻击.value = 1 Then Function 自动攻击 自动 = dm.FindPic（719,469,793,503,自动攻击.bmp,0.8,0,自动X,自动Y） If 自动X Call 移动点击（自动X + 8, 自动Y + 8） 攻击次数=攻击次数+1 If 灵兽村x Call 超级巫医 Call 主线程Function 查看任务是否完成 经验 = dm.FindStr（205,0,582,544,经验f8fc00-101010,1.0,经验

9、X,经验Y）Function 超级巫医 dm.KeyPress 49 Call 移动点击（382, 304） Call 坐标检测 Call 查找_超级巫医Function 补血蓝 血 = dm.CmpColor（795,17,f86400-101010,0.9） If 血 Call 移动右击（795,17） 蓝 = dm.CmpColor（795,31,50fce8-101010 If 蓝 Call 移动右击（795,31） 召唤血 = dm.CmpColor（670,15,f88c18-101010 If 召唤血 Call 移动右击（670,15） 召唤蓝 = dm.CmpColor（669

10、,27,60fcf0-101010 If 召唤蓝 dm.moveto 巫医x+10,巫医y-40 dm.leftclick exit do 伤的厉害 = dm.FindStr（134,329,558,428,我的召唤兽宝贝伤得厉害f8fc00-000000|00fc00-000000,1.0,伤的厉害X,伤的厉害Y） If 伤的厉害x Call 移动点击（伤的厉害X + 8, 伤的厉害Y + 8） Call 主线程 Function 宠物弹出对话框 伤的厉害二 = dm.FindStr（134,329,558,428,1.0,伤的厉害二X,伤的厉害二Y） If 伤的厉害二x Call 移动点击

11、（伤的厉害二X + 8, 伤的厉害二Y + 8）Function 查找_灵兽村 灵兽村 = dm.FindStr（0,0,142,27,灵兽村f8fcf8-101010|ffffff-101010,1.0,灵兽村X,灵兽村Y）Function 查找战斗状态 战斗状态 = dm.FindMultiColor（0,0,130,55,d2fff6-101010|dbfff6-101010|d8fcf0-1010100|1|d2fff6-101010|dbfff6-101010|d8fcf0-101010,1|36|d2fff6-101010|dbfff6-101010|d8fcf0-101010,7

12、3|11|d2fff6-101010|dbfff6-101010|d8fcf0-101010,56|23|d2fff6-101010|dbfff6-101010|d8fcf0-101010,75|23|d2fff6-101010|dbfff6-101010|d8fcf0-101010,50|35|d2fff6-101010|dbfff6-101010|d8fcf0-101010,83|35|d2fff6-101010|dbfff6-101010|d8fcf0-101010,1.0,1,战斗状态X,战斗状态Y）Function 收起任务列表 Rem 打开任务 dm.KeyPress 81 For

13、 5 Call 移动点击（359,165） Next For 10 dm_ret = dm.FindPic（148,158,196,452,收起任务二.bmp|收起任务.bmp|收起任务三.bmp,0.9,0,intX,intY） If intX = 0 and intY TracePrint 找到图片 打开次数=1 dm.moveto intX + 4, intY + 4 Delay 50 If 打开次数 Call 移动点击（常规玩法x + 8, 常规玩法y + 8） dm.moveto 0,0 修罗任务表 = dm.FindPic（147,156,352,449,修罗任务表.bmp,0.8

14、,0,修罗任务表X,修罗任务表Y）修罗&修罗任务表 If 修罗任务表X Call 移动点击（修罗任务表x +8, 修罗任务表y + 8） 任务失败 = dm.FindStr（371,156,648,294,你的任务已经失败,1.0,任务失败X,任务失败Y） If 任务失败x Call 移动点击（常规玩法x + 439, 常规玩法y + 284） 确认取消 = dm.FindStr（113,222,351,335,确定00fc00-101010,1.0,确认取消X,确认取消Y） If 确认取消x Call 移动点击（确认取消x + 8, 确认取消y + 8） Call 申请组对Function

15、申请组对 Call 移动点击（542, 557） 附近队伍 = dm.FindPic（479,443,602,541,附近队伍.bmp,0.8,0,附近队伍X,附近队伍Y） If 附近队伍X = 0 and 附近队伍Y Call 移动点击（附近队伍X, 附近队伍Y） Rem 组对 申请 = dm.FindStrEx（437,122,528,450,申请f8fcf8-000000,1.0） TracePrint 申请 If len（申请） 0 Then ss = split（申请,| index = 0 count = UBound（ss） + 1 Do While index count Tr

16、acePrint ss（index） sss = split（ss（index）, id = int（sss（0） x = int（sss（1） y = int（sss（2） dm.MoveTo x, y dm.leftclick Delay 800 index = index + 1 TracePrint count If index = count Then 叉 = dm.FindPic（518,70,565,112,叉.bmp|叉二.bmp|叉三.bmp,0.8,0,叉X,叉Y）叉:叉x&叉Y Call 移动点击（叉X, 叉Y） Call 查找队伍 exit do For 2 Delay

17、 3000 Call 移动点击（396, 471） Goto 组对Function 查找队伍 队友 = dm.FindMultiColor（311,0,563,51,0|1|d2fff6-101010|dbfff6-101010|d8fcf0-101010,1|0|d2fff6-101010|dbfff6-101010|d8fcf0-101010,0|41|d2fff6-101010|dbfff6-101010|d8fcf0-101010,0|42|d2fff6-101010|dbfff6-101010|d8fcf0-101010,1|42|d2fff6-101010|dbfff6-101010|d8fcf0-101010,42