服务器响应时间的测算

Question

本帖最后由 bcrun 于 2010-11-06 10:11:28 编辑

Answer 1

搞个Timer1出来是啥意思啊.不知你说的"服务器响应时间"具体是指哪一段的,一般搞个GetTickCount在两段取时间相减就行了吧.

Answer 2

对使用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