dm.MoveTo intX+80 , intY
     			delay 100
	 			dm.LeftDoubleClick
				Delay 2000
				dm.keydown 9
				Delay 200
				dm.keydown 49
				Delay 200
				dm.keydown 50
				Delay 200
				dm.keydown 51
				Delay 200
				dm.keydown 49
				Delay 200
				dm.keydown 50
				Delay 200
				dm.keydown 51
				Delay 200
				Else 
				End If
				
				
    		End Sub
sub zhong
dm_ret = dm.FindStr(15,195,170,324, "6", "ffa000-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then
     			dm.MoveTo intX , intY
     			delay 100
	 			dm.LeftDoubleClick
				Delay 100
				Else 
				End If
				Delay 1000
				dm_ret = dm.FindStr(11,205,183,304, "务", "ffa000-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then
     			dm.MoveTo intX , intY
     			delay 100
	 			dm.LeftDoubleClick
				Delay 1000
				dm.MoveTo intX, intY + 10
				Delay 100
				dm.LeftDoubleClick
				Else 
				End If
				call wancheng
				
				
End Sub
Sub shaguai
	dm_ret = dm.FindStr(0, 0, 2000, 2000, "杀", "e5f2f2-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then
     			dm.MoveTo intX+80 , intY
     			delay 100
	 			dm.LeftDoubleClick
				Delay 2000
				dm.keydown 9
				Delay 200
				dm.keydown 49
				Delay 200
				dm.keydown 50
				Delay 200
				dm.keydown 51
				Delay 200
				dm.keydown 49
				Delay 200
				dm.keydown 50
				Delay 200
				dm.keydown 51
				Delay 200
				dm.keydown 49
				Delay 200
				dm.keydown 50
				Delay 200
				dm.keydown 51
				Delay 200
				dm.keydown 49
				Delay 200
				dm.keydown 50
				Delay 200
				dm.keydown 51
				Delay 200
				dm.keydown 49
				Delay 200
				dm.keydown 50
				Delay 200
				dm.keydown 51
				Delay 200
				dm.keydown 49
				Delay 200
				dm.keydown 50
				Delay 200
				dm.keydown 51
				Delay 200
				dm.keydown 49
				Delay 200
				dm.keydown 50
				Delay 200
				dm.keydown 51
				Delay 200
				dm.keydown 49