开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 5535|回复: 16
收起左侧

[易语言软件开源] 获取百度时间源码

[复制链接]
结帖率:0% (0/1)
发表于 2010-10-1 03:54:21 | 显示全部楼层 |阅读模式   广东省东莞市
分享源码
界面截图: -
是否带模块: -
备注说明: -
  1. .版本 2
  2. .支持库 internet

  3. .程序集 窗口程序集1

  4. .子程序 获取百度时间
  5. .局部变量 st1, 文本型
  6. .局部变量 st2, 整数型
  7. .局部变量 st3, 文本型
  8. .局部变量 时间差, 整数型

  9. st1 = 到文本 (HTTP读文件 (“ http://open.baidu.com/app?module=beijingtime”))
  10. ' 超级延时 (300)
  11. st2 = 寻找文本 (st1, “:1”, 0, 真)
  12. st3 = 取文本中间 (st1, st2 + 1, 10) ' 准确到秒
  13. 时间差 = 到整数 (st3) - #参照值
  14. 现在时间 = 增减时间 (#参照日期, #秒, 时间差)
  15. 时间1 = 到文本 (现在时间) ' 准确到秒
  16. 标签1.标题 = 时间1


  17. .子程序 _时钟1_周期事件

  18. 获取百度时间 ()


  19. .子程序 __启动窗口_创建完毕

  20. 时钟1.时钟周期 = 1000
复制代码


  1. .版本 2
  2. .常量 参照值, "1285785131"
  3. .常量 参照日期, "[2010年9月30日2时32分11秒]"

复制代码


希望大家别笑话我,呵呵
11.jpg

结帖率:67% (16/24)
发表于 2010-10-1 05:22:53 | 显示全部楼层   广东省广州市
用对象更好,不然人家网速慢就不行了
回复 支持 反对

使用道具 举报

结帖率:100% (1/1)
发表于 2010-10-1 07:07:21 | 显示全部楼层   浙江省宁波市
关注了     顶你```不论效果怎么样```在论坛发帖   
给大家研究   讨论就   顶{:3_233:}
回复 支持 反对

使用道具 举报

结帖率:0% (0/1)
发表于 2010-10-3 09:02:25 | 显示全部楼层   广东省*
很不错的说~~
回复 支持 反对

使用道具 举报

结帖率:0% (0/1)
 楼主| 发表于 2010-10-10 21:48:37 | 显示全部楼层   广东省东莞市
回复 2# 【微凉清风】


    可以给个源码学习下?
回复 支持 反对

使用道具 举报

结帖率:67% (16/24)
发表于 2010-10-10 23:08:08 | 显示全部楼层   广东省广州市
.版本 2

.子程序 系统_取网络时间, 文本型, 公开
.局部变量 XML对象, 对象
.局部变量 时间文本, 文本型

.如果真 (XML对象.创建 (“MSXML2.XMLHTTP”, ) = 假)
    .如果真 (XML对象.创建 (“Microsoft.XMLHTTP”, ) = 假)
        返回 (“获取失败”)
    .如果真结束

.如果真结束

XML对象.方法 (“open”, “GET”, “http://www.baidu.com/”, 假)
XML对象.方法 (“send”, )
时间文本 = XML对象.读文本属性 (“getResponseHeader”, “Date”)

返回 (到文本 (时间文本))
回复 支持 反对

使用道具 举报

结帖率:0% (0/1)
 楼主| 发表于 2010-10-10 23:39:28 | 显示全部楼层   广东省东莞市
回复 7# 【微凉清风】


    不是很熟练对象,不过貌似比我的简洁多,谢谢
回复 支持 反对

使用道具 举报

结帖率:0% (0/1)
 楼主| 发表于 2010-10-11 10:40:39 | 显示全部楼层   广东省东莞市
.版本 2

.子程序 月份转换, 文本型
.参数 jx, 文本型

.如果真 (jx = “Jan ”)
    返回 (“1-”)
.如果真结束
.如果真 (jx = “Feb ”)
    返回 (“2-”)
.如果真结束
.如果真 (jx = “Mar ”)
    返回 (“3-”)
.如果真结束
.如果真 (jx = “Apr ”)
    返回 (“4-”)
.如果真结束
.如果真 (jx = “May ”)
    返回 (“5-”)
.如果真结束
.如果真 (jx = “June”)
    返回 (“6-”)
.如果真结束
.如果真 (jx = “July”)
    返回 (“7-”)
.如果真结束
.如果真 (jx = “Aug ”)
    返回 (“8-”)
.如果真结束
.如果真 (jx = “Sept”)
    返回 (“9-”)
.如果真结束
.如果真 (jx = “Oct ”)
    返回 (“10-”)
.如果真结束
.如果真 (jx = “Nov ”)
    返回 (“11-”)
.如果真结束
.如果真 (jx = “Dec ”)
    返回 (“12-”)
.如果真结束

返回 (“”)

.子程序 系统_取网络时间, 文本型, 公开
.局部变量 XML对象, 对象
.局部变量 时间文本, 文本型
.局部变量 sjrq, 文本型
.局部变量 yf, 文本型
.局部变量 xj, 文本型
.局部变量 nf, 文本型

.如果真 (XML对象.创建 (“MSXML2.XMLHTTP”, ) = 假)
    .如果真 (XML对象.创建 (“Microsoft.XMLHTTP”, ) = 假)
        返回 (“获取失败”)
    .如果真结束

.如果真结束

XML对象.方法 (“open”, “GET”, “http://www.baidu.com/”, 假)
XML对象.方法 (“send”, )
时间文本 = XML对象.读文本属性 (“getResponseHeader”, “Date”)
sjrq = 取文本中间 (时间文本, 寻找文本 (时间文本, “,”, , 假) + 2, 20)
yf = 月份转换 (取文本中间 (sjrq, 4, 4))
xj = 取文本右边 (sjrq, 9)
nf = 取文本中间 (sjrq, 8, 4)
sjrq = nf + “-” + yf + 取文本左边 (sjrq, 2) + xj
sjrq = 到文本 (增减时间 (到时间 (sjrq), #小时, 8))
返回 (sjrq)
回复 支持 反对

使用道具 举报

结帖率:67% (4/6)

签到天数: 3 天

发表于 2010-10-23 13:58:13 | 显示全部楼层   浙江省温州市
很不错{:3_244:}
回复 支持 反对

使用道具 举报

头像被屏蔽
发表于 2010-10-23 22:22:19 | 显示全部楼层   广东省东莞市
谢谢。学习了。。顶了。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表