1. 注释：====================关闭窗口脚本======================
  2. 子程序 关闭
  3.     dm.KeyPress(27)
  4.     延时 500 毫秒
  5.     标记 关闭窗口(子程序 关闭)
  6.     令 dm_ret = dm.FindPic(0,0,800,600,"关闭.bmp","000000",0.9,0,intX,intY)
  7.     如果 intX > 0 并且 intY > 0 则
  8.         dm.KeyPress(27)
  9.         延时 100 毫秒
  10.         跳转到标记 关闭窗口(子程序 关闭)
  11.     条件结束
  12. 子程序结束
  13. 注释：===================答题脚本======================
  14. 子程序 答题
  15.     令 dm_ret = dm.FindPic(0,0,800,600,"C:\TLPS\挂机.bmp","000000",0.9,0,intX,intY)
  16.     如果 intX >= 0 并且 intY >= 0 则
  17.         调用 Media.Beep(659,1600)
  18.         延时 1000 毫秒
  19.         注释：播放路径下的“报警”音乐文件
  20.         调用 Media.Play(Form1.路径.Text)
  21.         延时 2000 毫秒
  22.         如果 Form1.答题.ListIndex = 0 则
  23.             调用 手动答题
  24.         否则如果 Form1.答题.ListIndex = 1 则
  25.             调用 远程答题
  26.         条件结束
  27.         调用 Media.Stop()
  28.     条件结束
  29. 子程序结束
  30. 子程序 手动答题
  31.     注释：获取反挂机坐标
  32.     标记 手动答题(子程序 手动答题)
  33.     令 dm_ret = dm.FindPic(0,0,800,600,"C:\TLPS\答题.bmp","000000",0.9,0,intX,intY)
  34.     如果 intX >= 0 并且 intY >= 0 则
  35.         延时 2000 毫秒
  36.     否则
  37.         跳转到标记 手动答题(子程序 手动答题)
  38.     条件结束
  39.     定义变量 编号
  40.     注释：获取答案，确定坐标
  41.     令 编号 = InputBox("请输入答案编号1,2,3,4")
  42.     延时 2000 毫秒
  43.     如果 编号 = 1 则
  44.         dm.MoveTo(intX + 55,intY + 175)
  45.         延时 50 毫秒
  46.         dm.LeftClick()
  47.         延时 1000 毫秒
  48.         dm.MoveTo(intX + 135,intY + 275)
  49.         延时 50 毫秒
  50.         dm.LeftClick()
  51.         延时 1000 毫秒
  52.     否则如果 编号 = 2 则
  53.         dm.MoveTo(intX + 55,intY + 200)
  54.         延时 50 毫秒
  55.         dm.LeftClick()
  56.         延时 1000 毫秒
  57.         dm.MoveTo(intX + 135,intY + 275)
  58.         延时 50 毫秒
  59.         dm.LeftClick()
  60.         延时 1000 毫秒
  61.     否则如果 编号 = 3 则
  62.         dm.MoveTo(intX + 55,intY + 225)
  63.         延时 50 毫秒
  64.         dm.LeftClick()
  65.         延时 1000 毫秒
  66.         dm.MoveTo(intX + 135,intY + 275)
  67.         延时 50 毫秒
  68.         dm.LeftClick()
  69.         延时 1000 毫秒
  70.     否则如果 编号 = 4 则
  71.         dm.MoveTo(intX + 55,intY + 250)
  72.         延时 50 毫秒
  73.         dm.LeftClick()
  74.         延时 1000 毫秒
  75.         dm.MoveTo(intX + 135,intY + 275)
  76.         延时 50 毫秒
  77.         dm.LeftClick()
  78.         延时 1000 毫秒
  79.     否则
  80.         延时 200 毫秒
  81.     条件结束
  82. 子程序结束
  83. 子程序 远程答题
  84.     注释：答题截图
  85.     标记 远程答题(子程序 远程答题)
  86.     令 dm_ret = dm.FindPic(0,0,800,600,"C:\TLPS\答题.bmp","000000",0.9,0,intX,intY)
  87.     如果 intX >= 0 并且 intY >= 0 则
  88.         延时 1000 毫秒
  89.     否则
  90.         跳转到标记 远程答题(子程序 远程答题)
  91.     条件结束
  92.     令 dm_ret = dm.Capture(intX - 40,intY + 73,intX + 140,intY + 260,"screen.bmp")
  93.     延时 20 毫秒
  94.     循环开始
  95.         标记 发送(子程序 远程答题)
  96.         如果 题目ID > 0 则
  97.             跳出循环
  98.         否则如果 题目ID < 0 则
  99.             跳转到标记 发送(子程序 远程答题)
  100.         条件结束