محاسبه ی مقدار پهنای باند مصرفی

[amirmms]

دوستان اینم عیدی من به شما:
ایتدا IO رو وارد برنامه میکنیم باکد زیر :

Imports System.IO


سپس سه متغیر سراسری میسازیم با کد زیر:

Dim objIPGlobalProperties As System.Net.NetworkInformation.IPGlobalProperties = System.Net.NetworkInformation.IPGlobalProperties.G etIPGlobalProperties()
Dim upload As Single
Dim download As Single

حالا میریم سر اصل مطلب چون مقداری که این توابع به ما میدهند همیشه 0 نیست پس در رویداد Form Load کد زیر را وارد می کنیم :

upload = Math.Round((Convert.ToDouble(objIPGlobalProperties .GetIPv4GlobalStatistics().OutputPacketRequests) / 1024), 2)
download = Math.Round((Convert.ToDouble(objIPGlobalProperties .GetIPv4GlobalStatistics().ReceivedPackets) / 1024), 2)

حالا یه تامیر میزاریم و کد زیر را درونش کپی می کنیم:

TextBox1.Text = CStr(Math.Round((Convert.ToDouble(objIPGlobalPrope rties.GetIPv4GlobalStatistics().OutputPacketReques ts) / 1024) - upload, 2))
TextBox2.Text = CStr(Math.Round((Convert.ToDouble(objIPGlobalPrope rties.GetIPv4GlobalStatistics().ReceivedPackets) / 1024) - download, 2))


تموم شد
توجه کنید که مقدار خروجی به MB هست :چشمک: