lib.网络.获取网络时间()
//获取网络时间，得到的时间格式为：2000-1-1 12:00:00
zzsj="2011-6-1 11:59:59"
//zzsj=终止时间 终止时间为脚本使用限定的最后时间！
If CDate(DqTime)<CDATE(ZZSJ)
Msgbox "系统认证成功！感谢你的支持。按回车脚本将会运行、"
Else 
Msgbox "系统认证失败！感谢你的支持。按回车脚本将会停止运行、"
EndScript
EndIf  
UserVar 军功任务循环=2 "循环军功次数"
UserVar 打怪速度=3000 "刷军功怪速度"
UserVar 脚本运行流畅度=0 "脚本运行流畅度"
UserVar 军功怪循环次数=10 "军功怪循环次数"
UserVar 延时时间=2000 "脚本运行时的延时时间"
UserVar 跑图时间=18000 "任务接受到刷军功的中间延时"
For 军功任务循环
    Delay 延时时间
i=0
While i=0
        FindPic 0,0,1024,768,"Attachment:\可接任务.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
i=1
MoveTo intX,intY
        LeftDoubleClick 1
End If
Wend
Delay 延时时间
i=0
While i=0
        FindPic 0,0,1024,768,"Attachment:\清缴扶桑浪人.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
i=1
MoveTo intX,intY
        LeftDoubleClick 1
            MoveTo intX+250,intY+20
                    LeftDoubleClick 1
End If
Wend
Delay 延时时间
i=0
While i=0
        FindPic 0,0,1024,768,"Attachment:\刘醇1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
i=1
MoveTo intX,intY
        LeftDoubleClick 1
End If
Wend
Delay 延时时间
i=0
While i=0
FindColor 0,0,1024,768,"71A4D0",intX,intY
If intX > 0 And intY > 0 Then
i=1
MoveTo intX+40,intY
        LeftDoubleClick 1
End If
Wend
Delay 延时时间
i=0
While i=0
FindColor 0,0,1024,768,"6ADEFF",intX,intY
If intX > 0 And intY > 0 Then
i=1
MoveTo intX+40,intY
        LeftDoubleClick 1
End If
Wend
Delay 延时时间
i=0
While i=0
FindColor 0,0,1024,768,"FFFAB4",intX,intY
If intX > 0 And intY > 0 Then
i=1
MoveTo intX,intY
        LeftDoubleClick 1
End If
Wend
Call Plugin.Msg.HideScrTXT()
Delay 500
Call Plugin.Msg.ShowScrTXT(100,100, 900, 200, "军功任务已接、准备刷怪！  "&PU, "8D65CF")
Delay 500   
PU=PU+1 
Delay 延时时间
i=0
While i=0
FindColor 0,0,1024,768,"0071FF",intX,intY
If intX > 0 And intY > 0 Then
i=1
MoveTo intX,intY
        LeftClick 1
End If
Wend
Delay 跑图时间
For 军功怪循环次数
    Call Plugin.Msg.HideScrTXT()
Delay 500
Call Plugin.Msg.ShowScrTXT(100,100, 900, 200, "军功任务刷怪开始！  "&PU, "8D65CF")
Delay 500