با سلام و خسته نباشید به دوستان عزیز

 

ان شا ء الله که سالی پر برکت و خوبی داشته باشید کنار عزیزانتون

برای این کار کافیه کتابخانه phone رو تیک بزنید :

 

Dim p As Phone

If p.GetRingerMode=p.RINGER_NORMAL Then
Log("NORMAL")

Else If p.GetRingerMode=p.RINGER_SILENT Then
Log("SILENT")
Else If p.GetRingerMode=p.RINGER_VIBRATE Then
Log("VIBRATE")
End If

 

موفق باشید.