15-07-17, 06:52 PM
(آخر تعديل لهذه المشاركة : 15-07-17, 06:57 PM {2} بواسطة khaled12345.)
Imports Microsoft.Win32
Public Class Form1
Dim internet As Boolean
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
If My.Computer.Network.IsAvailable Then
internet = True
Else
internet = False
End If
End Sub
Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
If internet = True Then
Label1.Text = "متصل"
Label1.BackColor = Color.Green
Else
Label1.Text = "غير متصل"
Label1.BackColor = Color.Red
End If
BackgroundWorker1.RunWorkerAsync()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
BackgroundWorker1.RunWorkerAsync()
End Sub
End Class
(15-07-17, 06:40 PM)Mina Botros كتب :(15-07-17, 06:16 PM)khaled12345 كتب :(15-07-17, 03:33 PM)Mina Botros كتب : اريد كود لمعرفة الانترنت متصل ام لا اذا كان متصلا يكتب على الليبل متصل باللون الاخضر واذا كان غير متصر يكون لونه احمر ومكتوب عليه غير متصل
اتفضل اخي
شكرا اخى يجعلها فى ميزان حساناتك بس ممكن الكون لان البرنامج مش شغال
(15-07-17, 06:52 PM)khaled12345 كتب :Imports Microsoft.Win32
Public Class Form1
Dim internet As Boolean
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
If My.Computer.Network.IsAvailable Then
internet = True
Else
internet = False
End If
End Sub
Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
If internet = True Then
Label1.Text = "متصل"
Label1.BackColor = Color.Green
Else
Label1.Text = "غير متصل"
Label1.BackColor = Color.Red
End If
BackgroundWorker1.RunWorkerAsync()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
BackgroundWorker1.RunWorkerAsync()
End Sub
End Class(15-07-17, 06:40 PM)Mina Botros كتب :(15-07-17, 06:16 PM)khaled12345 كتب :(15-07-17, 03:33 PM)Mina Botros كتب : اريد كود لمعرفة الانترنت متصل ام لا اذا كان متصلا يكتب على الليبل متصل باللون الاخضر واذا كان غير متصر يكون لونه احمر ومكتوب عليه غير متصل
اتفضل اخي
شكرا اخى يجعلها فى ميزان حساناتك بس ممكن الكون لان البرنامج مش شغال
عملته لحضرتك بالفيجوال بيسك 2010
