0

我想使用用 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

感谢您的帮助。

4

0 回答 0