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