رفتن به مطلب
بیسیک فور ایکس
Assassin

دریافت ip گوشی و وایفا و بررسی اینترنت

نظرسنجی  

2 کاربر تاکنون رای داده است

  1. 1. آیا آموزش مورد پسند شما بود ؟

    • بله
    • خیر
      0


Recommended Posts

سلام به همه:greeting:

در این آموزش متنی میخواهیم ip  رو دریافت کنید و ارتباط با اینترنت رو بررسی کنیم.:wink1:

اول از همه کتابخانهNetwork  رو دریافت کنید :secret2:

سپس آن را در کتابخانه های پروژه خود فعال کنید.:yes1:

 

  • بررسی ارتباط وایفا
'Log(WifiConnection)'
Sub WifiConnection As Boolean
	Public MySocket As ServerSocket
	MySocket.Initialize(0,"")
	MyIp=MySocket.GetMyWifiIP
	If MyIp.StartsWith("127") Then
	Return False
	End If
	Return True
End Sub

 

  • بررسی ارتباط اینترنت خود گوشی

'Log(MyNetworkConnection)'
Sub MyNetworkConnection As Boolean
	Public MySocket As ServerSocket
	MySocket.Initialize(0,"")
	If MySocket.GetMyWifiIP.StartsWith("127") Then
	MyIp=MySocket.GetMyIP
	If MyIp.StartsWith("127") Then
	Return False
	End If
	Return True
	Else
		Return False
	End If
End Sub
  • بررسی ارتباط اینترنت (هم وایفا هم خود گوشی )
'Log(InternetConnection)'
Sub InternetConnection As Boolean
	Public MySocket As ServerSocket
	MySocket.Initialize(0,"")
	MyIp=MySocket.GetMyWifiIP
	If MyIp.StartsWith("127") Then
		MyIp=MySocket.GetMyIP
	End If
	If MyIp.StartsWith("127") Then
    Return Fasle
	End If	
Return True
End Sub
  • دریافت آیپی وایفا
'127.0.0.1 = LocalHost'
'Log(GetWifiIP)'
Sub GetWifiIP As String
	Public MySocket As ServerSocket
	MySocket.Initialize(0,"")
	Return MySocket.GetMyWifiIP
End Sub
  • دریافت آیپی گوشی : اگه وایفا متصل باشه به شما 127.0.0.1 رو برمیگردونه که همون Localhost هستش

'127.0.0.1 = LocalHost'
'Log(GetIP)'
Sub GetIP As String
	Public MySocket As ServerSocket
	MySocket.Initialize(0,"")
	If MySocket.GetMyWifiIP.StartsWith("127") Then
	Return MySocket.GetMyIP
	Else
	Return "127.0.0.1"
	End If
End Sub

 

 

خب ۵ روش برای انجام این کار رو با متد های بالا میتونید انجام بدید.

امید وارم از این آموزش خوشتون اومده باشه . :3d-smileys013:

امیرحسین آقاجری

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


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

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

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

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

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

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

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

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

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

  • مطالب مشابه

    • توسط Assassin
      Amir_WheelView
      مشاهده فایل یک کتابخانه برای ایجاد wheel view
      امکان شخصی سازی کامل ویو
      قابلیت استفاده از Paint برای آیتم ها و بک گراند با کتابخانه رایگان Amir_Paint
      تنظیم فونت - رنگ - رنگ ایتم انتخابی و ...
      Min SDK : 15
      ارسال کننده Assassin ارسال یکشنبه, 8 بهمن 1396 دسته کتابخانه  
    • توسط Assassin
      یک کتابخانه برای ایجاد wheel view
      امکان شخصی سازی کامل ویو
      قابلیت استفاده از Paint برای آیتم ها و بک گراند با کتابخانه رایگان Amir_Paint
      تنظیم فونت - رنگ - رنگ ایتم انتخابی و ...
      Min SDK : 15
×