09-02-16, 12:19 AM
اخواني السلام عليكم اريد كود للفيجوال بيزك 10 او 12 يجعل البرنامج لا يشتغل الا بوجود الانترنت
اي عندما لا تكن الانترنت موجودة لا يشتغل ويطلع رسالة خطأ
وشكرا
اخواني السلام عليكم اريد كود للفيجوال بيزك 10 او 12 يجعل البرنامج لا يشتغل الا بوجود الانترنت
اي عندما لا تكن الانترنت موجودة لا يشتغل ويطلع رسالة خطأ
وشكرا
09-02-16, 02:23 AM
اخي الفاضل :
يمكنك التحقق من وجود الاتصال بالانترنت من خلال تجربة الاتصال على موقع ما وليكن جوجل
ويمكنك استخدام الكود التالي :
يمكنك التحقق من وجود الاتصال بالانترنت من خلال تجربة الاتصال على موقع ما وليكن جوجل
ويمكنك استخدام الكود التالي :
كود :
Public Function HaveInternetConnection() As Boolean
Try
Return My.Computer.Network.Ping("www.google.com")
Catch
Return False
End Try
End Function09-02-16, 02:24 AM
السلام عليكم
اولا اكتب هذه الدالة
ثانيا في الحدث Form Load ضع الكود التالي
اولا اكتب هذه الدالة
PHP كود :
Public Shared Function CheckInternetConnection() As Boolean
Try
Return My.Computer.Network.Ping("www.google.com")
Return True
Catch
Return False
End Try
End Function
ثانيا في الحدث Form Load ضع الكود التالي
PHP كود :
If CheckInternetConnection() = True Then
MessageBox.Show("Your Computer is Connected to internet", "Connected", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("Your Computer is not Connected to internet", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Application.Exit()
End If
ان شاء الله يفيدك هذا الكود.
09-02-16, 04:20 AM
الله يفتح عليك اخي الكريم نجح تمام تمام
28-04-16, 10:30 PM
(28-04-16, 10:10 PM)mostfa1995 كتب : [ -> ](28-04-16, 10:03 PM)amgad525 كتب : [ -> ]http://vb4arb.com/vb/thread-14676-post-7...l#pid70192
PHP كود :
If CheckInternetConnection() = True Then
MessageBox.Show("Your Computer is Connected to internet", "Connected", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("Your Computer is not Connected to internet", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Application.Exit()
End If
PHP كود :
Public Shared Function CheckInternetConnection() As Boolean
Try
Return My.Computer.Network.Ping("www.google.com")
Return True
Catch
Return False
End Try
End Function
شغال تمام اشكرك على المجهود الرائع
29-04-16, 08:59 AM
اليكم هذا الكود البسيط واكيد حينفعكم اكثر لانه مختصر وسهل
وينكنك من اضافة ماسج بوكس له او التعديل عليه كما تريد
وبإمكانك اضافة فورم صغير فيه هذا اليبل وإذا كان هناك اتصال ينقلك الى الفورم 2 وهو الفورم الرئيسي للبرنامج
وينكنك من اضافة ماسج بوكس له او التعديل عليه كما تريد
كود :
If My.Computer.Network.IsAvailable Then
Label1.ForeColor = Color.Green
Label1.Text = "حالة الإتصال : متصل"
Else
Label1.ForeColor = Color.Red
Label1.Text = "حالة الإتصال : غير متصل"
End If16-06-21, 06:49 PM
(09-02-16, 02:23 AM)boudyonline كتب : [ -> ]اخي الفاضل :
يمكنك التحقق من وجود الاتصال بالانترنت من خلال تجربة الاتصال على موقع ما وليكن جوجل
ويمكنك استخدام الكود التالي :
كود :
Public Function HaveInternetConnection() As Boolean
Try
Return My.Computer.Network.Ping("www.google.com")
Catch
Return False
End Try
End Function
السلام عليكم اخواني الكرام محتاج كود : التحقق من اتصال بالإنترنت يكون من خلال ليبل