Sub StartSophosClient
Dim i As Intent
i.Initialize(i.ACTION_MAIN, "")
i.SetComponent("de.blinkt.openvpn/.LaunchVPN")
i.PutExtra("de.blinkt.openvpn.shortcutProfileName", "VPN_Telecontrollo")
i.PutExtra("de.blinkt.openvpn.AUTOCONNECT", True)
StartActivity(i)
End Sub
Sub StopSophosClient
Dim i As Intent
i.Initialize(i.ACTION_MAIN, "")
i.SetComponent("de.blinkt.openvpn/.api.DisconnectVPN")
i.PutExtra("de.blinkt.openvpn.shortcutProfileName", "VPN_Telecontrollo")
StartActivity(i)
End Sub