怎么获取路途服务器时间，精确到秒，并实时同步显示

随风而落

就以精易论坛为列，怎么获取论坛服务器的准确时间，并同步显示到标签或者编辑框之类。

就像获取北京时间那种。
像图片下那种时间。

麻烦给个精易论坛的列子。

还有怎么设置随机时间发表内容。
随机时间段可以在外面设置填写。

新建 易程序.rar (961 Bytes, 下载次数: 86)

2013-5-27 22:41 上传

点击文件名下载附件

缺德哥哥

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

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

变量名	类 型	静态	数组	备 注
XML对象	对象
时间文本	文本型

按钮1.禁止 ＝ 真
如果真 (XML对象.创建 (“MSXML2.XMLHTTP”, ) ＝ 假)
如果真 (XML对象.创建 (“Microsoft.XMLHTTP”, ) ＝ 假)
返回 ()

XML对象.方法 (“open”, 编辑框2.内容, 编辑框1.内容, 假)
XML对象.方法 (“send”, )
时间文本 ＝ XML对象.读文本属性 (“getResponseHeader”, “Date”)
标签1.标题 ＝ “当前服务器时间为：” ＋ 到文本 (时间格式化 (时间文本))
按钮1.禁止 ＝ 假

子程序名	返回值类型	公开	备 注
时间格式化	日期时间型
参数名	类 型	参考	可空	数组	备 注
时间文本	文本型

变量名	类 型	静态	数组	备 注
临时数组	文本型		0
临时变量	文本型
时间变量	日期时间型
临时时间	日期时间型
日	文本型
月	文本型
年	文本型
时	文本型
分	文本型
秒	文本型

临时数组 ＝ 分割文本 (时间文本, “, ”, )
临时变量 ＝ 临时数组 [2]
临时变量 ＝ 子文本替换 (临时变量, “ GMT”, , , , 真)
清除数组 (临时数组)
临时数组 ＝ 分割文本 (临时变量, “ ”, )
日 ＝ 临时数组 [1]
判断 (临时数组 [2] ＝ “Jan”)
月 ＝ “01”
判断 (临时数组 [2] ＝ “Feb”)
月 ＝ “02”
判断 (临时数组 [2] ＝ “Mar”)
月 ＝ “03”
判断 (临时数组 [2] ＝ “Apr”)
月 ＝ “04”
判断 (临时数组 [2] ＝ “Mar”)
月 ＝ “05”
判断 (临时数组 [2] ＝ “Jun”)
月 ＝ “06”
判断 (临时数组 [2] ＝ “Jul”)
月 ＝ “07”
判断 (临时数组 [2] ＝ “Aug”)
月 ＝ “08”
判断 (临时数组 [2] ＝ “Sep”)
月 ＝ “09”
判断 (临时数组 [2] ＝ “Oct”)
月 ＝ “10”
判断 (临时数组 [2] ＝ “Nov”)
月 ＝ “11”
判断 (临时数组 [2] ＝ “Dec”)
月 ＝ “12”


