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