28-04-16, 09:46 PM
(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
شكرااااااااااااااااا لك تعبتك معايا
