Sub 商帮出城() Rem 寻路 //打开自动寻路窗口 dm.KeyDown 18 dm.KeyPress 192 dm.KeyUp 18 Delay 500 //查找“坐标”字位置并输入移动位置100.156 dm_ret = dm.FindStr(400, 100, 800, 600,"坐标","fff263-181008",1.0,intX,intY) Delay 200 If intX > 0 and intY > 0 Then dm.MoveTo intX + 42,intY + 6 Delay 200 dm.LeftClick Delay 200 //SayString "100" dm.SendString DYCK,"100" Delay 200 dm.keypress 13 Delay 200 //SayString "156" dm.SendString DYCK,"156" Delay 200 //移动鼠标到“移动”单击 dm.keypress 13 Delay 200 Else Goto 寻路 End If //跑路延时 Delay 5000 //判断是否出城 While intX > 0 and intY > 0 dm.MoveTo intX + 128, intY + 7 Delay 200 dm.LeftClick Delay 5000 dm_ret = dm.FindStr(400, 100, 800, 600,"坐标","fff263-181008",1.0,intX,intY) Delay 200 Wend End Sub //====================返回己方城市脚本====================== Sub 返回己方帮派() Rem 返回帮派寻路 //打开自动寻路窗口 dm.KeyDown 18 dm.KeyPress 192 dm.KeyUp 18 Delay 500 //判断是否打开自动寻路 dm_ret = dm.FindStr(400, 100, 800, 600,"坐标","fff263-181008",1.0,intX,intY) Delay 100 If intX > 0 and intY > 0 Then Delay 200 Else Goto 返回帮派寻路 End If //查找指定区域内所有字符串是否含有地图标志人物名称或怪物 //赋值当前地图为map dm_ret = dm.FindPic(400, 100, 800, 600, "自动寻路.bmp","000000",0.9,0,intX,intY) Dim x1 Dim x2 Dim y1 Dim y2 x1 = intX y1 = intY + 153 x2 = intX + 85 y2 = intY + 167 s = dm.Ocr(x1,y1,x2,y2,"ffffff-1b1008", 1.0) Delay 200 VBSBegin Select Case s Case "白堤柳鬼" map = "西湖" Case "童贯" map = "洛阳" Case "金钱豹" map = "雁南" Case "阿林" map = "草原" Case "阿史那默谷" map = "辽西" Case "纥石烈阿疏" map = "长白山" Case "大黑熊" map = "黄龙府" Case "韦大叔" map = "苏州" Case "程青霜" map = "大理" Case "打草谷辽兵" map = "雁北" Case "江湖游医" map = "嵩山" Case "许愿树"