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

[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