1.     （鼠标）左键弹起
  2.     延时 1000 毫秒
  3. 子程序结束
  4. 子程序 网络答题
  5.     标记 开始网络答题(子程序 网络答题)
  6.     令 dtflag = 1
  7.     循环当 dtflag = 1 时
  8.         （鼠标）移动到 (0, 0)
  9.         延时 50 毫秒
  10.         令 dm_ret = dm.FindStr(XL,YL,XR,YR,"回答","fff263-000000",1.0,x1,y1)
  11.         如果 x1 > 0 并且 y1 > 0 则
  12.             令 handle = dm.FaqCapture(x1,y1 + 20,x1 + 200,y1 + 200,80,0,0)
  13.             令 server = dati_ip & ":" & dati_port
  14.             令 result = dm.FaqSend(server,handle,1,50 * 1000)
  15.             令 result = split(result,":")
  16.             如果 result(0) = "OK" 则
  17.                 标记 重新点击答案(子程序 网络答题)
  18.                 如果 result(1) = "1" 则
  19.                     （鼠标）移动到 (x1 + 45, y1 + 110)
  20.                     调用 点选
  21.                     令 dm_ret = dm.FindStr(X1 + 100,Y1 + 150,X1 + 260,Y1 + 260,"确定","bbbbbb-000000",1.0,xz,yz)
  22.                     如果 xz > 0 并且 yz > 0 则
  23.                         跳转到标记 重新点击答案(子程序 网络答题)
  24.                     否则
  25.                         调用 点击确定
  26.                     条件结束
  27.                 否则如果 result(1) = "2" 则
  28.                     （鼠标）移动到 (x1 + 45, y1 + 135)
  29.                     调用 点选
  30.                     令 dm_ret = dm.FindStr(X1 + 100,Y1 + 150,X1 + 260,Y1 + 260,"确定","bbbbbb-000000",1.0,xz,yz)
  31.                     如果 xz > 0 并且 yz > 0 则
  32.                         跳转到标记 重新点击答案(子程序 网络答题)
  33.                     否则
  34.                         调用 点击确定
  35.                     条件结束
  36.                 否则如果 result(1) = "3" 则
  37.                     （鼠标）移动到 (x1 + 45, y1 + 160)
  38.                     调用 点选
  39.                     令 dm_ret = dm.FindStr(X1 + 100,Y1 + 150,X1 + 260,Y1 + 260,"确定","bbbbbb-000000",1.0,xz,yz)
  40.                     如果 xz > 0 并且 yz > 0 则
  41.                         跳转到标记 重新点击答案(子程序 网络答题)
  42.                     否则
  43.                         调用 点击确定
  44.                     条件结束
  45.                 否则如果 result(1) = "4" 则
  46.                     （鼠标）移动到 (x1 + 45, y1 + 185)
  47.                     调用 点选
  48.                     令 dm_ret = dm.FindStr(X1 + 100,Y1 + 150,X1 + 260,Y1 + 260,"确定","bbbbbb-000000",1.0,xz,yz)
  49.                     如果 xz > 0 并且 yz > 0 则
  50.                         跳转到标记 重新点击答案(子程序 网络答题)
  51.                     否则
  52.                         调用 点击确定
  53.                     条件结束
  54.                 条件结束
  55.             否则
  56.                 延时 300 毫秒
  57.             条件结束
  58.         否则
  59.             令 dtflag = 2
  60.         条件结束
  61.     循环结束
  62. 子程序结束
  63. 子程序 点击确定
  64.     令 ksdjt = now
  65.     标记 重新确定(子程序 点击确定)
  66.     如果 datediff("s",ksdjt,now) >= 10 则
  67.         跳转到标记 防卡死(子程序 点击确定)
  68.     条件结束
  69.     令 flag = 1
  70.     令 dm_ret = dm.FindStr(X1 + 100,Y1 + 150,X1 + 260,Y1 + 260,"确定","fdeb78-000000",1.0,xz,yz)
  71.     如果 xz > 0 并且 yz > 0 则
  72.         （鼠标）移动到 (xz + 10, yz + 10)
  73.         延时 20 毫秒
  74.         （鼠标）左键按下
  75.         延时 500 毫秒
  76.         （鼠标）左键弹起
  77.         延时 200 毫秒
  78.         （鼠标）移动到 (xz + 60, yz + 10)
  79.         延时 20 毫秒
  80.         令 djt = now
  81.         令 flag = 1
  82.         循环当 flag = 1 并且 datediff("s",djt,now) < 2 并且 datediff("s",ksdjt,now) < 10 时
  83.             令 dm_ret = dm.FindStr(X1 + 100,Y1 + 150,X1 + 260,Y1 + 260,"确定","fdeb78-000000",1.0,xz,yz)
  84.             如果 xz > 0 并且 yz > 0 则
  85.                 （鼠标）移动到 (xz + 60, yz + 10)
  86.                 延时 50 毫秒
  87.                 令 flag = 1
  88.             否则
  89.                 令 flag = 2
  90.             条件结束
  91.         循环结束
  92.         循环当 flag = 1 并且 datediff("s",djt,now) >= 2 并且 datediff("s",ksdjt,now) < 10 时
  93.             跳转到标记 重新确定(子程序 点击确定)
  94.         循环结束
  95.     否则
  96.         （鼠标）移动到 (xz + 60, yz + 10)
  97.         延时 50 毫秒
  98.         令 flag = 2
  99.     条件结束
  100. 子程序结束