Plugin zhiy1=Maple.ElmChar(Chars_s,1,0,82,88,7,9,0,&hf8fcf8,&h282828)

        Plugin zhiy2=Maple.ElmChar(Chars_s,1,0,82+8,88,7,9,0,&hf8fcf8,&h282828)

        Plugin zhiy3=Maple.ElmChar(Chars_s,1,0,82+16,88,7,9,0,&hf8fcf8,&h282828)

        gy=zhiy1&zhiy2&zhiy3

    EndIf 

Return 坐标

Sub 体力

    Plugin tix1=Maple.ElmChar(Chars_z,1,0,tilix,tiliy,6,9,0,&h000000,0)

    Plugin tix2=Maple.ElmChar(Chars_z,1,0,tilix+7,tiliy,6,9,0,&h000000,0)

    Plugin tix3=Maple.ElmChar(Chars_z,1,0,tilix+14,tiliy,6,9,0,&h000000,0)

    tx=tix1&tix2&tix3

Return 体力

Sub 日期1

    Dim SvrName(14),xPost,HttpAdd,NowTime,StartTime

    StartTime=Now

    SvrName(1) = "time-nw.nist.gov"

    SvrName(2) = "time-a.nist.gov"

    SvrName(3) = "time-b.nist.gov"

    SvrName(4) = "time-a.timefreq.bldrdoc.gov"

    SvrName(5) = "time-b.timefreq.bldrdoc.gov"

    SvrName(6) = "time-c.timefreq.bldrdoc.gov"

    SvrName(7) = "utcnist.colorado.edu"

    SvrName(8) = "time.nist.gov"

    SvrName(9) = "nist1.datum.com"

    SvrName(10) = "nist1.dc.glassey.com"

    SvrName(11) = "nist1.ny.glassey.com"

    SvrName(12) = "nist1.sj.glassey.com"

    SvrName(13) = "nist1.aol-ca.truetime.com"

    SvrName(14) = "nist1.aol-va.truetime.com"

    Set xPost=createObject("Microsoft.XMLHTTP")

    Set Obj=createObject("Wscript.shell")

    While NowTime=""

        i=1

        For 14

            HttpAdd="Http://"&SvrName(i)&":13":NowTime=""

            xPost.Open "Put",HttpAdd,False

            xPost.Send()

            Delay 10

            If xPost.readyState=4

                NowTime=mid(xPost.responsetext,8,17)

                If NowTime<>""

                    NowTime=CDate(NowTime) + 8 / 24

                    Goto EndConnect

                Else 

                    xPost.abort()

                    NowTime=""

                EndIf 

            EndIf 

            i=i+1

        EndFor