Question

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

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

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

我也一直在审核以下链接以进行问题排查：

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

解决p2p问题解决

0 个答案: