24-08-20, 01:16 AM
السلام عليكم
قمت بوضع الكود التالي في TIMER الهدف منه التحقق من وجود الأنترنيت بشكل مستمر، الكود شغال بشكل جيد في حالة وجود النت أما في غياب الأنترنيت فيشتغل لاكن يتسبب في تشنج البرنامج بشكل كبير
هل يمكن إصلاح هذا الأشكال
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'======================بسملــــــــــــــة ===========================
My.Computer.Audio.Play(My.Resources.bismallah, AudioPlayMode.Background)
'========================================================================
'===========================التحقق من النت ===========================
Timer2.Start()
'=====================التححق من وجود النت======================
Public Shared Function CheckInternetConnection() As Boolean
Try
Return My.Computer.Network.Ping("www.google.com")
Return True
Catch
Return False
End Try
End Function
'===============================================================
'===============================================================
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
If CheckInternetConnection() = True Then
Label6.Text = "متصل بالأنترنيت"
Label6.BackColor = Color.Lime
Else
Label6.Text = " غير متصل بالأنترنيت"
Label6.BackColor = Color.Red
End If
End Sub