excelhome时间同步工具

lzqlaj

抢红包的时候总是早了或晚了，但时间好像在规定时间之内，最近学习了网络校正时间，发现论坛的时间与百度等服务器上的时间有些不同，通常是慢些，做个小工具便于抢红包，exe形式，可能有1秒的误差，取决于你网速，本工具纯属娱乐，别太较真。

lzqlaj

传个截图。

vfp_new

是个好东西，可惜为何不公开源码让大伙儿学习呢？将它编译成exe？！

lzqlaj

主要代码：
Public Function getTime(RyUrl As String) As Date
    If Len(RyUrl) < 1 Then Exit Function
    Dim oXMLHTTP As Object
    Set oXMLHTTP = CreateObject("Msxml2.ServerXMLHTTP.6.0")
    oXMLHTTP.open "HEAD", RyUrl, False
    oXMLHTTP.send
    Dim sTime As String
    sTime = oXMLHTTP.getResponseHeader("Date")
    sTime = Right(sTime, Len(sTime) - InStr(sTime, ","))
    sTime = Trim(Replace(sTime, "GMT", ""))
    getTime = CDate(Format(sTime, "yyyy年m月d日 hh:mm:ss")) + CDate(Format("08:00:00", "hh:mm:ss"))
    Label2.Caption = getTime
    Set oXMLHTTP = Nothing
End Function
Private Sub Timer7_Timer()
    getTime ("http://www.qq.com/?")
End Sub

lzqlaj

excel-vba里没有Timer控件，vb里有，只能做成exe形式。

akendy

lzqlaj 发表于 2012-5-26 19:41
主要代码：
Public Function getTime(RyUrl As String) As Date
    If Len(RyUrl) < 1 Then Exit Functi ...

getTime ("http://www.qq.com/?")

.com后面加  /及？的作用是什么？