منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] طلب كود الانترنت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] طلب كود الانترنت (/showthread.php?tid=15615)

الصفحات: 1 2

طلب كود الانترنت - mostfa1995 - 28-04-16

عايز كود لو البرنامج مفتوح والانترنت فصل البرنامج يطلع رسالة تقولى ان الانترنت غير متصل وشكرااااااااااا


RE: طلب كود الانترنت - سعود - 28-04-16

انظر 
......................

RE: طلب كود الانترنت - mostfa1995 - 28-04-16

(28-04-16, 06:19 PM)سعود كتب : انظر 
......................

عملتو وبرضو مشتغلش ياريت حضرتك تعمل كود وكمان لو تعرف تعمل الكود ده كمان الخاص بقفل عمليه

http://vb4arb.com/vb/thread-15606.html

RE: طلب كود الانترنت - سعود - 28-04-16

الرابط فيه سؤال واسفل الاجوبة زي ماتقول منتدى بشكل تاني
http://stackoverflow.com/a/19752762

RE: طلب كود الانترنت - mostfa1995 - 28-04-16

(28-04-16, 07:17 PM)سعود كتب : الرابط فيه سؤال واسفل الاجوبة زي ماتقول منتدى بشكل تاني
http://stackoverflow.com/a/19752762

اخى انا مش عارف اعملو جربت كثير

ياريت تشوف المشكلة دى عشان مش لاقى حل
http://vb4arb.com/vb/thread-15606.html

RE: طلب كود الانترنت - سعود - 28-04-16

(28-04-16, 07:52 PM)mostfa1995 كتب :
(28-04-16, 07:17 PM)سعود كتب : الرابط فيه سؤال واسفل الاجوبة زي ماتقول منتدى بشكل تاني
http://stackoverflow.com/a/19752762

اخى انا مش عارف اعملو جربت كثير

ياريت تشوف المشكلة دى عشان مش لاقى حل
http://vb4arb.com/vb/thread-15606.html

شلون جربت طيب؟؟
الموضوع بسيط جدا 

اما الموضوع الاخر لو اعرف كان جاوبتك هناك

RE: طلب كود الانترنت - mostfa1995 - 28-04-16

(28-04-16, 07:56 PM)سعود كتب :
(28-04-16, 07:52 PM)mostfa1995 كتب :
(28-04-16, 07:17 PM)سعود كتب : الرابط فيه سؤال واسفل الاجوبة زي ماتقول منتدى بشكل تاني
http://stackoverflow.com/a/19752762

اخى انا مش عارف اعملو جربت كثير

ياريت تشوف المشكلة دى عشان مش لاقى حل
http://vb4arb.com/vb/thread-15606.html

شلون جربت طيب؟؟
الموضوع بسيط جدا 

اما الموضوع الاخر لو اعرف كان جاوبتك هناك
جربت اول كود فى الصفحة ومش شغال ودخلت على موقع تانى ولقيت نفس الكود

RE: طلب كود الانترنت - سعود - 28-04-16

PHP كود :
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 

اخي الكريم ضع الدالة باي مكان بالفورم ضمن كلاس الفورم وضمن حدث النقر لزر الامر اكتب
PHP كود :
if CheckForInternetConnection=false then
msgbox("no connection to internet")

end if 


RE: طلب كود الانترنت - mostfa1995 - 28-04-16

(28-04-16, 09:16 PM)سعود كتب :
PHP كود :
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 

اخي الكريم ضع الدالة باي مكان بالفورم ضمن كلاس الفورم وضمن حدث النقر لزر الامر اكتب
PHP كود :
if CheckForInternetConnection=false then
msgbox("no connection to internet")

end if 

شكرااااااااااااااااا لك تعبتك معايا

RE: طلب كود الانترنت - amgad525 - 28-04-16

http://vb4arb.com/vb/thread-14676-post-70192.html#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