web时间同步器易语言源码 可与任意80端口的服务器进行互联网时间同步

123

只要任意web 80端口服务器返回有效协议头即可获取互联网时间。

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 窗口程序集_启动窗口
   
6. 
   
7. .子程序 __启动窗口_创建完毕
   
8. 
   
9. 客户1.连接 (“qq.com”, 80)
   
10. 客户1.发送数据 ({ 0 })
    
11. 
    
12. .子程序 _客户1_数据到达
    
13. .局部变量 数据, 文本型
    
14. .局部变量 分割, 文本型, , "0"
    
15. .局部变量 计数, 整数型
    
16. .局部变量 星期, 整数型
    
17. .局部变量 日, 整数型
    
18. .局部变量 月, 整数型
    
19. .局部变量 年, 整数型
    
20. .局部变量 GMT, 文本型
    
21. .局部变量 时, 整数型
    
22. .局部变量 分, 整数型
    
23. .局部变量 秒, 整数型
    
24. .局部变量 北京时间, 日期时间型
    
25. 
    
26. 数据 ＝ 到大写 (到文本 (客户1.取回数据 ()))
    
27. 客户1.断开连接 ()
    
28. 分割 ＝ 分割文本 (数据, #换行符, )
    
29. .计次循环首 (取数组成员数 (分割), 计数)
    
30.     .如果真 (取文本左边 (分割 [计数], 5) ＝ “DATE:”)
    
31.         数据 ＝ 分割 [计数]
    
32.         跳出循环 ()
    
33.     .如果真结束
    
34. 
    
35. .计次循环尾 ()
    
36. 分割 ＝ 分割文本 (数据, “ ”, )
    
37. 星期 ＝ GMT到星期 (分割 [2])
    
38. 日 ＝ 到整数 (分割 [3])
    
39. 月 ＝ GMT到月 (分割 [4])
    
40. 年 ＝ 到整数 (分割 [5])
    
41. GMT ＝ 分割 [7]
    
42. 分割 ＝ 分割文本 (分割 [6], “:”, )
    
43. 时 ＝ 到整数 (分割 [1])
    
44. 分 ＝ 到整数 (分割 [2])
    
45. 秒 ＝ 到整数 (分割 [3])
    
46. 北京时间 ＝ 增减时间 (指定时间 (年, 月, 日, 时, 分, 秒), 6, 8)
    
47. 调试输出 (北京时间)
    
48. 置现行时间 (北京时间)
    
49. 
    
50. 
    
51. .子程序 GMT到星期, 整数型
    
52. .参数 文本, 文本型
    
53. 
    
54. .如果真 (文本 ＝ “SUN”)
    
55.     返回 (1)
    
56. .如果真结束
    
57. .如果真 (文本 ＝ “MON”)
    
58.     返回 (2)
    
59. .如果真结束
    
60. .如果真 (文本 ＝ “TUE”)
    
61.     返回 (3)
    
62. .如果真结束
    
63. .如果真 (文本 ＝ “WED”)
    
64.     返回 (4)
    
65. .如果真结束
    
66. .如果真 (文本 ＝ “THU”)
    
67.     返回 (5)
    
68. .如果真结束
    
69. .如果真 (文本 ＝ “FRI”)
    
70.     返回 (6)
    
71. .如果真结束
    
72. .如果真 (文本 ＝ “SAT”)
    
73.     返回 (7)
    
74. .如果真结束
    
75. 返回 (0)
    
76. 
    
77. 
    
78. 
    
79. 
    
80. 
    
81. 
    
82. .子程序 GMT到月, 整数型
    
83. .参数 文本, 文本型
    
84. 
    
85. .如果真 (文本 ＝ “JAN”)
    
86.     返回 (1)
    
87. .如果真结束
    
88. .如果真 (文本 ＝ “FEB”)
    
89.     返回 (2)
    
90. .如果真结束
    
91. .如果真 (文本 ＝ “MAR”)
    
92.     返回 (3)
    
93. .如果真结束
    
94. .如果真 (文本 ＝ “APR”)
    
95.     返回 (4)
    
96. .如果真结束
    
97. .如果真 (文本 ＝ “MAY”)
    
98.     返回 (5)
    
99. .如果真结束
    
100. .如果真 (文本 ＝ “JUN”)
     
101.     返回 (6)
     
102. .如果真结束
     
103. .如果真 (文本 ＝ “JUL”)
     
104.     返回 (7)
     
105. .如果真结束
     
106. .如果真 (文本 ＝ “AUG”)
     
107.     返回 (8)
     
108. .如果真结束
     
109. .如果真 (文本 ＝ “SEP”)
     
110.     返回 (9)
     
111. .如果真结束
     
112. .如果真 (文本 ＝ “OCT”)
     
113.     返回 (10)
     
114. .如果真结束
     
115. .如果真 (文本 ＝ “NOV”)
     
116.     返回 (11)
     
117. .如果真结束
     
118. .如果真 (文本 ＝ “DEC”)
     
119.     返回 (12)
     
120. .如果真结束
     
121. 
     
122. 返回 (0)
     
123. 
     
124. 
     
125. 
     
126. 
     
127. 
     
128. 
     
129. 
     
130. 
     
131. 
     
132. 
     

复制代码

demon

感谢分享。路过暖(水)贴。消灭零回复。

demon

学习了。然后我感觉两个把文本处理成数字的子程序可以改成这样。可能会更好看一些。。。

1. .版本 2
   
2. 
   
3. .子程序 星期到数字, 整数型
   
4. .参数 文本, 文本型
   
5. .局部变量 星期, 文本型, , "7"
   
6. .局部变量 i, 整数型
   
7. 
   
8. 星期 ＝ { “SUN”, “MON”, “TUE”, “WED”, “THU”, “FRI”, “SAT” }
   
9. .计次循环首 (取数组成员数 (星期), i)
   
10.     .如果真 (文本 ＝ 星期 [i])
    
11.         返回 (i)
    
12.     .如果真结束
    
13. 
    
14. .计次循环尾 ()
    
15. 返回 (0)
    
16. 
    
17. .子程序 月份到数字, 整数型
    
18. .参数 文本, 文本型
    
19. .局部变量 月份, 文本型, , "12"
    
20. .局部变量 i, 整数型
    
21. 
    
22. 月份 ＝ { “JAN”, “FEB”, “MAR”, “APR”, “MAY”, “JUN”, “JUL”, “AUG”, “SEP”, “OCT”, “NOV”, “DEC” }
    
23. .计次循环首 (取数组成员数 (月份), i)
    
24.     .如果真 (文本 ＝ 月份 [i])
    
25.         返回 (i)
    
26.     .如果真结束
    
27. 
    
28. .计次循环尾 ()
    
29. 返回 (0)
    

复制代码

Kuni7wa

呵呵，和远程的原子钟实时同步，可以啊。。

主人

Kuni7wa 发表于 2017-9-22 17:12
呵呵，和远程的原子钟实时同步，可以啊。。

其实你每天同步的网络时间都是原子钟哪里的。