1.     调用 移动(751,315)
  2.     延时 300 毫秒
  3.     （鼠标）右键单击, 1次
  4.     延时 300 毫秒
  5.     调用 移动(751,327)
  6.     延时 300 毫秒
  7.     （鼠标）右键单击, 1次
  8.     延时 300 毫秒
  9.     调用 移动(645,313)
  10.     延时 300 毫秒
  11.     （鼠标）右键单击, 1次
  12.     延时 300 毫秒
  13.     调用 移动(645,327)
  14.     延时 300 毫秒
  15.     （鼠标）右键单击, 1次
  16.     延时 300 毫秒
  17.     调用 ckcl(d5ID,378,277)
  18.     延时 1000 毫秒
  19.     调用 移动(978,513)
  20.     延时 300 毫秒
  21.     （鼠标）右键单击, 1次
  22.     延时 300 毫秒
  23.     调用 移动(978,327)
  24.     延时 300 毫秒
  25.     （鼠标）右键单击, 1次
  26.     延时 300 毫秒
  27.     调用 移动(672,313)
  28.     延时 300 毫秒
  29.     （鼠标）右键单击, 1次
  30.     延时 300 毫秒
  31.     调用 移动(672,327)
  32.     延时 300 毫秒
  33. 子程序结束
  34. 子程序 ckcl(kl,x1,y2)
  35.     令 xes = kl
  36.     令 xwz = x1
  37.     令 ywz = y2
  38.     令 dm = CreateObject("dm.dmsoft")
  39.     令 CKBL = dm.EnumWindow(0,xes,"",1 + 4 + 8 + 16)
  40.     令 CKSZ = split(CKBL,",")
  41.     令 i = 0
  42.     令 DYCK = CKSZ(i)
  43.     令 dm_ret = dm.SetWindowState(DYCK,12)
  44.     令 dm_ret = dm.SetWindowSize(DYCK,646,510)
  45.     延时 100 毫秒
  46.     dm.MoveWindow(DYCK,xwz,ywz)
  47.     延时 100 毫秒
  48.     令 dm_ret = dm.BindWindow(DYCK,"dx","normal","normal",0)
  49.     延时 100 毫秒
  50. 子程序结束
  51. 子程序 ckclb(kl)
  52.     令 xes = kl
  53.     令 dm = CreateObject("dm.dmsoft")
  54.     令 CKBL = dm.EnumWindow(0,xes,"",1 + 4 + 8 + 16)
  55.     令 CKSZ = split(CKBL,",")
  56.     令 i = 0
  57.     令 DYCK = CKSZ(i)
  58.     令 dm_ret = dm.SetWindowState(DYCK,12)
  59.     令 dm_ret = dm.SetWindowSize(DYCK,646,510)
  60.     延时 100 毫秒
  61.     延时 100 毫秒
  62.     令 dm_ret = dm.BindWindow(DYCK,"dx","normal","normal",0)
  63.     延时 100 毫秒
  64. 子程序结束
  65. 子程序 移动(mx,my)
  66.     令 sj = timer
  67.     令 x = mx + sgn(240 - mx) * 20
  68.     令 y = my + sgn(180 - my) * 20
  69.     循环开始
  70.         （鼠标）移动到 (x, y)
  71.         令 t = timer
  72.         令 x1 = x - 50
  73.         令 y1 = y - 50
  74.         如果 x1 < 0 则
  75.             令 x1 = 0
  76.         条件结束
  77.         如果 y1 < 0 则
  78.             令 y1 = 0
  79.         条件结束
  80.         循环开始
  81.             从左上到右下查找图片 "Attachment:\sb13.bmp"，把找到的坐标保存到 (a, b)，指定区域（左：x1 上：y1 右：x + 100 下：y + 100），相似度 0.7
  82.         当 a > 0 或者 (timer - t) * 100 > 5 之前循环
  83.         如果 a > 0 则
  84.             令 x = x + sgn(mX - a)
  85.             令 y = y + sgn(mY - b)
  86.         否则
  87.             令 x = x + sgn(320 - x)
  88.             令 y = y + sgn(240 - y)
  89.         条件结束
  90.     当 abs(mX - a) < 3 并且 abs(mY - b) < 3 或者 timer - sj > 3 之前循环
  91. 子程序结束
  92. 子程序 网络验证
  93.     开始VBScript块
  94.         令 XmlHttp = CreateObject("Microsoft.XMLHTTP")
  95.         XmlHttp.Open("Get","http://www.baidu.com/",False)
  96.         XmlHttp.send()
  97.         令 datetxt = XmlHttp.getResponseHeader("Date")
  98.         令 XmlHttp = Nothing
  99.         令 temdate = Split(datetxt,",")
  100.         令 tempvar = Replace(temdate(1),"GMT","")