取北京时间，不知道这个效率还行不行。网络获取北京时间。

R7777777

正在努力学习中

骇客技术

墨晨 发表于 2019-5-31 13:32
[e=0].版本 2
.支持库 internet

.版本 2

.局部变量 http, WinInet


http.Open (“HEAD”, “http://time1903.beijing-time.org/time.asp”)
http.Send (, )
' http.GetResponseHeader (“Date”)
返回 (http.GetResponseHeader (“Date”))

发现鱼刺还是这个最快WinInet
试试这个,理论上只要头部信息比body是要快的

墨晨

  

子程序名	返回值类型	公开	备 注
墨晨	文本型

变量名	类 型	静态	数组	备 注
t	双精度小数型
http	WinHttpW
日期文本	文本型

日期文本 ＝ 功能_网页访问 ()
返回 (取文本左边 (日期文本, 16) ＋ “星期” ＋ 取文本右边 (日期文本, 1))

子程序名	返回值类型	公开	备 注
功能_网页访问	文本型		网络时间无需取到秒无法精确到秒有误差

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_方式	整数型
局_结果	字节集
局_返回	文本型
局_时间数组	文本型		0
局_i	整数型
局_新时间	文本型
局_北京时间	文本型
局_星期数	文本型

局_网址 ＝ “http://time1903.beijing-time.org/time.asp”
局_方式 ＝ 0
局_结果 ＝ 网页_访问 (局_网址, 局_方式)
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))
文本_取中间_批量 (局_返回, “=”, “;”, 局_时间数组, , , , , , , )
局_i ＝ 2
判断循环首 (取数组成员数 (局_时间数组) ＞ 局_i)
处理事件 ()
判断 (取文本长度 (局_时间数组 [局_i]) ＜ 2)
局_新时间 ＝ “0” ＋ 到文本 (局_时间数组 [局_i])
局_新时间 ＝ 局_时间数组 [局_i]
判断 (局_i ＝ 2)
局_北京时间 ＝ 局_新时间
判断 (局_i ＝ 5)
局_星期数 ＝ 局_时间数组 [局_i]
局_北京时间 ＝ 局_北京时间 ＋ “-” ＋ 局_新时间
局_i ＝ 局_i ＋ 1
判断循环尾 ()
返回 (局_北京时间 ＋ “|” ＋ 局_星期数)

子程序名	返回值类型	公开	备 注
骇客技术	文本型

变量名	类 型	静态	数组	备 注
http	WinHttpW

