Delay 200
        KeyPress "Delete", 3
        Delay 200
        KeyPress "BackSpace", 3
        Delay 200
        SayString 第四点X坐标
        Delay 200
        第四点Y坐标 = Form1.InputBox8.Text
        Delay 200
        MoveTo 623, 136
        LeftClick 1
        Delay 200
        KeyPress "Delete", 3
        Delay 200
        KeyPress "BackSpace", 3
        Delay 200
        SayString 第四点Y坐标
        Delay 200
        MoveTo 679, 135
        LeftClick 1
        Delay 200
        KeyPress "M", 1
        Delay 1000
    Else 
        If i >= 5 Then 
            i=0
        End If
    End If
    Delay ss
Wend
Sub 死亡()
    Y=Year(Date):Mon=Month(Date):D=Day(Date):W=Weekday(Date,vbMonday)
    //利用VBS函数获得当前系统的年,月,日,星期   并各自保存到变量中
    h=Hour(time):m=Minute(time):s=Second(time)
    //利用VBS函数获得当前系统的时,分,秒   并各自保存到变量中
    SW=Y &"年"& Mon &"月"& D &"号 星期"& W &" "& h &"点"& m &"分"& s &"秒""死亡"
    //把得到的年,月,日,星期,时,分,秒连接起来   并保存到SJ变量中
    Call Plugin.File.WriteFileEx("C:\古墓挂机寻首报警.txt", SW)
End Sub
Sub 寻首()
    //先声明变量
    Y=Year(Date):Mon=Month(Date):D=Day(Date):W=Weekday(Date,vbMonday)
    //利用VBS函数获得当前系统的年,月,日,星期   并各自保存到变量中
    h=Hour(time):m=Minute(time):s=Second(time)
    //利用VBS函数获得当前系统的时,分,秒   并各自保存到变量中
    SJ=Y &"年"& Mon &"月"& D &"号 星期"& W &" "& h &"点"& m &"分"& s &"秒""寻首"
    //把得到的年,月,日,星期,时,分,秒连接起来   并保存到SJ变量中
    Call Plugin.File.WriteFileEx("C:\古墓挂机寻首报警.txt", sj)
End Sub
Sub 念生()
//先声明变量
    Y=Year(Date):Mon=Month(Date):D=Day(Date):W=Weekday(Date,vbMonday)
    //利用VBS函数获得当前系统的年,月,日,星期   并各自保存到变量中
    h=Hour(time):m=Minute(time):s=Second(time)
    //利用VBS函数获得当前系统的时,分,秒   并各自保存到变量中
    ns=Y &"年"& Mon &"月"& D &"号 星期"& W &" "& h &"点"& m &"分"& s &"秒""念生"
    //把得到的年,月,日,星期,时,分,秒连接起来   并保存到SJ变量中
    Call Plugin.File.WriteFileEx("C:\古墓挂机寻首报警.txt", ns)
End Sub