منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > اريد كود لمعرفة الانترنت متصل ام لا
نسخة كاملة : اريد كود لمعرفة الانترنت متصل ام لا
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

Mina Botros

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

khaled12345

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

اتفضل اخي

Mina Botros

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

اتفضل اخي

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

khaled12345

15-07-17, 06:52 PM
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

ddemed

15-07-17, 08:04 PM
PHP كود :
if my.computer.network.isavilable =true then
msgbox("الانترنت موجود")
else
msgbox("الانترنت غير موجود تحقق منه ")
endif 
تفضل اخي الكريم

Mina Botros

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

اتفضل اخي

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

سعود الشامان

15-07-17, 11:09 PM
طريقة أخرى لإختبار الإنترنت



كود :
       If My.Computer.Network.IsAvailable Then

           MsgBox(" متصل  بالإنترنت ")

       Else
           MsgBox("غير متصل بالإنترنت")

       End If
   End Sub

أبوبكر سويدان

16-07-17, 12:18 AM
الطريقة في لازاروس - فري باسكال:
http://vb4arb.com/vb/showthread.php?tid=21085

سعود

16-07-17, 01:43 AM
كود :
Public Shared Function CheckForInternetConnection() As Boolean
   Try
       Using client = New WebClient()
           Using stream = client.OpenRead("http://www.google.com")
               Return True
           End Using
       End Using
   Catch
       Return False
   End Try
End Function
هذي مشاركة ولا ادري لعلها  مكررة

Mina Botros

16-07-17, 02:55 PM
لمن هذا الكود
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > اريد كود لمعرفة الانترنت متصل ام لا