İnternet Hızı & Ping Öğrenme

[petitjoueur]

Arkadaşlar excel vba üstünde internet hızını ve ping süresini öğrenmek mümkün mü? Bulabildiğim sadece internet var mı yok mu şeklinde. Diğer bilgilere nasıl ulaşacağımı anlayamadım.

 

[Merhum İdris SERDAR]

.

İnternet Hız Testi, Download & Upload Speedtest

Türk Telekom hız testi aracı sayesinde, internet hızınızın indirme(download), yükleme(upload) ve ping(ms) verilerini hızlı bir şekilde ölçümleyebilirsiniz.

hiztesti.turktelekom.com.tr

Bunu bir hücreye yazarak kullansanız, yeterli değil mi?

 

[Haluk]

Sub TestPing()
    MsgBox sPing("www.google.com")
End Sub
'
Function sPing(sHost) As String
    Dim oPing As Object, oRetStatus As Object
 
    Set oPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
               ("select * from Win32_PingStatus where address = '" & sHost & "'")
 
    For Each oRetStatus In oPing
        If IsNull(oRetStatus.StatusCode) Or oRetStatus.StatusCode <> 0 Then
            sPing = "Status code is " & oRetStatus.StatusCode
        Else
            sPing = "Pinging " & sHost & " with " & oRetStatus.BufferSize & " bytes of data:" & Chr(10) & Chr(10)
            sPing = sPing & "Time (ms) = " & vbTab & oRetStatus.ResponseTime & Chr(10)
            sPing = sPing & "TTL (s) = " & vbTab & vbTab & oRetStatus.ResponseTimeToLive
        End If
    Next
End Function

.