| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
大量收QQ微信精准粉/交友粉,非诚勿扰千里之行 始于足下
共有 479 人关注过本帖
标题:获取网络授时数据
只看楼主 加入收藏
schtg
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:16
帖 子:496
专家分:661
注 册:2012-2-29
结帖率:81.82%
  已结贴   问题点数:20  回复次数:4   
获取网络授时数据
各位大侠,请问用VFP程序如何从http://www.qinghong.net.cn/NTS/time.html获取时间数据(有年月日即可,不从本地系统中获取)?谢谢!
2018-01-05 16:32
吹水佬
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:160
帖 子:6230
专家分:27285
注 册:2014-5-20
  得分:20 
有个问题,服务中止或停止和网页更改可能就失效。

of = CREATEOBJECT("form1")
of.show(1)

DEFINE CLASS form1 as form
    ADD OBJECT edit1 as editbox WITH top=10,left=10,width=300,height=200
    ADD OBJECT WB as Olecontrol WITH width=0,OleClass="Shell.Explorer.2"
 
    PROCEDURE Init
        this.WB.Silent = .T.
        this.WB.Navigate("http://www.qinghong.net.cn/NTS/time.html", 0, NULL, NULL, NULL)
    ENDPROC

    PROCEDURE WB.documentComplete(pdisp, url)
        IF (SYS(3095, pdisp) == SYS(3095, this))
            DO WHILE EMPTY(thisform.WB.document.getElementById("web").innerHTML)
                INKEY(1)
            ENDDO
            thisform.edit1.seltext = thisform.WB.document.getElementById("web").innerHTML+0h0D
        ENDIF
    ENDPROC
ENDDEFINE
附件: 您没有浏览附件的权限,请 登录注册
2018-01-05 23:19
schtg
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:16
帖 子:496
专家分:661
注 册:2012-2-29
  得分:0 
回复 2楼 吹水佬
吹版,非常感谢!
2018-01-06 07:14
红星二锅头
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:38
帖 子:445
专家分:670
注 册:2016-8-25
  得分:0 
oHTTP = Createobject("Microsoft.XMLHTTP")
oHTTP.Open("Get", 'https://www.timeanddate.com/worldclock/china/beijing', .F.)
oHTTP.Send()
? Iif(oHTTP.Status = 200, Strextract(oHTTP.ResponseText, [<span id=ctdat>], [</span>]), "错误!")

团队红星二锅头,队长王猛,领队李冲,顾问杨伟,副队张挺,外联马彪,内勤韩秀,人事顾闯,财务赵魁,后勤周强
2018-01-06 20:43
schtg
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:16
帖 子:496
专家分:661
注 册:2012-2-29
  得分:0 
回复 4楼 红星二锅头
谢谢!多学一招!
2018-01-07 07:26







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024635 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved