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