رفتن به مطلب
لـــرن نــت

انجمن های پشتیبانی

شما می توانید سوالات و مشکلات خود را در انجمن های تخصصی برنامه نویس ایرانی پیگیری کنید.

تــوجــه

این وب سایت تابع قوانین جمهوری اسلامی میباشد و وابسته به هیچ گروه سیاسی و ارگان خاصی نمیباشد.

تــوجــه

این وب سایت تحت نظر پلیس فتا میباشد و تمامی مطالب طبق قوانین ایران میباشد.

رضا آزاده

بررسی وضعیت اینترنت

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

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

قدم اول :
از کتابخانه ها Network رو پیدا کنید و به پروژه خودتون اضافه کنید.

قدم دوم :
نیاز به شیء ServerSocket داریم ! پس در قسمت Globals و یا Process_Globals خودمون تعریفش میکنیم ( تفاوت میان Process_Globals و Globals مبحثی جدا از بحث ماست ):

Dim x As ServerSocket

حالا نیاز داریم که IP خودمون رو به دست بیاریم ! همونطور که میدونید (شایدم ندونید khande.gif ) در صورتی که به اینترنت وصل نباشیم آی پی بصورت پیشفرض 127.0.0.1 هستش ! ما آی پی رو بدست میاریم و میگیم اگه آی پی برابر با 127.0.0.1 بود یعنی به اینترنت وصل نیستیم، در غیر اینصورت ارتباط برقراره ! 
با این کد آی پی به دست میاد :


 

Sub GetIp As Boolean
x.Initialize(0,"")
If x.GetMyIP = "127.0.0.1" Then
Return False
Else
Return True
End If
End Sub

خط به خط توضیح میدم :

Sub GetIp As Boolean

با اینکار یه متد به نام GetIp از نوع Boolean تعریف میکنیم. چون نوع متد Boolean هستش مقدار برگشتی باید True به معنای درست یا False به معنی نادرست باشه.


 

x.Initialize(0,"")

در اینجا 0 به معنای شماره پورت و مقدار بعدی که خالیه نام رویداد هستش، که نام رویداد در اینجا خالیه چون ما نیاز بهش نداریم.

شیء ServerSocket که در بالا تعریف کردیم میتونه با فراخوانی متد GetMyIP آی پی فعلی دستگاه رو برگشت (Return) بده، با شرط تعیین میکنیم در صورتی که آی پی فعلی دستگاه برابر با 127.0.0.1 بود سپس :
 

Return False

از کلمه کلیدی Return برای برگشت دادن مقدار معینی استفاده میشود. در مواقع دیگر نیز میتوان با این کد، از ادامه اجرای کدها جلوگیری کرد. در اینجا ما مقدار نادرست (False) رو بعنوان نتیجه متد برگشت دادیم.
 

Else
Return True
End If
End Sub

در غیر اینصورت مقدار درست (True) رو برگشت بده و پایان شرط و متد.

______

تا اینجا ما متد رو کد نویسی کردیم، حالا برای استفاده از این متد میتونیم این کد رو استفاده کنیم :

Dim isNet As Boolean
isNet = GetIp

متغیری از نوع Boolean بنام isNet تعریف کردیم و مقدارش رو برابر با متد GetIp قرار دادیم.
در صورتی که مقدار متغیر isNet برابر با True باشد ارتباط با اینترنت برقرار و در غیر اینصورت برقرار نیست.

If isNet = True Then
ToastMessageShow("ارتباط با اینترنت برقرار است.",False)
Else
ToastMessageShow("ارتباط با اینترنت برقرار نیست.",False)
End If
 

تموم شد

  • پسندیدم 2

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


لینک به ارسال

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری

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

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

×