رفتن به مطلب

بایگانی شده

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

graphicomid

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

پست های پیشنهاد شده

graphicomid    0

سلام دوستان 

امروز میخوام کدی برای شما بزارم که با این کد بتونید اینترنت خودتان را از نظر وصل بودن یا نبود در برنامه چک نمایید. اول اینکه کتابخانه 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

 

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


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

×
×
  • جدید...