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

[مهدی ایزدی 9,203]

سلام دوستان.

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

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

بعدش در 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 نفر کنار دستم نشستن نمیفهمم دارم چی میگم.

موفق باشید.

[مهران محمودی 778]

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

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

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

[arashb4a 23]

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

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

[msajad 501]

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

[stnima 11]

در در 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,203]

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

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

درود

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