服务器响应时间的测算
本帖最后由 bcrun 于 2010-11-06 10:11:28 编辑 搞个Timer1出来是啥意思啊.不知你说的"服务器响应时间"具体是指哪一段的,一般搞个GetTickCount在两段取时间相减就行了吧.对使用GetTickCount函数，在加载前记录下一个时间，加载完成后在记录下时间，用前后这两个时间相减，就能得出加载时间，精度是毫秒级的，可以说很高了。
dim lngS as long
dim lngE as long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Command1_Click()
lngS=GetTickCount
Set xmlobject = CreateObject("Microsoft.XMLHTTP")
strURL = "http://www.baidu.com/"
xmlobject.Open "GET", strURL, False
xmlobject.Send
If xmlobject.ReadyState = 4 Then
Text1.Text = xmlobject.responseText
End If
lngE=GetTickCount
MsgBox "加载完成，耗用时间：" & Cstr(lngE-lngS) & " ms",vbokonly+vbexclamation,"系统提示"
End Sub
补充：VB , 基础类
