Call Plugin.File.WriteFileEx("c:\log.txt", danjia)

End Sub
Sub npc
	
set dm = createobject("dm.dmsoft")
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
dm_ret = dm.SetDict(0, "C:\材料字库\数字dm.txt")


dfn = dm.FindStr(360,116,489,209,"达芙妮","e6c89b-000000",1.0,intX,intY)
 If intX > 0 and inty >0 Then
	dm.moveto intx + 5, inty
	LeftClick 1
	Delay 100
	dm.moveto intx + 5, inty + 25
	Delay 50
	LeftClick 1
	Delay 900
Do  While 1
 KeyPress 13,1
	Delay 100
	dm_ret = dm.FindStr(0,0,2000,2000,"赠送礼物","9f2e3f-000000",1.0,intX,intY)
     If intX > 0 and intY > 0 Then
     dm.MoveTo intX+5, intY+5
    Delay 200
     LeftClick 1
 MessageBox "" 
 End If    
Loop

end if	
	
	
End Sub