SHD.NET
سه شنبه 22 اسفند 1391, 19:14 عصر
سلام.
توسط فانکشن زیر که نوشتم می تونید مقدار مصرفی پهنای باند رو به دست بیارید . این فانکشن خروجی رو برحسب بایت میده . که خودتون میتونید با ضرب و تقسیم به واحدهای کوچک تر یا بزرگتر تقسیمش کنید
کد:
Public Function BoundWidthUsage() As String
Dim ntj As String = Nothing
Dim shd As String = Nothing
Shell("cmd /c netstat -e -a > shd.txt", vbHide, True)
Dim rdr As New IO.StreamReader(Application.StartupPath + "\shd.txt")
While Not rdr.EndOfStream
Dim res As String = rdr.ReadLine
If res.StartsWith("Bytes") = True Then
shd = res
End If
End While
rdr.Close()
Dim sp() As String = shd.Split(Convert.ToChar(32))
For i = 0 To sp.Length - 1
If sp(i) = "Bytes" Or sp(i) = "" Or sp(i) = " " Then
Else
ntj = sp(i).ToString
Exit For
End If
Next
Return ntj
If IO.File.Exists(Application.StartupPath + "\shd.txt") Then IO.File.Delete(Application.StartupPath + "\shd.txt")
End Function
روش استفاده:
TextBox1.Text = BoundWidthUsage()
** یاعلی - موفق باشید **
توسط فانکشن زیر که نوشتم می تونید مقدار مصرفی پهنای باند رو به دست بیارید . این فانکشن خروجی رو برحسب بایت میده . که خودتون میتونید با ضرب و تقسیم به واحدهای کوچک تر یا بزرگتر تقسیمش کنید
کد:
Public Function BoundWidthUsage() As String
Dim ntj As String = Nothing
Dim shd As String = Nothing
Shell("cmd /c netstat -e -a > shd.txt", vbHide, True)
Dim rdr As New IO.StreamReader(Application.StartupPath + "\shd.txt")
While Not rdr.EndOfStream
Dim res As String = rdr.ReadLine
If res.StartsWith("Bytes") = True Then
shd = res
End If
End While
rdr.Close()
Dim sp() As String = shd.Split(Convert.ToChar(32))
For i = 0 To sp.Length - 1
If sp(i) = "Bytes" Or sp(i) = "" Or sp(i) = " " Then
Else
ntj = sp(i).ToString
Exit For
End If
Next
Return ntj
If IO.File.Exists(Application.StartupPath + "\shd.txt") Then IO.File.Delete(Application.StartupPath + "\shd.txt")
End Function
روش استفاده:
TextBox1.Text = BoundWidthUsage()
** یاعلی - موفق باشید **