İnternet Bağlantı Bilgilerini Öğrenmek

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768Internet üzerinden alinan ve gönderilen byte miktarlari 
Registry icine kaydedilir. Yanliz Bu kod Windows NT altinda 
calismiyor. Ek olarak transfer hizini ve baglanti hizini da 
ögrenebiliyoruz.
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263 Option Explicit
Private Declare Function RegOpenKeyEx Lib "advapi32.dll"Alias _
"RegOpenKeyExA" (ByVal hKey As Long, ByVal _
lpSubKey As String, ByVal ulOptions As Long, ByVal _
samDesired As Long, phkResult As Long] As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal _
hKey As Long] As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll"Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName _
As String, ByVal lpReserved As Long, lpType As Long, _
lpData As Any, lpcbData As Any] As Long
Const HKEY_DYN_DATA = &H80000006
Const KEY_READ = &H19
Const ERROR_SUCCESS = 0&
Dim s1&, e1&, LBytes&, CNT&, Q&, QQ&, SUM&
Private Sub Command1_Click(]
Reset
End Sub
Private Sub Form_Load(]
Reset
LBytes = e1
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer(]
Dim EBytes&, SBytes&, CSpeed&
EBytes = ReadBytes("Dial-Up AdapterBytesRecvd"]
SBytes = ReadBytes("Dial-Up AdapterBytesXmit"]
CSpeed = ReadBytes("Dial-Up AdapterConnectSpeed"]
If EBytes ] -1 Then Label1.Caption = EBytes - e1
If SBytes ] -1 Then Label2.Caption = SBytes - s1
If SBytes ] -1 And EBytes [] e1 Then
Label5.Caption = CSpeed
End If
If LBytes [ EBytes Then
Q = (EBytes - LBytes] / (Timer1.Interval / 1000]
CNT = CNT + 1
Else
Q = 0
End If
SUM = SUM + Q
QQ = SUM / CNT
Label6.Caption = "[ " & QQ & " ] " & Q
LBytes = EBytes
End Sub
Private Function ReadBytes(Entry$] As Long
Dim hKey&, L&, X&, DW&
X = RegOpenKeyEx(HKEY_DYN_DATA, "PerfStatsStatData", 0, _
KEY_READ, hKey]
If X [] ERROR_SUCCESS Then Exit Function
X = RegQueryValueEx(hKey, Entry, 0&, DW, ByVal 0&, L]
If X [] ERROR_SUCCESS Then Exit Function
X = RegQueryValueEx(hKey, Entry, 0&, DW, ReadBytes, L]
If X [] ERROR_SUCCESS Then Exit Function
RegCloseKey hKey
End Function
Private Sub Reset(]
e1 = ReadBytes("Dial-Up AdapterBytesRecvd"]
s1 = ReadBytes("Dial-Up AdapterBytesXmit"]
SUM = 0
CNT = 1
End Sub