loop  While 7 = 7
    Delay 500
    dm.MoveTo intX, intY+119
    dm.LeftClick 
    Delay 200
    dm.MoveTo 112,394
    Delay 500
    dm.LeftClick 
    Delay 500
    dm.MoveTo 624,527
    Delay 500
    dm.LeftClick  

End Sub

Sub 去做任务
    dm.Moveto 785,328
    dm.LeftClick
    Delay 400
    dm.LeftClick
    Delay 400
    dm.LeftClick
    Delay 400
    dm.LeftClick
    Delay 400
    Call 是动是静

    Call 做任务
    Call 完成任务了吗
    Call 回广成子
    goto 开始	
End Sub

Sub 是动是静
    Do
        s = dm.Ocr(898, 28, 957, 43, "ffffff-000000", 1.0)
        Delay 3000
        s1 = dm.Ocr(898, 28, 957, 43, "ffffff-000000", 1.0)
        If s=s1
            
            delay  3000
            Exit Do
	
        Else 
	
        End If
    loop   while 7=7	
End Sub


 
Sub 做任务
    dm.KeyDown 162
    Delay 200
    dm.KeyPress 70
    Delay 200
    dm.KeyUp 162
    Delay 200	
End Sub
  
   







Sub 回广成子
    
    dm.KeyPress 105
    delay 6000



    s = dm.Ocr(751,375,860,486,"7aceea-000000",1.0)
  


    dm_ret = dm.FindStr(751,375,860,486,"成子","7aceea-000000",1.0,intX,intY)
    if intX>0 Then 
     
        dm.MoveTo intX+12, intY+3
        dm.LeftClick     
    Else 
    MsgBox  "找不到成子"
    End if




  
    dm.Moveto intX+12, intY+3
    delay 300
    dm.LeftClick 
    dm.Moveto intX+12, intY+3
    delay 300
    dm.LeftClick 
    dm.Moveto intX+12, intY+3
    delay 300