年 ＝ 临时数组 [3]
临时变量 ＝ 临时数组 [4]
清除数组 (临时数组)
临时数组 ＝ 分割文本 (临时变量, “:”, )
时 ＝ 到文本 (到整数 (临时数组 [1]))
分 ＝ 临时数组 [2]
秒 ＝ 临时数组 [3]
时间变量 ＝ 到时间 (年 ＋ “/” ＋ 月 ＋ “/” ＋ 日 ＋ “/” ＋ 时 ＋ “/” ＋ 分 ＋ “/” ＋ 秒)
时间变量 ＝ 增减时间 (时间变量, #小时, 8)  ' 转换为北京时间
返回 (时间变量)

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 XML对象, 对象<br /> .局部变量 时间文本, 文本型<br /> <br /> 按钮1.禁止 ＝ 真<br /> .如果真 (XML对象.创建 (“MSXML2.XMLHTTP”, ) ＝ 假)<br />     .如果真 (XML对象.创建 (“Microsoft.XMLHTTP”, ) ＝ 假)<br />         返回 ()<br />     .如果真结束<br /> <br /> .如果真结束<br /> XML对象.方法 (“open”, 编辑框2.内容, 编辑框1.内容, 假)<br /> XML对象.方法 (“send”, )<br /> <br /> 时间文本 ＝ XML对象.读文本属性 (“getResponseHeader”, “Date”)<br /> <br /> 标签1.标题 ＝ “当前服务器时间为：” ＋ 到文本 (时间格式化 (时间文本))<br /> <br /> 按钮1.禁止 ＝ 假<br /> <br /> .子程序 时间格式化, 日期时间型<br /> .参数 时间文本, 文本型<br /> .局部变量 临时数组, 文本型, , "0"<br /> .局部变量 临时变量, 文本型<br /> .局部变量 时间变量, 日期时间型<br /> .局部变量 临时时间, 日期时间型<br /> .局部变量 日, 文本型<br /> .局部变量 月, 文本型<br /> .局部变量 年, 文本型<br /> .局部变量 时, 文本型<br /> .局部变量 分, 文本型<br /> .局部变量 秒, 文本型<br /> <br /> 临时数组 ＝ 分割文本 (时间文本, “, ”, )<br /> 临时变量 ＝ 临时数组 [2]<br /> 临时变量 ＝ 子文本替换 (临时变量, “ GMT”, , , , 真)<br /> 清除数组 (临时数组)<br /> 临时数组 ＝ 分割文本 (临时变量, “ ”, )<br /> 日 ＝ 临时数组 [1]<br /> .判断开始 (临时数组 [2] ＝ “Jan”)<br />     月 ＝ “01”<br /> .判断 (临时数组 [2] ＝ “Feb”)<br />     月 ＝ “02”<br /> .判断 (临时数组 [2] ＝ “Mar”)<br />     月 ＝ “03”<br /> .判断 (临时数组 [2] ＝ “Apr”)<br />     月 ＝ “04”<br /> .判断 (临时数组 [2] ＝ “Mar”)<br />     月 ＝ “05”<br /> .判断 (临时数组 [2] ＝ “Jun”)<br />     月 ＝ “06”<br /> .判断 (临时数组 [2] ＝ “Jul”)<br />     月 ＝ “07”<br /> .判断 (临时数组 [2] ＝ “Aug”)<br />     月 ＝ “08”<br /> .判断 (临时数组 [2] ＝ “Sep”)<br />     月 ＝ “09”<br /> .判断 (临时数组 [2] ＝ “Oct”)<br />     月 ＝ “10”<br /> .判断 (临时数组 [2] ＝ “Nov”)<br />     月 ＝ “11”<br /> .判断 (临时数组 [2] ＝ “Dec”)<br />     月 ＝ “12”<br /> .默认<br /> <br /> .判断结束<br /> 年 ＝ 临时数组 [3]<br /> 临时变量 ＝ 临时数组 [4]<br /> 清除数组 (临时数组)<br /> 临时数组 ＝ 分割文本 (临时变量, “:”, )<br /> 时 ＝ 到文本 (到整数 (临时数组 [1]))<br /> 分 ＝ 临时数组 [2]<br /> 秒 ＝ 临时数组 [3]<br /> 时间变量 ＝ 到时间 (年 ＋ “/” ＋ 月 ＋ “/” ＋ 日 ＋ “/” ＋ 时 ＋ “/” ＋ 分 ＋ “/” ＋ 秒)<br /> 时间变量 ＝ 增减时间 (时间变量, #小时, 8)  ' 转换为北京时间<br /> 返回 (时间变量)

随风而落

自己来顶个

abc16

LZ要做坏事啊？

wxdjf0212

服务器时间跟本地的不是一样的？取本地时间有影响吗？

yaoming110

yaoming110

表达式改下 :把\d 改成\S
S 大写