| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 338 人关注过本帖
标题:获取网络授时数据
只看楼主 收藏
schtg
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:13
帖 子:422
专家分:562
注 册:2012-2-29
结帖率:80%
  已结贴   问题点数:20  回复次数:4   
获取网络授时数据
各位大侠,请问用VFP程序如何从http://www.qinghong.net.cn/NTS/time.html获取时间数据(有年月日即可,不从本地系统中获取)?谢谢!
2018-01-05 16:32
吹水佬
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:141
帖 子:5850
专家分:25389
注 册: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
等 级:贵宾
威 望:13
帖 子:422
专家分:562
注 册:2012-2-29
  得分:0 
回复 2楼 吹水佬
吹版,非常感谢!
2018-01-06 07:14
红星二锅头
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:29
帖 子:358
专家分:557
注 册: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
等 级:贵宾
威 望:13
帖 子:422
专家分:562
注 册:2012-2-29
  得分:0 
回复 4楼 红星二锅头
谢谢!多学一招!
2018-01-07 07:26







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

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