اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

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


a.samiee

دریافت لیست وای فای های روشن در اطراف دستگاه با استفاده از کتابخانه ABWifi

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

سلام

من میخوام با استفاده از کتابخانهABwifi یه برنامه بنویسم که لیستی از دستگاههای وای فای دار موجود در اطراف گوشی رو برام لیست کنه 

برای شروع یه تیکه کد نوشتم تا فقط بتونم تعداد دستگاهها رو نشون بده که همش مقدار صفر رو بر میگردونه !

ممنون میشم اگه دوستان کمک کنند

Dim x as ABWifi

 

sub btn_scan_Click

Dim num as int

()st=x.ABLoadwifi

if st=true then

num=x.ABNumberOfavailablewifiNetworks

Lable1.text = num

Endif

Endsub

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


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

سلام

شما از کتابخانه MLWifi هم میتونید استفاده کنید و براحتی لیست شبکه های وای فای رو پیدا کنید:


Sub Globals
	Dim ml As MLScan
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Dim ml As MLScan
	ml.startScan("ml")
End Sub
Sub ml_ScanDone(Results() As String, Count As Int)
	ToastMessageShow("تعداد شبکه های پیدا شده: "&Count,True)
	
	For i=0 To Results.Length-1
		Log(Results(i))
	Next
End Sub

اینجا اومدم لاگ دادم کل دستگاه هارو، شما میتونید به لیست ویو یا هرچیزی... اضافه کنید.

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
در در 1395/10/19, 10:26:34، پژمان نیکروان گفته است :

سلام

شما از کتابخانه MLWifi هم میتونید استفاده کنید و براحتی لیست شبکه های وای فای رو پیدا کنید:



Sub Globals
	Dim ml As MLScan
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Dim ml As MLScan
	ml.startScan("ml")
End Sub
Sub ml_ScanDone(Results() As String, Count As Int)
	ToastMessageShow("تعداد شبکه های پیدا شده: "&Count,True)
	
	For i=0 To Results.Length-1
		Log(Results(i))
	Next
End Sub

اینجا اومدم لاگ دادم کل دستگاه هارو، شما میتونید به لیست ویو یا هرچیزی... اضافه کنید.

خیلی ممنون ولیکن من کد را که تو برنامه گذاشتم موقع اجرای برنامه برنامه اجرا نمیشه و متوقف میشه ارور میده

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
در ۱ ساعت قبل، stm32 گفته است :

خیلی ممنون ولیکن من کد را که تو برنامه گذاشتم موقع اجرای برنامه برنامه اجرا نمیشه و متوقف میشه ارور میده

چه ارروری میده؟

من قبلا ازش استفاده کرده بودم فکر کنم. احتمالا یه سری دسترسی ها میخواد که باید به منیفست اد بشه.

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


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

این 3 دسترسی رو اضافه کنید به منیفست:

AddPermission(android.permission.ACCESS_NETWORK_STATE)
AddPermission(android.permission.ACCESS_WIFI_STATE)
AddPermission(android.permission.CHANGE_WIFI_STATE)

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

به تو تاپیک زیر توی سایت مرجع مراجعه کنید:

B4A Library - Simple WIFI library | B4X Community - Android, iOS, desktop, server and IoT programming tools

B4A - MLwifi

 

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


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

مهندس سلام --- ممنون میشم این کتابخانه اینجا پیوست کنید ؟

 

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


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

 

در 24 دقیقه قبل، mojtaba68 گفته است :

مهندس سلام --- ممنون میشم این کتابخانه اینجا پیوست کنید ؟

 

خدمت شما.

همراه با سورس و کد های مانیفست

mlwifi-2.17

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


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

خیلی ممنون جواب داد فقط یک سوالی تو مقادیری که میفرسته یک عدد منفی هم بعد از نوشته هاش میفرسته اون عدد منفی چیه مقدار توان انتن هست یا چیز دیگری هست؟

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


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

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

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

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

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

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

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

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

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


درباره ما

 گروه برنامه نویسی انسور سنتر کار خود را به صورت رسمی از سال 1392 تحت عنوان تیم برنامه نویسی بیسیک4اندروید ایران آغاز کرد و در کمتر از یک سال به پرمخاطب ترین .و محبوب ترین انجمن برنامه نویسی بیسیک4اندروید ایرانی تبدیل شد و اکنون به درخواست بسیاری از کاربران، انجمن زمینه فعالیت خود را گسترش داده است

 

تماس با ما.

  •         بلوچستان، ایرانشهر، بلوار مکران، میدان بسیج، جنب حوزه علمیه حقانیه. کد پستی: 9917914113
  •         info@answercenter.ir
  •         09338810122