VB UTC+8校正 源码

小歆11年前软件源码02626
Function HttpGet(url)

    With CreateObject("Msxml2.ServerXMLHTTP")
        .open "GET", url, False
        .send
        HttpGet = .responseText
    End With

End Function

Private Sub cmd_Click()
    Dim aa As Date
        a = HttpGet("http://open.baidu.com/special/time/")
        a = Split(a, "window.baidu_time(")
        a = Split(a(1), ");")
        a = a(0)
        a = a / 1000
        aa = #1/1/1970#
        a = DateAdd("s", a, "1970-1-1 0:0:0")
        a = DateAdd("h", 8, a)
        lblLabel1.Caption = a
        lblLabel2.Caption = Now
        a = Split(a, " ")
        Date = a(0)
        Time = a(1)
    MsgBox "校正完毕", vbInformation, ""
End Sub

Private Sub Form_Load()
  a = HttpGet("http://open.baidu.com/special/time/")
        a = Split(a, "window.baidu_time(")
        a = Split(a(1), ");")
        a = a(0)
        a = a / 1000
        aa = #1/1/1970#
        a = DateAdd("s", a, "1970-1-1 0:0:0")
        a = DateAdd("h", 8, a)
        lblLabel1.Caption = a
        lblLabel2.Caption = Now
End Sub

相关文章

vb中Msgbox函数的用法

VB中的Msgbox函数,可实现弹出窗口 作用:在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。 语法: MsgBox...

VB操作INI文件方案

VB读写ini文件(1) 自从注册表诞生以来ini文件正在逐渐失去其市场占有率,然而基于ini文件的独立性,致使其还没有到达退出历史舞台的地步,很多应用程序的初始化和一些界面参数的设置仍然很愿意...

Base64加密解密VB源码

base64加密模块 用法:Base64Encode(‘加密字符') Option Explicit Publ...

高考倒计时4.5.jpg

[小歆][高考倒计时][V4.5][终结版][2012.10.01]

高考倒计时 V4.5 终结版 软件介绍:     1.《高考倒计时 V4.5》是本软件的终结版,增强界面完美无BUG强化;   &nbs...

VB键盘代码真值表

VB键盘代码常量 值 (0x...

【详解】VB6.0下用MSComm控件实现串口通信

VB6.0 下用 MSComm 控件实现串口通信 MSComm 控件通过串行端口传输和接收数据,为应用程序提供串行通讯功能 下...

发表评论    

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。