再也不用设置烦人的时间了

　　我的台式机很早以前就出了问题，现象是通电开机后，系统时间总是被归零，而重启则没有问题，估计是BIOS电池没电或是坏了。虽然是个小问题，但每次开机后必须手动设置时间，如果不将时间设置正确，卡巴斯基会因为系统时间服务器时间不同而罢工。我又很懒，不愿意拆机器，买电池，不如写个小程序来解决该问题吧。

　　我们知道，系统时间本身就是CMOS时钟，所有程序语言的取系统时间函数都是取CMOS时间的。但现在的情况是由于BIOS电池损坏，CMOS的时钟本身出现了问题。那么如何才能得正确的时间呢？唯一的办法是取其它机器的时间。

　　基本思路是：在FTP服务器上放了一个PHP文件，该文件仅仅用来取服务器的系统时间，再用利用VB程序读取该文件并将得到的时间设置为本机的时间。

　　PHP文件非常简单，就一句话，即取系统时间。如下：

<?php  echo date("Y-m-d H:i:s");?>

　　VB程序也非常简单，从部件中选择Inet控件到窗体，在FormLoad事件中加入如下代码：

Private Sub Form_Load()
On Error GoTo err:
    Dim bValidate() As Byte
    Dim myTime As String
    Dim url As String
 
    File.setIniFileName (App.Path & "\config.ini")
    Inet1.url = File.ReadString("server", "url", File.ReadInt("server", "urllen"))
    bValidate() = Inet1.OpenURL(Inet1.url, icByteArray)
    myTime = StrConv(bValidate, vbUnicode)
 
    If Len(myTime) = 19 Then
        Date = Mid(myTime, 1, 10)
        time = Mid(myTime, 12, 8)
    End If
 
    End
Exit Sub
 
err:
    Inet1.Cancel
    MsgBox ("设置日期时间时出错！")
End Sub