تست روشن یا خاموش بودن مثلا بلوتوث یا وای فای

[rezaazadeh 120]

سلام خدمت همه

من می خواستم تو برنامه تست کنم که مثلا بلوتوث خاموشه یا روشنه اگه روشن بود اینکارو بکنه اگه نبود ی کار دیگه

ممنون میشم راهنمایی کنید یا ی قطعه از کدشو بنویسید  

[Elyas Erfani 3,582]

سلام

 

کتابخانه Serial را فعال کنید

 

در Sub Globals :

Dim s As BluetoothAdmin

و واسه چک کردن روشن یا خاموش بودن بلوتوث هم :

If s.IsEnabled = True Then
ToastMessageShow("بلوتوث روشن است" , True)
Else If s.IsEnabled = False Then
ToastMessageShow("بلوتوث خاموش است" ,True)
End If

موفق باشید