PutAttachment "D:\temp" ,"*.*" PutAttachment ".\Plugin", "RegDll.dll" Call Plugin.RegDll.Reg("D:\temp\dm.dll") '注册大漠插件dm.dll set dm = createobject("dm.dmsoft") '创建大漠插件对象 dm.Setpath "D:\temp" '设置大漠插件文件夹的路径 dm.SetDict 0, "演义三国.txt"'自定义游戏字符串字库 hwnd = dm.GetMousePointWindow() dm_ret = dm.GetClientSize(hwnd, w, h) dm_ret = dm.BindWindow(hwnd,"normal","dx","windows",0) Delay 1000 Dim Pass Sub 打开演义目标() Rem 等待_关闭 dm_ret = dm.FindPic(0,0,w,h,"关闭图标.bmp","000000",0.9,0,intX,intY) If intX >= 0 and intY >= 0 Then dm.moveTo intX + 8, intY + 8 Delay 100 dm.LeftClick Delay 250 Goto 等待_关闭 End If dm_ret = dm.FindStr(0,0,w,h,"魏|蜀|吴","ffffff-000000",1.0,intX,intY) If intX >= 0 and intY >= 0 Then dm.moveTo intX + 30, intY + 44 Delay 100 dm.LeftClick Delay 250 End If Rem 等待_界面 dm_ret = dm.FindStr(0,0,w,h,"演义目标","fee858-000000",1.0,intX,intY) If intX >= 0 and intY >= 0 Then 'pass = "余党据点"'变量处理 Delay 250 Call 刷卡选择() Else Delay 200 Goto 等待_界面 End If End Sub Sub 刷卡选择() Call 演义关卡() Delay 100 dm.moveTo int(w / 2), int(h / 2) Delay 250 '==========张角军==================================== If pass = "张角军" Then Rem 翻卷拉条1 dm_ret = dm.FindPic(0,0,w,h,"张角军.bmp","000000",0.9,0,intX,intY) If intX >= 0 and intY >= 0 Then dm.MoveTo intX + 10, intY + 5 Delay 100 dm.LeftClick Else dm.WheelDown Delay 250 Goto 翻卷拉条1 End If End If '==========张角军==================================== Rem 翻卷拉条 dm_ret = dm.FindStr(0,0,w,h,pass,"00d7ff-000000",1.0,intX,intY) If intX >= 0 and intY >= 0 Then dm.MoveTo intX + 10, intY + 5 Delay 100 dm.LeftClick Else dm.WheelDown Delay 250 Goto 翻卷拉条 End If End Sub Sub 演义关卡() If pass = "黄龙军" or pass = "裴元绍军" or pass = "程远志军" or pass = "张梁军" or pass = "何仪军" or pass = "张角军" Then p = "汉室余晖" dm_ret = dm.FindStr(0,0,w,h,p,"fdf8c3-000000",1.0,intX,intY) If intX >= 0 and intY >= 0 Then dm.MoveTo intX + 10, intY + 5 Delay 100 dm.LeftClick End If Exit Sub ElseIf pass = "徐荣军" or pass = "李肃军" or pass = "华雄军" or pass = "郭汜近卫军" or pass = "李儒军" or pass = "潘凤营寨" or pass = "华雄营寨" or pass = "曹性部队" or pass = "轻骑兵" or pass = "陈宫谋阵" or pass = "天道大营" or pass = "公孙瓒营地" or pass = "袁术主队" or pass = "袁术后军" or pass = "公孙大帐" or pass = "西凉军寨" or pass = "马腾主帐" or pass = "北海守军" or pass = "荆州中阵" or pass = "东吴老将宫" or pass = "杜康仙庄" or pass = "洛阳书院" or pass = "洛阳宫殿" or pass = "貂蝉军" or pass = "吕布军" or pass = "董卓军" or pass = "虎豹大帐" or pass = "吕布大寨" or pass = "曹军突击团" or pass = "曹军坚兵营" or pass = "许褚军" or pass = "曹操主帐" or pass = "赵云护卫营" or pass = "孙策亲卫军" or pass = "千唐志斋" Then p = "讨伐董卓" dm_ret = dm.FindStr(0,0,w,h,p,"fdf8c3-000000",1.0,intX,intY) If intX >= 0 and intY >= 0 Then dm.MoveTo intX + 10, intY + 5 Delay 100 dm.LeftClick End If Exit Sub ElseIf pass = "颜良文丑营" or pass = "袁绍先锋" or pass = "袁军谋士营" or pass = "乌巢粮屯" or pass = "袁军中军" or pass = "袁军左翼" or pass = "袁军右翼" or pass = "山贼营地" or pass = "洛阳城" or pass = "袁绍残部" or pass = "周仓山寨" or pass = "桃花源" or pass = "天山阁" or pass = "仙山府" or pass = "粮仓护卫" or pass = "粮仓救援军" or pass = "袁守大寨" or pass = "张郃重军" or pass = "西凉中军" or pass = "军锋大寨" or pass = "战马中城" or pass = "西凉主帐" or pass = "张勋军" or pass = "重兵纪灵军" or pass = "袁术主帐" or pass = "皇宫" or pass = "袁绍大营" or pass = "关羽营地" or pass = "曹军追兵营" or pass = "黑山中阵" or pass = "袁绍救援军" or pass = "相思林" or pass = "美人关" or pass = "望夫崖" or pass = "离魂境" or pass = "锁妖塔" or pass = "七巧潭" or pass = "流沙河" or pass = "忘云阁" or pass = "三生石" or pass = "铜雀台" or pass = "凤仪亭" or pass = "吕布军中帐" or pass = "董卓亲卫营" or pass = "董卓军主帐" Then p = "群雄并起" dm_ret = dm.FindStr(0,0,w,h,p,"fdf8c3-000000",1.0,intX,intY) If intX >= 0 and intY >= 0 Then dm.MoveTo intX + 10, intY + 5 Delay 100 dm.LeftClick