1

我正在尝试使用代码注册对等点名称，并能够在另一台机器上解析对等点。我的第一次尝试是让它在我自己的网络上运行，但想让它在全球范围内运行。

更新：似乎无法添加注册。我可以在我的另一台机器上通过命令行注册并在另一台机器上解决它。

我知道这是一个很大的模糊，但会回答问题。

我还一直在查看以下链接以获取故障排除想法：

http://blogs.msdn.com/b/p2p/archive/2007/07/24/pnrp-debugging-guide-part-1.aspx

http://blogs.msdn.com/b/p2p/archive/2007/06/15/pnrp-and-pnrp-net.aspx

我正在使用以下命令来解决，但只适用于本地机器：

netsh p2p pnrp peer resolve peername=0.AMS cloud=Global_

这是我正在使用的代码：

Imports System
Imports System.ServiceModel
Imports System.ServiceModel.Description
Imports System.Net
Imports System.Net.PeerToPeer

Module Module1

    Sub Main()

        Dim reg As PeerNameRegistration = RegisterPeer("AMS", 8000)
        reg.Cloud = PeerToPeer.Cloud.Global
        reg.Comment = "Hello!"
        reg.Start()

        Console.WriteLine("Please press 'Enter' to exit...")
        Console.ReadLine()
    End Sub

    Public Function RegisterPeer(ByVal classifier As String, ByVal port As Integer) As PeerNameRegistration
        Dim peerName As PeerName = New PeerName(classifier, PeerNameType.Unsecured)
        Dim reg As New PeerNameRegistration(peerName, port)
        reg.UseAutoEndPointSelection = True
        Return reg
    End Function

End Module
4

0 回答 0