رفتن به مطلب

آموزش کار با کتابخانه AbWifi


مهدی ایزدی

ارسال های توصیه شده

سلام دوستان.

خب مستقیم میریم سراغ آموزش

اول کتابخانه رو اضافه کنید

بعدش در Sub Globals :

Dim x As ABWifi

خب میخواییم لیست Wifi هایی که در اطراف ما روشن هستند و اینکه ما به کدوم یک از اونها Connect هستیم رو ببینیم:

در کد کلیک باتن هم میتونید این رو قرار بدید:

    Dim MyBool As Boolean
   Dim Tedad As Int 
   Dim Winfo As ABWifiInfo 
   MyBool = x.ABLoadWifi() 
   Winfo = x.ABGetCurrentWifiInfo() 
   Msgbox("Connected 0 :: " & Winfo.IsConnected, "")
   If MyBool = True Then
   Msgbox (x.ABGetCurrentWifiInfo().SSID, "به این وصل هستیم")
   For Tedad = 0 To x.ABNumberOfAvailableWifiNetworks - 1
   Msgbox(x.ABGetWifiNetwork(Tedad).SSID & " " & x.ABGetWifiNetwork(Tedad).Level & " " & x.ABGetWifiNetwork(Tedad).IsConnected, "میتونیم به این متصل بشیم")
   Next
   Else
   Msgbox(x.ABWifiLastError,"") 
   End If

مهمون برامون اومده از شیراز. الان که دارم تایپ میکنم 4 نفر کنار دستم نشستن نمیفهمم دارم چی میگم.

موفق باشید.

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

ممنون از مهدی عزیز.

برای دانلود کتابخانه به این تاپیک مراجعه کنید.

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

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

  • 4 ماه بعد...

با سلام ممنون از زحمتی که کشیدی ولی چرا wifi من رو میگه وصل نیست در واقع مقدار isconnected رو False میزنه

احتمال داره چون با wifi b4a bridge وصل هستم مقدارش رو false میزنه میشه؟

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

  • 1 سال بعد...
در در 1393/06/15, 14:19:30، مهدی ایزدی گفته است :

سلام دوستان.

خب مستقیم میریم سراغ آموزش

اول کتابخانه رو اضافه کنید

بعدش در Sub Globals :

 


Dim x As ABWifi
 

 

خب میخواییم لیست Wifi هایی که در اطراف ما روشن هستند و اینکه ما به کدوم یک از اونها Connect هستیم رو ببینیم:

در کد کلیک باتن هم میتونید این رو قرار بدید:

 


    Dim MyBool As Boolean
   Dim Tedad As Int 
   Dim Winfo As ABWifiInfo 
   MyBool = x.ABLoadWifi() 
   Winfo = x.ABGetCurrentWifiInfo() 
   Msgbox("Connected 0 :: " & Winfo.IsConnected, "")
   If MyBool = True Then
   Msgbox (x.ABGetCurrentWifiInfo().SSID, "به این وصل هستیم")
   For Tedad = 0 To x.ABNumberOfAvailableWifiNetworks - 1
   Msgbox(x.ABGetWifiNetwork(Tedad).SSID & " " & x.ABGetWifiNetwork(Tedad).Level & " " & x.ABGetWifiNetwork(Tedad).IsConnected, "میتونیم به این متصل بشیم")
   Next
   Else
   Msgbox(x.ABWifiLastError,"") 
   End If
 

 

مهمون برامون اومده از شیراز. الان که دارم تایپ میکنم 4 نفر کنار دستم نشستن نمیفهمم دارم چی میگم.

موفق باشید.

سلام آقا مهدی عذرخواهم تاپیک قدیمی رو بالا آوردم .
میشه بگید چه طوری میتونم مقدار قدرت دریافتی wifi رو هم به دست بیارم خیلی بهش نیاز دارم ممنون میشم کمک کنید.

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

در 9 ساعت قبل، stnima گفته است :

سلام آقا مهدی عذرخواهم تاپیک قدیمی رو بالا آوردم .
میشه بگید چه طوری میتونم مقدار قدرت دریافتی wifi رو هم به دست بیارم خیلی بهش نیاز دارم ممنون میشم کمک کنید.

درود

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

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

بایگانی شده

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

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

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