http.Auto ()
http.Open (“HEAD”, “http://time1903.beijing-time.org/time.asp”)
http.Send (, , )
' http.GetResponseHeader (“Date”)
返回 (http.GetResponseHeader (“Date”))

子程序名	返回值类型	公开	备 注
yppy988现在时间	日期时间型

变量名	类 型	静态	数组	备 注
时间	文本型
L1	整数型
L2	整数型

时间 ＝ 到文本 (HTTP读文件 (“http://quan.suning.com/getSysTime.do”))
如果真 (时间 ＝ “”)
返回 (取现行时间 ())
L1 ＝ 寻找文本 (时间, #引号 ＋ “:” ＋ #引号, , 假) ＋ 3
L2 ＝ 寻找文本 (时间, #引号, L1, 假)
返回 (到时间 (取文本中间 (时间, L1, L2 － L1)))

子程序名	返回值类型	公开	备 注
墨晨2	文本型

变量名	类 型	静态	数组	备 注
时间字节集	字节集

时间字节集 ＝ HTTP读文件 (“http://quan.suning.com/getSysTime.do”)
判断 (时间字节集 ＝ {  })
返回 (“”)



返回 (取文本左边 (取文本右边 (到文本 (时间字节集), 16), 14))

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br /> .支持库 internet<br /> <br /> .子程序 墨晨, 文本型<br /> .局部变量 t, 双精度小数型<br /> .局部变量 http, WinHttpW<br /> .局部变量 日期文本, 文本型<br /> <br /> <br /> 日期文本 ＝ 功能_网页访问 ()<br /> 返回 (取文本左边 (日期文本, 16) ＋ “星期” ＋ 取文本右边 (日期文本, 1))<br /> <br /> <br /> <br /> .子程序 功能_网页访问, 文本型, , 网络时间无需取到秒无法精确到秒有误差<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_方式, 整数型<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> .局部变量 局_时间数组, 文本型, , "0"<br /> .局部变量 局_i, 整数型<br /> .局部变量 局_新时间, 文本型<br /> .局部变量 局_北京时间, 文本型<br /> .局部变量 局_星期数, 文本型<br /> <br /> 局_网址 ＝ “http://time1903.beijing-time.org/time.asp”<br /> 局_方式 ＝ 0<br /> 局_结果 ＝ 网页_访问 (局_网址, 局_方式)<br /> 局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))<br /> 文本_取中间_批量 (局_返回, “=”, “;”, 局_时间数组, , , , , , , )<br /> 局_i ＝ 2<br /> .判断循环首 (取数组成员数 (局_时间数组) ＞ 局_i)<br />     处理事件 ()<br />     .判断开始 (取文本长度 (局_时间数组 [局_i]) ＜ 2)<br />         局_新时间 ＝ “0” ＋ 到文本 (局_时间数组 [局_i])<br />     .默认<br />         局_新时间 ＝ 局_时间数组 [局_i]<br />     .判断结束<br />     .判断开始 (局_i ＝ 2)<br />         局_北京时间 ＝ 局_新时间<br />     .默认<br />         .判断开始 (局_i ＝ 5)<br />             局_星期数 ＝ 局_时间数组 [局_i]<br />         .默认<br />             局_北京时间 ＝ 局_北京时间 ＋ “-” ＋ 局_新时间<br />         .判断结束<br /> <br />     .判断结束<br />     局_i ＝ 局_i ＋ 1<br /> .判断循环尾 ()<br /> 返回 (局_北京时间 ＋ “|” ＋ 局_星期数)<br /> <br /> <br /> .子程序 骇客技术, 文本型<br /> .局部变量 http, WinHttpW<br /> <br /> http.Auto ()<br /> http.Open (“HEAD”, “http://time1903.beijing-time.org/time.asp”)<br /> http.Send (, , )<br /> ' http.GetResponseHeader (“Date”)<br /> 返回 (http.GetResponseHeader (“Date”))<br /> <br /> .子程序 yppy988现在时间, 日期时间型<br /> .局部变量 时间, 文本型<br /> .局部变量 L1, 整数型<br /> .局部变量 L2, 整数型<br /> <br /> 时间 ＝ 到文本 (HTTP读文件 (“http://quan.suning.com/getSysTime.do”))<br /> .如果真 (时间 ＝ “”)<br />     返回 (取现行时间 ())<br /> .如果真结束<br /> L1 ＝ 寻找文本 (时间, #引号 ＋ “:” ＋ #引号, , 假) ＋ 3<br /> L2 ＝ 寻找文本 (时间, #引号, L1, 假)<br /> 返回 (到时间 (取文本中间 (时间, L1, L2 － L1)))<br /> <br /> .子程序 墨晨2, 文本型<br /> .局部变量 时间字节集, 字节集<br /> <br /> 时间字节集 ＝ HTTP读文件 (“http://quan.suning.com/getSysTime.do”)<br /> .判断开始 (时间字节集 ＝ {  })<br />     返回 (“”)<br /> <br /> .默认<br /> <br />     返回 (取文本左边 (取文本右边 (到文本 (时间字节集), 16), 14))<br /> .判断结束

墨晨2借用了易友

yppy988 提供的网站获取信息。效率都一样了。只能看截取字符串的效率了。用json解析不知道会不会快一些。

3304846256

        支持开源~！感谢分享

吃干饭的锅

感谢分享、

tayuyu

回复一下，证明来过

10008508

加上网络请求时间60-80毫秒返回，这个应该还可以吧

懒人定制软件

感谢你的支持，精易有你更精彩  

yppy988

[e]
.版本 2
.支持库 internet

.子程序 现在时间, 日期时间型
.局部变量 时间, 文本型
.局部变量 L1, 整数型
.局部变量 L2, 整数型

时间 ＝ 到文本 (HTTP读文件 (“http://quan.suning.com/getSysTime.do”))
.如果真 (时间 ＝ “”)
    返回 (取现行时间 ())
.如果真结束
L1 ＝ 寻找文本 (时间, #引号 ＋ “:” ＋ #引号, , 假) ＋ 3
L2 ＝ 寻找文本 (时间, #引号, L1, 假)
返回 (到时间 (取文本中间 (时间, L1, L2 － L1)))

[/e]

yppy988

[e]
.版本 2
.支持库 internet

.子程序 现在时间, 日期时间型
.局部变量 时间, 文本型
.局部变量 L1, 整数型
.局部变量 L2, 整数型

时间 ＝ 到文本 (HTTP读文件 (“http://quan.suning.com/getSysTime.do”))
.如果真 (时间 ＝ “”)
    返回 (取现行时间 ())
.如果真结束
L1 ＝ 寻找文本 (时间, #引号 ＋ “:” ＋ #引号, , 假) ＋ 3
L2 ＝ 寻找文本 (时间, #引号, L1, 假)
返回 (到时间 (取文本中间 (时间, L1, L2 － L1)))

[/e]