[Mina Botros]

(15-07-17, 08:04 PM)ddemed كتب :

PHP كود :

if my.computer.network.isavilable =true then
msgbox("الانترنت موجود")
else
msgbox("الانترنت غير موجود تحقق منه ")
endif 


تفضل اخي الكريم

شكرا

---

(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 كتب : اريد كود لمعرفة الانترنت متصل ام لا اذا كان متصلا يكتب على الليبل متصل باللون الاخضر واذا كان غير متصر يكون لونه احمر ومكتوب عليه غير متصل

اتفضل اخي

شكرا اخى يجعلها فى ميزان حساناتك بس ممكن الكون لان البرنامج مش شغال

---

(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

شكرا

---

(15-07-17, 06:16 PM)khaled12345 كتب :

(15-07-17, 03:33 PM)Mina Botros كتب : اريد كود لمعرفة الانترنت متصل ام لا اذا كان متصلا يكتب على الليبل متصل باللون الاخضر واذا كان غير متصر يكون لونه احمر ومكتوب عليه غير متصل

اتفضل اخي

ممكن طريقة عمل برنامج لقطع واعادة الاتصال بالانترنت