dm.RightClick
Delay 50
dm.MoveTo X + 36 , Y + 36
Delay 50
dm.RightClick
Delay 50
dm.MoveTo X + 72 , Y + 36
Delay 50
dm.RightClick
Delay 50
dm.MoveTo X + 108 , Y + 36
Delay 50
dm.RightClick
Delay 50
dm.MoveTo X + 144 , Y + 36
Delay 50
dm.RightClick
Delay 50
dm.MoveTo X , Y + 72
Delay 50
dm.RightClick
Delay 50
dm.MoveTo X +36 , Y + 72
Delay 50
dm.RightClick
Delay 50
dm.MoveTo X +72 , Y + 72
Delay 50
dm.RightClick
Delay 50
dm.MoveTo X +108 , Y + 72
Delay 50
dm.RightClick
Delay 50
dm.MoveTo X +144 , Y + 72
Delay 50
dm.RightClick
Delay 50
dm.MoveTo X , Y + 108
Delay 50
dm.RightClick
Delay 50
dm.MoveTo X +36 , Y + 108
Delay 50
dm.RightClick
Delay 50
dm.MoveTo X +72 , Y + 108
Delay 50
dm.RightClick
Delay 50
dm.MoveTo X +108 , Y + 108
Delay 50
dm.RightClick
Delay 50
dm.MoveTo X +144 , Y + 108
Delay 50
dm.RightClick
Delay 50
dm.MoveTo X , Y + 144
Delay 50
dm.RightClick
Delay 50
dm.MoveTo X + 36 , Y + 144
Delay 50
dm.RightClick
Delay 50
dm.MoveTo X + 72 , Y + 144
Delay 50
dm.RightClick
Delay 50
dm.MoveTo X + 108 , Y + 144
Delay 50
dm.RightClick
Delay 50
dm.MoveTo X + 144 , Y + 144
Delay 50
dm.RightClick
Delay 50
//ESC 一次
Delay 200
dm.KeyPress 27
Delay 500
End Sub
//====================交还影票脚本======================
Sub 交还银票()
Call 找财政官员()
Delay 100
//交还银票
Rem 交还银票
dm_ret = dm.FindStr(10, 100, 400, 600,"交还银票","ffd555-000000",1.0,intX,intY)
If intX > 0 and intY > 0 Then
dm.MoveTo intX + 15, intY + 8
Delay 100
dm.LeftClick
Delay 100
dm.LeftClick