One address.
Any transport.
Every message routed.

#include "TargetFacadeFn.hpp"

p2pf::Network net;                                   // one init object
p2pf::Hub server = net.createHub(L"Demo");
server.onTopic(L"chat", [](const p2pf::Message& m) {   // no message map
    wprintf(L"%s: %s\n", m.source, m.text());
});
server.listen(L"Demo.Client", L"tcp://:7788");        // the scheme picks the transport

p2pf::Hub client = net.createHub(L"Demo.Client");
client.connect(L"Demo", L"tcp://127.0.0.1:7788");
client.sendText(L"Demo", L"chat", L"hello");

$net    = New-Object -ComObject TargetCom.P2PNetwork   # no compiler, no header
$server = $net.CreateHub("Demo")
$server.Listen("Demo.Client", "tcp://:7788")

$client = $net.CreateHub("Demo.Client")
$client.Connect("Demo", "tcp://127.0.0.1:7788")
while (-not $client.IsPeerUp("Demo")) { Start-Sleep -Milliseconds 50 }

$client.SendText("Demo", "chat", "hello from PowerShell")
$server.Broadcast("news", "to everyone")     # True: a peer took a copy

Set net = CreateObject("TargetCom.P2PNetwork")   ' VBA and Excel: the same lines
Set server = net.CreateHub("Demo")
server.Listen "Demo.Client", "tcp://:7788"

Set client = net.CreateHub("Demo.Client")
client.Connect "Demo", "tcp://127.0.0.1:7788"
Do While Not client.IsPeerUp("Demo") : WScript.Sleep 50 : Loop

client.SendText "Demo", "chat", "hello from VBScript"
If server.Broadcast("news", "to everyone") Then WScript.Echo "delivered"

dynamic net = Activator.CreateInstance(Type.GetTypeFromProgID("TargetCom.P2PNetwork"));
dynamic server = net.CreateHub("Demo");
server.Listen("Demo.Client", "tcp://:7788");

dynamic client = net.CreateHub("Demo.Client");
client.Connect("Demo", "tcp://127.0.0.1:7788");
while (!client.IsPeerUp("Demo")) Thread.Sleep(50);

client.SendText("Demo", "chat", "hello from C#");
// early-bound: sink _IP2PHubEvents for OnMessage, OnPeerUp, OnPeerDown, OnError