1.             如果表达式 (gy<=0) 为真,则
  2.                 调用插件命令 zhiy1=Maple.ElmChar(Chars_s,1,0,82,88,7,9,0,&hf8fcf8,&h282828)
  3.                 调用插件命令 zhiy1=Maple.ElmChar(Chars_s,1,0,82,88,7,9,0,&hf8fcf8,&h282828)
  4.                 调用插件命令 zhiy2=Maple.ElmChar(Chars_s,1,0,82+8,88,7,9,0,&hf8fcf8,&h282828)
  5.                 调用插件命令 zhiy2=Maple.ElmChar(Chars_s,1,0,82+8,88,7,9,0,&hf8fcf8,&h282828)
  6.                 调用插件命令 zhiy3=Maple.ElmChar(Chars_s,1,0,82+16,88,7,9,0,&hf8fcf8,&h282828)
  7.                 调用插件命令 zhiy3=Maple.ElmChar(Chars_s,1,0,82+16,88,7,9,0,&hf8fcf8,&h282828)
  8.                 gy=zhiy1&zhiy2&zhiy3
  9.                 gy=zhiy1&zhiy2&zhiy3
  10.             条件结束
  11.         条件结束
  12.     子程序结束,回到调用处
  13. 子程序结束,回到调用处
  14. 子程序 体力
  15.     子程序 体力
  16.         调用插件命令 tix1=Maple.ElmChar(Chars_z,1,0,tilix,tiliy,6,9,0,&h000000,0)
  17.         调用插件命令 tix1=Maple.ElmChar(Chars_z,1,0,tilix,tiliy,6,9,0,&h000000,0)
  18.         调用插件命令 tix2=Maple.ElmChar(Chars_z,1,0,tilix+7,tiliy,6,9,0,&h000000,0)
  19.         调用插件命令 tix2=Maple.ElmChar(Chars_z,1,0,tilix+7,tiliy,6,9,0,&h000000,0)
  20.         调用插件命令 tix3=Maple.ElmChar(Chars_z,1,0,tilix+14,tiliy,6,9,0,&h000000,0)
  21.         调用插件命令 tix3=Maple.ElmChar(Chars_z,1,0,tilix+14,tiliy,6,9,0,&h000000,0)
  22.         tx=tix1&tix2&tix3
  23.         tx=tix1&tix2&tix3
  24.     子程序结束,回到调用处
  25. 子程序结束,回到调用处
  26. 子程序 日期1
  27.     子程序 日期1
  28.         Dim SvrName(14),xPost,HttpAdd,NowTime,StartTime
  29.         Dim SvrName(14),xPost,HttpAdd,NowTime,StartTime
  30.         StartTime=Now
  31.         StartTime=Now
  32.         SvrName(1) = "time-nw.nist.gov"
  33.         SvrName(1) = "time-nw.nist.gov"
  34.         SvrName(2) = "time-a.nist.gov"
  35.         SvrName(2) = "time-a.nist.gov"
  36.         SvrName(3) = "time-b.nist.gov"
  37.         SvrName(3) = "time-b.nist.gov"
  38.         SvrName(4) = "time-a.timefreq.bldrdoc.gov"
  39.         SvrName(4) = "time-a.timefreq.bldrdoc.gov"
  40.         SvrName(5) = "time-b.timefreq.bldrdoc.gov"
  41.         SvrName(5) = "time-b.timefreq.bldrdoc.gov"
  42.         SvrName(6) = "time-c.timefreq.bldrdoc.gov"
  43.         SvrName(6) = "time-c.timefreq.bldrdoc.gov"
  44.         SvrName(7) = "utcnist.colorado.edu"
  45.         SvrName(7) = "utcnist.colorado.edu"
  46.         SvrName(8) = "time.nist.gov"
  47.         SvrName(8) = "time.nist.gov"
  48.         SvrName(9) = "nist1.datum.com"
  49.         SvrName(9) = "nist1.datum.com"
  50.         SvrName(10) = "nist1.dc.glassey.com"
  51.         SvrName(10) = "nist1.dc.glassey.com"
  52.         SvrName(11) = "nist1.ny.glassey.com"
  53.         SvrName(11) = "nist1.ny.glassey.com"
  54.         SvrName(12) = "nist1.sj.glassey.com"
  55.         SvrName(12) = "nist1.sj.glassey.com"
  56.         SvrName(13) = "nist1.aol-ca.truetime.com"
  57.         SvrName(13) = "nist1.aol-ca.truetime.com"
  58.         SvrName(14) = "nist1.aol-va.truetime.com"
  59.         SvrName(14) = "nist1.aol-va.truetime.com"
  60.         Set xPost=createObject("Microsoft.XMLHTTP")
  61.         Set xPost=createObject("Microsoft.XMLHTTP")
  62.         Set Obj=createObject("Wscript.shell")
  63.         Set Obj=createObject("Wscript.shell")
  64.         如果表达式 (NowTime="") 为真,则循环执行
  65.             如果表达式 (NowTime="") 为真,则循环执行
  66.                 i=1
  67.                 i=1
  68.                 循环 14 遍
  69.                     循环 14 遍
  70.                         HttpAdd="Http://"&SvrName(i)&":13":NowTime=""
  71.                         HttpAdd="Http://"&SvrName(i)&":13":NowTime=""
  72.                         xPost.Open "Put",HttpAdd,False
  73.                         xPost.Open "Put",HttpAdd,False
  74.                         xPost.Send()
  75.                         xPost.Send()
  76.                         延时10毫秒
  77.                         延时10毫秒
  78.                         如果表达式 (xPost.readyState=4) 为真,则
  79.                             如果表达式 (xPost.readyState=4) 为真,则
  80.                                 NowTime=mid(xPost.responsetext,8,17)
  81.                                 NowTime=mid(xPost.responsetext,8,17)
  82.                                 如果表达式 (NowTime<>"") 为真,则
  83.                                     如果表达式 (NowTime<>"") 为真,则
  84.                                         NowTime=CDate(NowTime) + 8 / 24
  85.                                         NowTime=CDate(NowTime) + 8 / 24
  86.                                         跳转到标记 EndConnect
  87.                                         跳转到标记 EndConnect
  88.                                     否则
  89.                                     否则
  90.                                         xPost.abort()
  91.                                         xPost.abort()
  92.                                         NowTime=""
  93.                                         NowTime=""
  94.                                     条件结束
  95.                                 条件结束
  96.                             条件结束
  97.                         条件结束
  98.                         i=i+1
  99.                         i=i+1
  100.                     循环结束