我想使用VB编写的自定义应用程序控制Windows 10 x64中Wifi和移动(蜂窝)连接的RadioState。它适用于Wifi广播,但不适用于MobileBroadband。
实际上,代码的作用与在Windows 10中单击ActionCenter并按Wifi或Cellular按钮相同。
Private Async Sub TurnMobileOnOff(arg As Integer)
Dim access = Await Windows.Devices.WiFi.WiFiAdapter.RequestAccessAsync
Dim radios = Await Windows.Devices.Radios.Radio.GetRadiosAsync
If access = Windows.Devices.WiFi.WiFiAccessStatus.Allowed Then
For Each radio In radios
If radio.Kind = Windows.Devices.Radios.RadioKind.MobileBroadband Then
If arg = 1 Then
Await radio.SetStateAsync(Windows.Devices.Radios.RadioState.On)
RichTextBox1.AppendText(vbCrLf & "Mobile connection is turninng on")
ElseIf arg = 0 Then
Await radio.SetStateAsync(Windows.Devices.Radios.RadioState.Off)
RichTextBox1.AppendText(vbCrLf & "Mobile connection is turninng off")
End If
End If
Next
End If
End Sub
没有错误消息,只是radiostate不变。相同的代码适用于WiFi。
来源:https://docs.microsoft.com/en-us/uwp/api/windows.devices.radios.radiostate
感谢您的帮助。