要從 VB.NET 中使用 XMLHTTP 獲取服務(wù)器時(shí)間，可以使用以下代碼：

vb.net

Copy code

Dim xmlhttp As New MSXML2.XMLHTTP

xmlhttp.Open("GET", "http://yourserver.com/servertime.php", False)

xmlhttp.Send()

Dim serverTime As Date = CDate(xmlhttp.GetResponseHeader("Date"))

在上面的代碼中，您需要將 http://yourserver.com/servertime.php 替換為返回服務(wù)器時(shí)間的腳本的 URL。此腳本應返回 HTTP 響應標頭 "Date"，其中包含服務(wù)器的當前日期和時(shí)間。

然后，使用 CDate 函數將響應標頭的日期字符串轉換為日期對象。這將使您能夠以編程方式訪(fǎng)問(wèn)服務(wù)器時(shí)間并在您的 VB.NET 應用程序中使用它。