منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET [سؤال] اريد كود لمعرفة الانترنت متصل ام لا
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[سؤال] اريد كود لمعرفة الانترنت متصل ام لا
Mina Botros غير متصل
عضو مبدع
المشاركات : 109
المواضيع 45
الإنتساب : Jul 2017
السمعة : 7
الشكر: 21
تم شكره 57 مرات في 31 مشاركات
#1
15-07-17, 03:33 PM
اريد كود لمعرفة الانترنت متصل ام لا اذا كان متصلا يكتب على الليبل متصل باللون الاخضر واذا كان غير متصر يكون لونه احمر ومكتوب عليه غير متصل
 بروفايلى
[صورة مرفقة: 149902872537641.jpg]
البحث
الرد }}}
تم الشكر بواسطة:
khaled12345 غير متصل
عضو نشيط
*
المشاركات : 347
المواضيع 99
الإنتساب : Mar 2017
السمعة : 7
الشكر: 0
تم شكره 103 مرات في 76 مشاركات
#2
15-07-17, 06:16 PM
(15-07-17, 03:33 PM)Mina Botros كتب : اريد كود لمعرفة الانترنت متصل ام لا اذا كان متصلا يكتب على الليبل متصل باللون الاخضر واذا كان غير متصر يكون لونه احمر ومكتوب عليه غير متصل

اتفضل اخي


الملفات المرفقة
.rar   internet_check.rar (الحجم : 81.84 ك ب / التحميلات : 49)
البحث
الرد }}}
تم الشكر بواسطة: سعود
Mina Botros غير متصل
عضو مبدع
المشاركات : 109
المواضيع 45
الإنتساب : Jul 2017
السمعة : 7
الشكر: 21
تم شكره 57 مرات في 31 مشاركات
#3
15-07-17, 06:40 PM
(15-07-17, 06:16 PM)khaled12345 كتب :
(15-07-17, 03:33 PM)Mina Botros كتب : اريد كود لمعرفة الانترنت متصل ام لا اذا كان متصلا يكتب على الليبل متصل باللون الاخضر واذا كان غير متصر يكون لونه احمر ومكتوب عليه غير متصل

اتفضل اخي

شكرا اخى يجعلها فى ميزان حساناتك بس ممكن الكون لان البرنامج مش شغال
 بروفايلى
[صورة مرفقة: 149902872537641.jpg]
البحث
الرد }}}
تم الشكر بواسطة:
khaled12345 غير متصل
عضو نشيط
*
المشاركات : 347
المواضيع 99
الإنتساب : Mar 2017
السمعة : 7
الشكر: 0
تم شكره 103 مرات في 76 مشاركات
#4
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


الملفات المرفقة
.rar   الاتصال بالانترنت.rar (الحجم : 66.69 ك ب / التحميلات : 46)
البحث
الرد }}}
تم الشكر بواسطة: السندبااد
ddemed غير متصل
عضو مبدع
المشاركات : 158
المواضيع 44
الإنتساب : Sep 2016
السمعة : 0
الشكر: 72
تم شكره 10 مرات في 9 مشاركات
#5
15-07-17, 08:04 PM
PHP كود :
if my.computer.network.isavilable =true then
msgbox("الانترنت موجود")
else
msgbox("الانترنت غير موجود تحقق منه ")
endif 
تفضل اخي الكريم
البحث
الرد }}}
تم الشكر بواسطة:
Mina Botros غير متصل
عضو مبدع
المشاركات : 109
المواضيع 45
الإنتساب : Jul 2017
السمعة : 7
الشكر: 21
تم شكره 57 مرات في 31 مشاركات
#6
15-07-17, 10:10 PM (آخر تعديل لهذه المشاركة : 15-07-17, 10:12 PM {2} بواسطة 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 كتب : اريد كود لمعرفة الانترنت متصل ام لا اذا كان متصلا يكتب على الليبل متصل باللون الاخضر واذا كان غير متصر يكون لونه احمر ومكتوب عليه غير متصل

اتفضل اخي

ممكن طريقة عمل برنامج لقطع واعادة الاتصال بالانترنت
 بروفايلى
[صورة مرفقة: 149902872537641.jpg]
البحث
الرد }}}
تم الشكر بواسطة:
سعود الشامان غير متصل
عضو مبدع
المشاركات : 214
المواضيع 20
الإنتساب : Jan 2017
السمعة : 35
الشكر: 222
تم شكره 270 مرات في 155 مشاركات
#7
15-07-17, 11:09 PM
طريقة أخرى لإختبار الإنترنت



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

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

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

       End If
   End Sub


الملفات المرفقة
.zip   test.zip (الحجم : 69.41 ك ب / التحميلات : 39)
البحث
الرد }}}
تم الشكر بواسطة:
أبوبكر سويدان غير متصل
كبار المطورين
*
المشاركات : 653
المواضيع 83
الإنتساب : Sep 2012
السمعة : 81
الشكر: 1558
تم شكره 3397 مرات في 508 مشاركات
#8
16-07-17, 12:18 AM
الطريقة في لازاروس - فري باسكال:
http://vb4arb.com/vb/showthread.php?tid=21085
البحث
الرد }}}
تم الشكر بواسطة:
سعود غير متصل
سعود
*
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة : 847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
#9
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 غير متصل
عضو مبدع
المشاركات : 109
المواضيع 45
الإنتساب : Jul 2017
السمعة : 7
الشكر: 21
تم شكره 57 مرات في 31 مشاركات
#10
16-07-17, 02:55 PM
لمن هذا الكود
 بروفايلى
[صورة مرفقة: 149902872537641.jpg]
البحث
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد اضافة حفظ PDF فى مسار على الهارد- مثال الاستاذ عبدالله الدوسري new_programer 0 49 13-04-24, 12:59 PM
آخر رد: new_programer
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 212 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 450 09-01-24, 08:40 PM
آخر رد: new_programer
  اريد مساعدة في العملية الحسابية melad2002 3 426 29-12-23, 09:10 PM
آخر رد: melad2002
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,866 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 444 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 367 08-11-23, 08:16 AM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 490 05-11-23, 01:45 AM
آخر رد: justforit
Star [كود] اريد تزويد 45 دقيقة على DateTimePicker1 كل ضغطة Button Ameenh 1 393 01-09-23, 07:13 AM
آخر رد: Asem2
Star [كود] اريد تزويد 45 دقيقة على DateTimePicker1 كل ضغطة Button Ameenh 0 304 01-09-23, 05:56 AM
آخر رد: Ameenh

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم