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