منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

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

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

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

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

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

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

(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

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

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

(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 

(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

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

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 

الصفحات : 1 2