Hi Jmu5667,
Not sure if its too late to reply you. But looks like if you have the C# code, translate to VB.NET code is not a difficult thing.
You could find some convert engine for help if you search on the Internet, here I tried to convert some from the documentation Siddhanath provided. Hope helps.
Connect to a peer app
Private Sub AppToApp()
' PeerFinder.Start() is used to advertise our presence so that peers can find us.
' It must always be called before FindAllPeersAsync.
PeerFinder.Start()
Dim peers = Await PeerFinder.FindAllPeersAsync()
If peers.Count = 0 Then
Debug.WriteLine("Peer not found.")
Else
' Select a peer. In this example, let's just pick the first peer.
Dim selectedPeer As PeerInformation = peers(0)
' Attempt a connection
Dim streamSocket = Await PeerFinder.ConnectAsync(selectedPeer)
DoSomethingUseful(streamSocket)
End If
End Sub
Connect to a device
Private Sub AppToDevice()
' Configure PeerFinder to search for all paired devices.
PeerFinder.AlternateIdentities("Bluetooth:Paired") = ""
Dim pairedDevices = Await PeerFinder.FindAllPeersAsync()
If pairedDevices.Count = 0 Then
Debug.WriteLine("No paired devices were found.")
Else
' Select a paired device. In this example, just pick the first one.
Dim selectedDevice As PeerInformation = pairedDevices(0)
' Attempt a connection
Dim socket As New StreamSocket()
' Make sure ID_CAP_NETWORKING is enabled in your WMAppManifest.xml, or the next
' line will throw an Access Denied exception.
' In this example, the second parameter of the call to ConnectAsync() is the RFCOMM port number, and can range
' in value from 1 to 30.
Await socket.ConnectAsync(selectedDevice.HostName, "1")
DoSomethingUseful(socket)
End If
End Sub
Listen for a connection request
' Page Constructor
Public Sub New()
InitializeComponent()
AddHandler Loaded, AddressOf MainPage_Loaded
End Sub
Private Sub MainPage_Loaded(sender As Object, e As RoutedEventArgs)
AddHandler PeerFinder.ConnectionRequested, AddressOf PeerFinder_ConnectionRequested
End Sub
Private Sub PeerFinder_ConnectionRequested(sender As Object, args As ConnectionRequestedEventArgs)
If ShouldConnect() Then
' Go ahead and connect
ConnectToPeer(args.PeerInformation)
End If
End Sub
Private Sub ConnectToPeer(peer As PeerInformation)
Dim socket As StreamSocket = Await PeerFinder.ConnectAsync(peer)
DoSomethingUseful(socket)
End Sub
Private Function ShouldConnect() As Boolean
' Determine whether to accept this connection request and return
Return True
End Function
Detect the state of the Bluetooth radio on your phone
Private Sub FindPaired()
' Search for all paired devices
PeerFinder.AlternateIdentities("Bluetooth:Paired") = ""
Try
' Handle the result of the FindAllPeersAsync call
Dim peers = Await PeerFinder.FindAllPeersAsync()
Catch ex As Exception
If CUInt(ex.HResult) = &H8007048fUI Then
MessageBox.Show("Bluetooth is turned off")
End If
End Try
End Sub
--James
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.
