2016-08-17 1 views

Antwort

0
„der Zielcomputer verweigert“

Wenn dies jemand helfen könnte, hier ist meine Antwort:

Private Sub AnnounceService() 
    Dim baseAddress As New Uri(String.Format("net.tcp://{0}:10000", Net.Dns.GetHostEntry(Net.Dns.GetHostName).AddressList(1).ToString())) 
    Dim serviceHost As New ServiceHost(GetType(WCFService), baseAddress) 
    Dim endPoint As ServiceEndpoint = serviceHost.AddServiceEndpoint(GetType(IWCFService), New NetTcpBinding(SecurityMode.None), "WCFService") 
    Dim epAddress As New EndpointAddress(baseAddress) 

    Dim client As New AnnouncementClient(New UdpAnnouncementEndpoint()) 
    Dim epDiscoveryMetaData = EndpointDiscoveryMetadata.FromServiceEndpoint(endPoint) 

    client.AnnounceOnline(epDiscoveryMetaData) 

End Sub 
Verwandte Themen