我这个取网络时间的估计微软倒闭了才会失效了

祁辛 · 发表于 2016-6-16 14:20:36

我这个源码是直接调用系统获取网络时间的来获取最新的网络时间

估计这个只有一种失效的可能那就是微软倒闭了才会失效了

时间校准器.zip (4.46 KB, 下载次数: 684)

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
m_Data	文本型
m_ret	文本型

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
Eval	文本型
现行时间	日期时间型

httpWEB (“http://time.windows.com/”, m_ret)
调试输出 (m_ret)
m_Data ＝文本_取中间文本 (m_ret, “Date:”, “Content-Length:”)
m_Data ＝删首尾空 (m_Data)
输出调试文本 (m_Data)
Eval ＝子文本替换 ( #JS语句代码, “[要替换的数据]”, m_Data, , , 真)
Eval ＝子文本替换 (Eval, #换行符, 字符 (32), , , 真)
调试输出 (Eval)
调试输出 (JavaScript取值 (Eval))
现行时间＝获取网络时间 (JavaScript取值 (Eval))

如果真 (取反 (置现行时间 (现行时间)))

信息框 (“获取网络时间出错”, 0, , )
透明标签1.标题＝到文本 (现行时间)
信息框 (“校准时间成功！现在是北京时间:” ＋到文本 (现行时间), 0, , )

子程序名	返回值类型	公开	备注
JavaScript取值	长整数型		返回时间戳
参数名	类型	参考	可空	数组	备注
EVAL	文本型

变量名	类型	静态	数组	备注
script	对象
returns	变体型

script.创建 (“scriptcontrol”, )
script.写属性 (“Language”, “JScript”)
script.通用方法 (“ExecuteStatement”, EVAL)
returns ＝ script.通用方法 (“Run”, “getmy”)
返回 (returns.取数值 ())

子程序名	返回值类型	公开	备注
文本_取中间文本	文本型		根据指定内容返回中间文本
参数名	类型	参考	可空	数组	备注
src	文本型				原文本需要寻找的文本
left	文本型				要寻找的文本的左边
right	文本型				要寻找文本的右边

变量名	类型	静态	数组	备注
retstr	文本型
leftlen	整数型			左边文本的位置
rightlent	整数型			右边文本的位置

retstr ＝ “”

如果 (是否为空 (right))

rightlent ＝取文本长度 (src) ' 如果未提供右边的文本那么默认到文本末尾

rightlent ＝寻找文本 (src, right, 1, 真)
leftlen ＝寻找文本 (src, left, 1, 真)

如果真 (leftlen ≠ -1 且 rightlent ≠ -1)

retstr ＝取文本中间 (src, leftlen ＋取文本长度 (left), rightlent �� (leftlen ＋取文本长度 (left)))
返回 (retstr)

子程序名	返回值类型	公开	备注
获取网络时间	日期时间型
参数名	类型	参考	可空	数组	备注
网络时间戳	长整数型

变量名	类型	静态	数组	备注
网络时间	日期时间型

网络时间＝增减时间 ([1970年1月1日8时], #秒, 网络时间戳 ÷ 1000)
调试输出 (网络时间)
返回 (网络时间)

子程序名	返回值类型	公开	备注
httpWEB	字节集
参数名	类型	参考	可空	数组	备注
地址	文本型
返回的协yi头	文本型

变量名	类型	静态	数组	备注
httpObj	对象
Object	变体型
源代码	字节集

CoInitialize (0)
httpObj.创建 (“WinHttp.WinHttpRequest.5.1”, )
httpObj.方法 (“settimeouts”, 3000, 3000, 3000, 3000)
httpObj.通用方法 (“Open”, “GET”, 地址, 假, )
httpObj.方法 (“SetRequestHeader”, “Accept”, “application/json, text/javascript, */*”)
httpObj.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3”)
httpObj.方法 (“setRequestHeader”, “Charset”, “gb2312”)
httpObj.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko”)
httpObj.方法 (“Send”, )

如果真 (取反 (是否为空 (返回的协yi头)))

返回的协yi头＝ httpObj.读文本属性 (“GetAllResponseHeaders”, )
源代码＝ httpObj.读属性 (“responseBody”, ).取字节集 ()
httpObj.清除 ()
CoUninitialize ()
返回 (源代码)

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br />
.支持库 spec<br />
.支持库 iext<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 m_Data, 文本型<br />
.程序集变量 m_ret, 文本型<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 Eval, 文本型<br />
.局部变量 现行时间, 日期时间型<br />
<br />
httpWEB (“http://time.windows.com/”, m_ret)<br />
调试输出 (m_ret)<br />
m_Data ＝ 文本_取中间文本 (m_ret, “Date:”, “Content-Length:”)<br />
m_Data ＝ 删首尾空 (m_Data)<br />
输出调试文本 (m_Data)<br />
Eval ＝ 子文本替换 (#JS语句代码, “[要替换的数据]”, m_Data, , , 真)<br />
Eval ＝ 子文本替换 (Eval, #换行符, 字符 (32), , , 真)<br />
调试输出 (Eval)<br />
调试输出 (JavaScript取值 (Eval))<br />
现行时间 ＝ 获取网络时间 (JavaScript取值 (Eval))<br />
.如果真 (取反 (置现行时间 (现行时间)))<br />
    信息框 (“获取网络时间出错”, 0, , )<br />
.如果真结束<br />
透明标签1.标题 ＝ 到文本 (现行时间)<br />
信息框 (“校准时间成功！现在是北京时间:” ＋ 到文本 (现行时间), 0, , )<br />
<br />
.子程序 JavaScript取值, 长整数型, , 返回时间戳<br />
.参数 EVAL, 文本型<br />
.局部变量 script, 对象<br />
.局部变量 returns, 变体型<br />
<br />
script.创建 (“scriptcontrol”, )<br />
script.写属性 (“Language”, “JScript”)<br />
script.通用方法 (“ExecuteStatement”, EVAL)<br />
returns ＝ script.通用方法 (“Run”, “getmy”)<br />
返回 (returns.取数值 ())<br />
<br />
.子程序 文本_取中间文本, 文本型, , 根据指定内容返回中间文本<br />
.参数 src, 文本型, , 原文本需要寻找的文本<br />
.参数 left, 文本型, , 要寻找的文本的左边<br />
.参数 right, 文本型, 可空, 要寻找文本的右边<br />
.局部变量 retstr, 文本型<br />
.局部变量 leftlen, 整数型, , , 左边文本的位置<br />
.局部变量 rightlent, 整数型, , , 右边文本的位置<br />
<br />
retstr ＝ “”<br />
.如果 (是否为空 (right))<br />
    rightlent ＝ 取文本长度 (src)  ' 如果未提供右边的文本那么默认到文本末尾<br />
.否则<br />
    rightlent ＝ 寻找文本 (src, right, 1, 真)<br />
.如果结束<br />
leftlen ＝ 寻找文本 (src, left, 1, 真)<br />
.如果真 (leftlen ≠ -1 且 rightlent ≠ -1)<br />
    retstr ＝ 取文本中间 (src, leftlen ＋ 取文本长度 (left), rightlent － (leftlen ＋ 取文本长度 (left)))<br />
.如果真结束<br />
返回 (retstr)<br />
<br />
.子程序 获取网络时间, 日期时间型<br />
.参数 网络时间戳, 长整数型<br />
.局部变量 网络时间, 日期时间型<br />
<br />
网络时间 ＝ 增减时间 ([1970年1月1日8时], #秒, 网络时间戳 ÷ 1000)<br />
调试输出 (网络时间)<br />
返回 (网络时间)<br />
<br />
.子程序 httpWEB, 字节集<br />
.参数 地址, 文本型<br />
.参数 返回的协yi头, 文本型, 参考 可空<br />
.局部变量 httpObj, 对象<br />
.局部变量 Object, 变体型<br />
.局部变量 源代码, 字节集<br />
<br />
CoInitialize (0)<br />
<br />
httpObj.创建 (“WinHttp.WinHttpRequest.5.1”, )<br />
httpObj.方法 (“settimeouts”, 3000, 3000, 3000, 3000)<br />
httpObj.通用方法 (“Open”, “GET”, 地址, 假, )<br />
httpObj.方法 (“SetRequestHeader”, “Accept”, “application/json, text/javascript, */*”)<br />
httpObj.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3”)<br />
httpObj.方法 (“setRequestHeader”, “Charset”, “gb2312”)<br />
httpObj.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko”)<br />
httpObj.方法 (“Send”, )<br />
.如果真 (取反 (是否为空 (返回的协yi头)))<br />
    返回的协yi头 ＝ httpObj.读文本属性 (“GetAllResponseHeaders”, )<br />
.如果真结束<br />
源代码 ＝ httpObj.读属性 (“responseBody”, ).取字节集 ()<br />
httpObj.清除 ()<br />
CoUninitialize ()<br />
返回 (源代码)