رفتن به مطلب

چک کردن اینترنت


graphicomid

ارسال های توصیه شده

سلام دوستان 

امروز میخوام کدی برای شما بزارم که با این کد بتونید اینترنت خودتان را از نظر وصل بودن یا نبود در برنامه چک نمایید. اول اینکه کتابخانه AriaLib را فعال نماید.


Sub Globals
   Dim aria As AriaLib
End Sub

If aria.TestInterntConnection = False Then
		ToastMessageShow("اینترنت شما وصل نیست",False)
	Else If aria.TestInterntConnection = True Then
		ToastMessageShow("اینترنت وصل است ",False)
	End If

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...