[mostfa1995]

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

[سعود]

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

[mostfa1995]

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

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

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

[سعود]

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

[mostfa1995]

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

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

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

[سعود]

(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

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

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

[mostfa1995]

(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

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

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

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

[سعود]

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 


[mostfa1995]

(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 


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

[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