Delay 200 Do m_ret = dm.FindStr(0,0,2000,2000,"确认关闭分解商店吗","ffffff-000000",1.0,intX,intY) If intX >= 0 and intY >= 0 Then Delay 200 dm. MoveTo intX+50,intY+35 Delay 1000 dm.LeftDoubleClick Delay 500 dm.KeyPress 27 Exit Do End If Loop //按下=============================== Delay 200 dm.KeyDown 40 Delay 300 dm.KeyUp 40 //按上=============================== dm.KeyDown 38 Delay 700 dm.KeyUp 38 Next //按上=============================== dm.KeyDown 38 Delay 100 dm.KeyUp 38 //按下=============================== Delay 200 dm.KeyDown 40 Delay 1000 dm.KeyUp 40 //按左=============================== // Rem 找分解修理 dm_ret = dm.FindPic(5,55,637,270,"赛利亚7.bmp","000000",0.9,0,intX,intY) If intX >= 0 and intY >= 0 Then dm.KeyUp 37 Delay 100 dm.MoveTo intX + 70, intY + 140 Delay 100 dm.LeftClick Else Delay 100 dm.KeyDown 37 Delay 100 Goto 找分解修理 End If Rem 找分解 dm_ret = dm.FindPic(5,207,534,423,"赛利亚8.bmp","000000",0.9,0,intX,intY) If intX >= 0 and intY >= 0 Then Delay 200 dm. MoveTo intX , intY + 115 Delay 200 dm.LeftClick Delay 200 dm.LeftClick Delay 200 dm.KeyPress 27 Else Goto 找分解 End If Rem 回仓库 Delay 20 dm_ret = dm.FindPic(317,93,639,296,"赛利亚9.bmp","000000",0.9,0,intX,intY) If intX >= 0 and intY >= 0 Then dm.KeyUp 39 Delay 500 Else dm.KeyDown 39 Delay 20 Goto 回仓库 End If Do dm_ret = dm.FindPic(0,0,2000,2000,"赛利亚.bmp","000000",0.9,0,intX,intY) If intX >= 0 and intY >= 0 Then dm.KeyUp 38 Delay 50 Exit Do Else dm.KeyDown 38