|
|
发表于 2011-9-12 08:17:33
|
显示全部楼层
广东省茂名市
我看你的问题 我不是很懂 我把我的一个源码给你看看吧 是取一个时间校正网页中的当前时间 原理是一样的 你仔细研究下吧
.版本 2
.支持库 internet
.程序集 窗口程序集1
.程序集变量 网页文本, 文本型
.程序集变量 临时文本, 文本型
.程序集变量 所需文本, 文本型, , "0"
.程序集变量 中间时间, 文本型, , "0"
.子程序 _按钮1_被单击
网页文本 = 到文本 (HTTP读文件 (“http://www.time.ac.cn/stime.asp”)) ' 这是国家授时中心网络服务器时间发布网站
所需文本 = 分割文本 (网页文本, “服务器时间:”, ) ' 将取回的文本分割,因为我们需要的网络时间在其后面
.如果真 (取数组成员数 (所需文本) < 2) ' 判断是否取回所需数据
信息框 (“取网络时间失败!链接网络不成功!”, 0 + #信息图标, “网络校时:”)
返回 ()
.如果真结束
临时文本 = 所需文本 [2]
所需文本 = 分割文本 (临时文本, “document.write('”, )
中间时间 = 分割文本 (所需文本 [3], “')”, )
编辑框1.内容 = 中间时间 [1] ' 取出年/月/日
临时文本 = 所需文本 [6]
所需文本 = 分割文本 (临时文本, “var hrs = ”, )
临时文本 = 所需文本 [2]
中间时间 = 分割文本 (临时文本, “;”, )
编辑框2.内容 = 中间时间 [1] ' 取出小时
所需文本 = 分割文本 (临时文本, “var min = ”, )
临时文本 = 所需文本 [2]
中间时间 = 分割文本 (临时文本, “;”, )
编辑框3.内容 = 中间时间 [1] ' 取出分钟
所需文本 = 分割文本 (临时文本, “var sec = ”, )
临时文本 = 所需文本 [2]
中间时间 = 分割文本 (临时文本, “;”, )
编辑框4.内容 = 中间时间 [1] ' 取出秒 |
|