End If
	dm_ret = dm.FindStr(540,39,865,182,"传", "f2e88f-000000", 1.0, intX, intY)
    	If intX >= 0 and intY >= 0 Then
     dm.MoveTo intX , intY
     delay 100
	 dm.LeftDoubleClick
	Delay 2000
	Else 
	End If
	 dm_ret = dm.FindStr(825,238,1009,432, "回", "e5f2f2-000000", 1.0, intX, intY)
    	If intX >= 0 and intY >= 0 Then
     dm.MoveTo intX + 10, intY +20
     delay 100
	 dm.LeftDoubleClick
	Delay 15000
	Else 
	End If
	dm_ret = dm.FindStr(0, 0, 2000, 2000, "剧", "fdff3c-000000", 1.0, intX, intY)
		If intX >= 0 and intY >= 0 Then
     			dm.MoveTo intX , intY
     			delay 100
	 			dm.LeftDoubleClick
				Delay 1000
				Else 
				End If
				dm_ret = dm.FindStr(0, 0, 2000, 2000, "成", "f2e88f-000000", 1.0, intX, intY)
				If intX >= 0 and intY >= 0 Then
     			dm.MoveTo intX , intY
     			delay 100
	 			dm.LeftDoubleClick
				Delay 1000
				Else 
				call jieshou
				End If
				
	End Sub
	
	
	
		
	
	
	Sub qu
    dm_ret = dm.FindStr(825,238,1009,432, "去", "e5f2f2-000000", 1.0, intX, intY)
    	If intX >= 0 and intY >= 0 Then
     dm.MoveTo intX + 30, intY
     delay 100
	 dm.LeftDoubleClick
	Delay 15000
	Call juqing
	Else 
	End If
	End Sub
	
	Sub wang
    dm_ret = dm.FindStr(825,238,1009,432,"往", "e5f2f2-000000", 1.0, intX, intY)
    	If intX >= 0 and intY >= 0 Then
     dm.MoveTo intX + 30, intY
     delay 100
	 dm.LeftDoubleClick
	Delay 25000
	Call juqing
	Else 
	End If
	End Sub
		Sub xie
    dm_ret = dm.FindStr(825,238,1009,432, "些", "e5f2f2-000000", 1.0, intX, intY)
    	If intX >= 0 and intY >= 0 Then
     dm.MoveTo intX + 30, intY
     delay 100
	 dm.LeftDoubleClick
	Delay 1000
	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
	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
	Delay 200