منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET [سؤال] اريد كود لمعرفة الانترنت متصل ام لا
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[سؤال] اريد كود لمعرفة الانترنت متصل ام لا
Mina Botros غير متصل
عضو مبدع
المشاركات : 113
المواضيع 47
الإنتساب : Jul 2017
السمعة : 7
الشكر: 22
تم شكره 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 ك ب / التحميلات : 54)
البحث
الرد }}}
تم الشكر بواسطة: سعود
Mina Botros غير متصل
عضو مبدع
المشاركات : 113
المواضيع 47
الإنتساب : Jul 2017
السمعة : 7
الشكر: 22
تم شكره 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 ك ب / التحميلات : 51)
البحث
الرد }}}
تم الشكر بواسطة: السندبااد
ddemed غير متصل
عضو مبدع
المشاركات : 158
المواضيع 44
الإنتساب : Sep 2016
السمعة : 0
الشكر: 70
تم شكره 10 مرات في 9 مشاركات
#5
15-07-17, 08:04 PM
PHP كود :
if my.computer.network.isavilable =true then
msgbox("الانترنت موجود")
else
msgbox("الانترنت غير موجود تحقق منه ")
endif 
تفضل اخي الكريم
البحث
الرد }}}
تم الشكر بواسطة:
Mina Botros غير متصل
عضو مبدع
المشاركات : 113
المواضيع 47
الإنتساب : Jul 2017
السمعة : 7
الشكر: 22
تم شكره 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
الشكر: 215
تم شكره 271 مرات في 156 مشاركات
#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 ك ب / التحميلات : 46)
البحث
الرد }}}
تم الشكر بواسطة:
أبوبكر سويدان غير متصل
كبار المطورين
*
المشاركات : 655
المواضيع 83
الإنتساب : Sep 2012
السمعة : 81
الشكر: 1527
تم شكره 3400 مرات في 509 مشاركات
#8
16-07-17, 12:18 AM
الطريقة في لازاروس - فري باسكال:
http://vb4arb.com/vb/showthread.php?tid=21085
البحث
الرد }}}
تم الشكر بواسطة:
سعود غير متصل
عضو نشيط
*
المشاركات : 7,397
المواضيع 802
الإنتساب : Sep 2013
السمعة : 853
الشكر: 13167
تم شكره 18826 مرات في 4421 مشاركات
#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 غير متصل
عضو مبدع
المشاركات : 113
المواضيع 47
الإنتساب : Jul 2017
السمعة : 7
الشكر: 22
تم شكره 57 مرات في 31 مشاركات
#10
16-07-17, 02:55 PM
لمن هذا الكود
 بروفايلى
[صورة مرفقة: 149902872537641.jpg]
البحث
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد طباعة تقرير ريبورت فيو مباشرة فور عرض التقرير mh66 1 558 22-03-25, 09:59 AM
آخر رد: mh66
  اريد كود لو سمحتم خالد كامل1 10 1,220 15-02-25, 02:15 PM
آخر رد: خالد كامل1
  اريد كود معين اثابكم الله خالد كامل1 1 456 04-02-25, 09:28 PM
آخر رد: aliday03
  اريد كود يحذف جميع سجلات جدول بقاعدة بيانات اكسس دفعه واحده khalidalwdi 2 635 18-11-24, 01:02 AM
آخر رد: rdxdz
  اريد جلب عدد محدد من السجلات من قاعدة بيانات اكسس الى الداتا قراد فيو يوجد مثال khalidalwdi 2 667 12-11-24, 12:19 PM
آخر رد: khalidalwdi
  [نقاش] اريد مسااعدة انا مبتدئة ف بحر غارق?? ..N 1 346 29-09-24, 11:16 PM
آخر رد: justforit
Exclamation [VB.NET] اريد كود لتصدير البيانات من DataGridView الى ملف Excel zazasami 1 497 04-08-24, 09:15 PM
آخر رد: mrfenix93
  اريد إحصاء مجموع التأخير والغياب للموظف أبووسم 2 446 31-07-24, 02:16 PM
آخر رد: أبووسم
  اريد طباعة الباركود من غير ظهور نافذة المعاينة new_programer 1 530 23-05-24, 03:55 AM
آخر رد: new_programer
  اريد اضافة حفظ PDF فى مسار على الهارد- مثال الاستاذ عبدالله الدوسري new_programer 1 520 28-04-24, 04:52 PM
آخر رد: new_programer

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


يقوم بقرائة الموضوع: