آموزش محاسبه مقدار مصرفی پهنای باند در VB.Net
سلام.
توسط فانکشن زیر که نوشتم می تونید مقدار مصرفی پهنای باند رو به دست بیارید . این فانکشن خروجی رو برحسب بایت میده . که خودتون میتونید با ضرب و تقسیم به واحدهای کوچک تر یا بزرگتر تقسیمش کنید
کد:
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()
** یاعلی - موفق باشید **
نقل قول: آموزش محاسبه مقدار مصرفی پهنای باند در VB.Net
یه سوالی
خروجی این برنامه شما الان برای من 237658694 هست !
بعد یه سوال دیگه برای مقدار مصرف لازمه این مقدار ذخیره و با مقدار جدیدی جمع بشه یا خودش حساب میکنه ؟؟
بعد یه مورد دیگه هنگامی که نرم افزرا باز میشود که مقدارش صفر نیست :| ! مقدارش الان که من تبدیلش کردم به مگ 254.20 مگ بود :|
نقل قول: آموزش محاسبه مقدار مصرفی پهنای باند در VB.Net
یه سوال عکس زیر رو ببینید :
http://upload7.ir/images/72821203704077782328.png
چرا اینقدر تفاوت دارن ؟؟
نقل قول: آموزش محاسبه مقدار مصرفی پهنای باند در VB.Net
نقل قول:
نوشته شده توسط
amirmms
یه سوالی
خروجی این برنامه شما الان برای من 237658694 هست !
بعد یه سوال دیگه برای مقدار مصرف لازمه این مقدار ذخیره و با مقدار جدیدی جمع بشه یا خودش حساب میکنه ؟؟
بعد یه مورد دیگه هنگامی که نرم افزرا باز میشود که مقدارش صفر نیست :| ! مقدارش الان که من تبدیلش کردم به مگ 254.20 مگ بود :|
فک کنم دستور netstat میزان مصرف از زمانی که کامپیوتر روشن بوده رو نشون میده . میگردم ببینم دستور بهتری پبدا می کنم یا نه
نقل قول: آموزش محاسبه مقدار مصرفی پهنای باند در VB.Net