22-04-17, 06:06 AM
(آخر تعديل لهذه المشاركة : 22-04-17, 06:08 AM {2} بواسطة silverlight.)
الكود التالي سيوضح لك كيف تعمل في الخلفية للحصول علي سرعة النت
للأسف انا معلوماتي ضعيفة جدا في التعامل مع كلاسات النت لذلك وبعد إلقاء نظرة سريعة علي بعض كلاسات النت
يمكنك ان تستخدم الكود التالي ليعطيك فكرة بسيطة عن كيفية الاجابة علي سؤالك
لتنفيذ الكود افتح مشروع بسيط و ضع علي الفورم باتون و Label
ثم اكتب الكود بالشكل التالي
وأفترض هنا انك متصل بالنت عند تنفيذ الكود
للأسف انا معلوماتي ضعيفة جدا في التعامل مع كلاسات النت لذلك وبعد إلقاء نظرة سريعة علي بعض كلاسات النت
يمكنك ان تستخدم الكود التالي ليعطيك فكرة بسيطة عن كيفية الاجابة علي سؤالك
لتنفيذ الكود افتح مشروع بسيط و ضع علي الفورم باتون و Label
ثم اكتب الكود بالشكل التالي
وأفترض هنا انك متصل بالنت عند تنفيذ الكود
PHP كود :
Private Async Function InvokeNetworkInterface(delay As Integer, progress As IProgress(Of NetworkInterface())) As Task
Dim c As Integer = 0
While c <= Integer.MaxValue
Await Task.Delay(delay)
progress.Report(NetworkInterface.GetAllNetworkInterfaces())
c += delay
End While
End Function
Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim delay As Integer = 100
Dim p As New Progress(Of NetworkInterface())(AddressOf ShowSpeed)
' OR
'Dim p As New Progress(Of NetworkInterface())(Sub(adapters As NetworkInterface())
' Label1.Text = adapters(0).Speed
' End Sub)
Await InvokeNetworkInterface(delay, p)
End Sub
Private Sub ShowSpeed(adapters As NetworkInterface())
Label1.Text = adapters(0).Speed
End Sub

