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 20000
	Else 
	End If
	End Sub
		Sub caiji
    dm_ret = dm.FindStr(825,238,1009,432,"采", "e5f2f2-000000", 1.0, intX, intY)
    	If intX >= 0 and intY >= 0 Then
     dm.MoveTo intX + 60, intY
     delay 100
	 dm.LeftDoubleClick
	Delay 20000
	Call juqing
	Else 
	End If
	End Sub
	
			
			Sub juqing
		
				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
				End Sub
			Sub wancheng
				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 100
				Else 
				call jieshou
				End If
				End Sub
    			
    		Sub jieshou
    			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 100
				Else 
				End If
    		End Sub
    		Sub goumai
    			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.LeftClick
				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.LeftClick
				Delay 100
				Else 
				End If
    		End Sub
    		
    		
    		Sub dati
    			dm_ret = dm.FindStr(1,0,2000,2000, "要", "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(0, 0, 2000, 2000, "未", "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