| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 取网络时间 | |||
| 变量名 | 类 型 | 数组 | 备 注 |
| m_Data | 文本型 | ||
| m_ret | 文本型 |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 时间_取网络时间 | 日期时间型 | 直接调用系统获取网络时间的来获取最新的网络时间，不要频繁获取会卡的。建议每次获取间隔5秒左右。作者：祁辛 | |||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| Eval | 文本型 | |||||
| 现行时间 | 日期时间型 | |||||
' 调试输出 (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))
返回 (现行时间)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| JavaScript取值 | 长整数型 | 返回时间戳 | |||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| EVAL | 文本型 | ||||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| script | 对象 | |||||
| returns | 变体型 | |||||
script.写属性 (“Language”, “JScript”)
script.通用方法 (“ExecuteStatement”, EVAL)
returns ＝ script.通用方法 (“Run”, “getmy”)
返回 (returns.取数值 ())
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 文本_取中间文本 | 文本型 | 根据指定内容返回中间文本 | |||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| src | 文本型 | 原文本需要寻找的文本 | left | 文本型 | 要寻找的文本的左边 | right | 文本型 | 要寻找文本的右边 |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| retstr | 文本型 | |||||
| leftlen | 整数型 | 左边文本的位置 | ||||
| rightlent | 整数型 | 右边文本的位置 | ||||
如果 (是否为空 (right))
rightlent ＝ 取文本长度 (src) ' 如果未提供右边的文本那么默认到文本末尾
rightlent ＝ 寻找文本 (src, right, 1, 真)leftlen ＝ 寻找文本 (src, left, 1, 真)
如果真 (leftlen ≠ -1 且 rightlent ≠ -1)
retstr ＝ 取文本中间 (src, leftlen ＋ 取文本长度 (left), rightlent ��� (leftlen ＋ 取文本长度 (left)))返回 (retstr)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 获取网络时间 | 日期时间型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 网络时间戳 | 长整数型 | ||||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 网络时间 | 日期时间型 | |||||
' 调试输出 (网络时间)
返回 (网络时间)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| httpWEB | 字节集 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 地址 | 文本型 | 返回的协yi头 | 文本型 | ||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| httpObj | 对象 | |||||
| Object | 变体型 | |||||
| 源代码 | 字节集 | |||||
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 ()
返回 (源代码)