استفاده از این محتوا رایگان میباشد

چارا برای خلق ارزش و توسعه مهارت های درونی و رشد استعدادها و جایی برای انجام پروژهای برنامه نویسی هست، هدف ما پیاده سازی ایده شما و توسعه مهارت های فردی کاربران برای ارتقا و اجرای هدفمندانه کسب و کارها میباشد بیشتر آموزش های سایت به صورت رایگان در اختیار شما هستند اما برای دسترسی به همه آموزش ها نیازمند تهیه عضویت ویژه سایت ما میباشید.

قطعه کد بررسی اتصال به اینترنت بیسیک فوراندروید

کد زیر برای بررسی اتصال اینترنته 

Sub ping
Dim status As Boolean
status = Ping(“8.8.8.8″,”Report”,1,4)
End Sub

Sub Ping(Url As String, ResultsType As String, Attempts As Int, Timeout As Int) As Boolean

Dim sb As StringBuilder
Dim p As Phone
Dim Option As String

sb.Initialize

If ResultsType = “Report” Then Option = ” -v ”
If ResultsType = “Summary” Or ResultsType = “Status” Then Option = ” -q ”

p.Shell(“ping -c ” & Attempts & ” -W ” & Timeout & Option & Url, Null, sb, Null)

If sb.Length = 0 Or sb.ToString.Contains(“Unreachable”) Then
Return False
End If

Return True

End Sub

تغییر رنگ زمینه ادیت تکس بیسیک فور اندروید
, , ,

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

این قسمت نباید خالی باشد
این قسمت نباید خالی باشد
لطفاً یک نشانی ایمیل معتبر بنویسید.
شما برای ادامه باید با شرایط موافقت کنید

فهرست