dm.KeyPress 88
Delay 150
dm.KeyPress 88
Delay 150
dm.KeyPress 88
Delay 150
dm.KeyPress 88
Delay 150

dm.MoveTo 356, 454 //回城
  
Delay 100
dm.LeftClick 
Delay 100

dm.MoveTo 316, 396
Delay 100

dm.LeftClick 
Delay 2000
Call 刷人偶()
End Sub

Sub 疲劳()
	dm.MoveTo 319, 438
Delay 50
dm_PL = dm.Ocr(321, 389, 341, 405, "ffffff-000000", 1.0)
dm_pl = clng(Abs(dm_pl))
If dm_pl <= 0 Then 
	
End If
End Sub