1.         延时 200 毫秒
  2.         （键盘）按 "BackSpace" 键, 3次
  3.         延时 200 毫秒
  4.         输入文本 第四点X坐标
  5.         延时 200 毫秒
  6.         令 第四点Y坐标 = Form1.InputBox8.Text
  7.         延时 200 毫秒
  8.         （鼠标）移动到 (623, 136)
  9.         （鼠标）左键单击, 1次
  10.         延时 200 毫秒
  11.         （键盘）按 "Delete" 键, 3次
  12.         延时 200 毫秒
  13.         （键盘）按 "BackSpace" 键, 3次
  14.         延时 200 毫秒
  15.         输入文本 第四点Y坐标
  16.         延时 200 毫秒
  17.         （鼠标）移动到 (679, 135)
  18.         （鼠标）左键单击, 1次
  19.         延时 200 毫秒
  20.         （键盘）按 "M" 键, 1次
  21.         延时 1000 毫秒
  22.     否则
  23.         如果 i >= 5 则
  24.             令 i = 0
  25.         条件结束
  26.     条件结束
  27.     延时 ss 毫秒
  28. 循环结束
  29. 子程序 死亡()
  30.     令 Y = Year(Date)
  31.     令 Mon = Month(Date)
  32.     令 D = Day(Date)
  33.     令 W = Weekday(Date,vbMonday)
  34.     注释：利用VBS函数获得当前系统的年,月,日,星期 并各自保存到变量中
  35.     令 h = Hour(time)
  36.     令 m = Minute(time)
  37.     令 s = Second(time)
  38.     注释：利用VBS函数获得当前系统的时,分,秒 并各自保存到变量中
  39.     令 SW = Y & "年" & Mon & "月" & D & "号 星期" & W & " " & h & "点" & m & "分" & s & "秒""死亡"
  40.     注释：把得到的年,月,日,星期,时,分,秒连接起来 并保存到SJ变量中
  41.     调用 File.WriteFileEx("C:\古墓挂机寻首报警.txt",SW)
  42. 子程序结束
  43. 子程序 寻首()
  44.     注释：先声明变量
  45.     令 Y = Year(Date)
  46.     令 Mon = Month(Date)
  47.     令 D = Day(Date)
  48.     令 W = Weekday(Date,vbMonday)
  49.     注释：利用VBS函数获得当前系统的年,月,日,星期 并各自保存到变量中
  50.     令 h = Hour(time)
  51.     令 m = Minute(time)
  52.     令 s = Second(time)
  53.     注释：利用VBS函数获得当前系统的时,分,秒 并各自保存到变量中
  54.     令 SJ = Y & "年" & Mon & "月" & D & "号 星期" & W & " " & h & "点" & m & "分" & s & "秒""寻首"
  55.     注释：把得到的年,月,日,星期,时,分,秒连接起来 并保存到SJ变量中
  56.     调用 File.WriteFileEx("C:\古墓挂机寻首报警.txt",sj)
  57. 子程序结束
  58. 子程序 念生()
  59.     注释：先声明变量
  60.     令 Y = Year(Date)
  61.     令 Mon = Month(Date)
  62.     令 D = Day(Date)
  63.     令 W = Weekday(Date,vbMonday)
  64.     注释：利用VBS函数获得当前系统的年,月,日,星期 并各自保存到变量中
  65.     令 h = Hour(time)
  66.     令 m = Minute(time)
  67.     令 s = Second(time)
  68.     注释：利用VBS函数获得当前系统的时,分,秒 并各自保存到变量中
  69.     令 ns = Y & "年" & Mon & "月" & D & "号 星期" & W & " " & h & "点" & m & "分" & s & "秒""念生"
  70.     注释：把得到的年,月,日,星期,时,分,秒连接起来 并保存到SJ变量中
  71.     调用 File.WriteFileEx("C:\古墓挂机寻首报警.txt",ns)
  72. 子程序结束