协议取网络时间内置13个热门网址，永不过期！！

766711831 · 发表于 2024-1-18 13:23:30

本帖最后由 766711831 于 2024-1-19 06:57 编辑

取时间.zip (389.02 KB, 下载次数: 40)

lhn0925 · 发表于 2025-1-3 09:31:42

学习一下

firstcmm · 发表于 2024-10-10 12:13:38

正需要这个

pq9999 · 发表于 2024-6-13 07:41:15

正需要这个

caohuimen · 发表于 2024-4-25 21:39:01

.版本 2

.子程序取网络时间, 文本型, , 参数返回： 0=年，1=月，2=日，3=时，4=分，5=秒，6=完整时间，7=时间戳
.参数输入, 整数型
.局部变量局_返回协议头, 文本型
.局部变量局_正则, 正则表达式类
.局部变量局_取出时间, 文本型
.局部变量返回, 文本型
.局部变量网址, 文本型
.局部变量集合_网址, 文本型, , "0"
.局部变量 i, 整数型

加入成员 (集合_网址, “http://www.baidu.com”)
加入成员 (集合_网址, “http://www.cctv.com”)
加入成员 (集合_网址, “http://www.taobao.com”)
加入成员 (集合_网址, “http://www.qq.com”)
加入成员 (集合_网址, “http://www.gov.cn”)
.计次循环首 (5, i)
局_返回协议头＝ “”
返回＝ “”
网页_访问_对象 (集合_网址 , 0, , , , , 局_返回协议头, , , , , 1, , , , )
.如果真 (寻找文本 (局_返回协议头, “GMT”, 1, 假) ≥ 1)
      局_正则.创建 (“Thu, (.*?) GMT”, 局_返回协议头, 真, 假, 真, 假)
      局_取出时间＝局_正则.取匹配文本 (1)
.如果真结束
.如果真 (寻找文本 (局_取出时间, “GMT”, 1, 假) ≥ 1)
      局_取出时间＝到文本 (时间_GMT转为时间 (局_取出时间))
.如果真结束
.如果真 (寻找文本 (局_取出时间, “年”, 1, 假) ≥ 1 且输入＝ 0)
      局_正则.创建 (“[0-9]+年”, 局_取出时间, 真, 假, 真, 假)
      返回＝局_正则.取匹配文本 (1)
      返回＝子文本替换 (返回, “年”, “”, 1, 1, 假)
      跳出循环 ()
.如果真结束
.如果真 (寻找文本 (局_取出时间, “月”, 1, 假) ≥ 1 且输入＝ 1)
      局_正则.创建 (“[0-9]+月”, 局_取出时间, 真, 假, 真, 假)
      返回＝局_正则.取匹配文本 (1)
      返回＝子文本替换 (返回, “月”, “”, 1, 1, 假)
      跳出循环 ()
.如果真结束
.如果真 (寻找文本 (局_取出时间, “日”, 1, 假) ≥ 1 且输入＝ 2)
      局_正则.创建 (“[0-9]+日”, 局_取出时间, 真, 假, 真, 假)
      返回＝局_正则.取匹配文本 (1)
      返回＝子文本替换 (返回, “日”, “”, 1, 1, 假)
      跳出循环 ()
.如果真结束
.如果真 (寻找文本 (局_取出时间, “时”, 1, 假) ≥ 1 且输入＝ 3)
      局_正则.创建 (“[0-9]+时”, 局_取出时间, 真, 假, 真, 假)
      返回＝局_正则.取匹配文本 (1)
      返回＝子文本替换 (返回, “时”, “”, 1, 1, 假)
      跳出循环 ()
.如果真结束
.如果真 (寻找文本 (局_取出时间, “分”, 1, 假) ≥ 1 且输入＝ 4)
      局_正则.创建 (“[0-9]+分”, 局_取出时间, 真, 假, 真, 假)
      返回＝局_正则.取匹配文本 (1)
      返回＝子文本替换 (返回, “分”, “”, 1, 1, 假)
      跳出循环 ()
.如果真结束
.如果真 (寻找文本 (局_取出时间, “秒”, 1, 假) ≥ 1 且输入＝ 5)
      局_正则.创建 (“[0-9]+秒”, 局_取出时间, 真, 假, 真, 假)
      返回＝局_正则.取匹配文本 (1)
      返回＝子文本替换 (返回, “秒”, “”, 1, 1, 假)
      跳出循环 ()
.如果真结束
.如果真 (寻找文本 (局_取出时间, “秒”, 1, 假) ≥ 1 且输入＝ 6)
      返回＝局_取出时间
      跳出循环 ()
.如果真结束
.如果真 (寻找文本 (局_取出时间, “秒”, 1, 假) ≥ 1 且输入＝ 7)
      返回＝时间_到时间戳 (到时间 (局_取出时间), 真) ＋到文本 (取随机数 (0, 9)) ＋到文本 (取随机数 (0, 9)) ＋到文本 (取随机数 (0, 9))
      跳出循环 ()
.如果真结束

.计次循环尾 ()

返回 (返回)

看原理大概就是这个样子

蓝雅婷 · 发表于 2024-4-13 21:12:10

怎么没源码

蓝雅婷 · 发表于 2024-4-13 21:11:33

很好很强大

StarYuhen · 发表于 2024-3-19 22:28:32

永不过期？这么厉害

a623539929 · 发表于 2024-3-16 15:14:15

6666666666666

lai1985 · 发表于 2024-2-21 03:28:13

谢谢了看看！！！！！！！！！！！！

ebhb · 发表于 2024-2-16 11:21:12

就是取返回标志里面的时间吗？

		自动登录	找回密码
密码			注册

[易语言成品模块] 协议取网络时间内置13个热门网址，永不过期！！