Question

vb里如何获取网络时间?

如题
以及如何播放MIDI音乐,谢谢

Answer 1

如果是网页时间3楼正解。如果上要获取网络上服务器时间，你就在要服务器上建立一个数据库，数据库建立数据表，数据表设置自动获取时间，在一个字段的默认值里输入=GetDate
在本机上连接数据库，要想用一个事件显示网络时间就把字段事件触发时更新一下，以一个计数器为例显示系统时间（预先设置Timer1控件为真，Traval=1000）代码如下：
Private Sub Timer1_Timer()
Adodc1.ConnectionString="Driver={SQL Server};Server=服务器名;UID=数据库用户名;PWD=数据库密码;dataBase=数据库名"
Adodc1.Recordsource="Select * From 数据表"
Adodc1.Refresh
While Not Adodc1.RecordSet.EOF
Label1.Caption = Adodc1.RecordSet.Fields("自动获取时间字段")
Wend
End Sub
这样就好了，让他定时刷新数据库时间

Answer 2

Private Sub Command1_Click()
Dim obj, OBJStatus, url, GetText, i
Dim Retrieval
url = "http://www.163.com"
'判断网络是否连接
If url <> "" Then
Set Retrieval = GetObject("winmgmts:\\.\root\cimv2")
Set obj = Retrieval.ExecQuery("Select * From Win32_PingStatus Where Address = '" & Mid(url, 8) & "'")
For Each OBJStatus In obj
If IsNull(OBJStatus.StatusCode) Or OBJStatus.StatusCode <> 0 Then
Exit Sub
Else
Exit For '已连接则继续
End If
Next
End If

'通过下载网页头信息获取网络时间
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.setRequestHeader "If-Modified-Since", "0"
.setRequestHeader "Cache-Control", "no-cache"
.setRequestHeader "Connection", "close"
.Send
If .Readystate <> 4 Then Exit Sub
GetText = .getAllResponseHeaders()
i = InStr(1, GetText, "date:", vbTextCompare)
If i > 0 Then '网页下载成功
i = InStr(i, GetText, ",", vbTextCompare)
GetText = Trim(Mid(GetText, i + 1))
i = InStr(1, GetText, " GMT", vbTextCompare)
GetText = Left(GetText, i - 1)
MsgBox "网络时间:" & GetText
End If
End With
Set Retrieval = Nothing
Set OBJStatus = Nothing
Set obj = Nothing
End Sub

Answer 3

lable1.text=now
timer1.enable=true

Answer 4

电脑系统时间可以吗

Answer 5

text1.text=now
Timer1.enable=true
应该是这样的。你试试看吧！