Question

vb.net获取网络时间失败

…………
MsgBox("已经连接网络")
Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
MsgBox(1111)
.Open("Get", url, False, "", "")
.setRequestHeader("If-Modified-Since", "0")
.setRequestHeader("Cache-Control", "no-cache")
.setRequestHeader("Connection", "close")
MsgBox(2222)
.Send()
MsgBox(3333)
If .Readystate <> 4 Then
Exit Sub
End If
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 = Trim(Left(GetText, i - 1))
GetText = GetText.Substring(0, i - 1)
'MsgBox("网络时间:" & GetText)
End If
End With
我两台电脑，同样的代码，在其中一台电脑上运行没事，但是另外一台上运行就出错了，找了好久，终于是找到问题所在，但是不知道怎么解决，求大神，，MsgBox("已经连接网络")MsgBox(1111)MsgBox(2222)都能弹出来，就是 MsgBox(3333)弹不出来，意思就是 .Send()卡住了，求解

Answer 1

是不是另一台电脑是vista 及以上版本的系统 ？

用管理员模式。试试

追问

不是哦，两台都是win7，不提了，后面两台都不行了，都是半天才出来，后面换成获取北京的时间，就好了，可能，哎，你懂的