Information per UPNP abfragen

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Mufasa.

    Information per UPNP abfragen

    So.... nachdem ich mein Prog nu soweit eigentlich fertig hab möchte ich diverse Infos über UPNP abfragen.Aber bis jetzt passiert nix.

    VB.NET-Quellcode

    1. Const cUDN = "uuid:......."
    2. Const cURN = "urn:schemas-upnp-org:serviceId:WANIPConn:1"
    3. Const cACTION = "GetExternalIPAddress"
    4. Const cVARIABLE = "ExternalIPAddress"
    6. Dim oFindDevice As UPNPLib.UPnPDeviceFinder
    7. Dim oDevice As UPNPLib.UPnPDevice
    8. Dim oServices As UPNPLib.UPnPServices
    9. Dim oService As UPNPLib.UPnPService
    11. Dim vIn(0) As Object
    12. Dim vOut(0) As Object
    13. Dim sValue As Integer
    14. Dim iRet As Integer
    16. oFindDevice = New UPNPLib.UPnPDeviceFinder
    17. oDevice = oFindDevice.FindByUDN(cUDN)
    19. If Not oDevice Is Nothing Then
    20. oServices = oDevice.Services
    21. If Not oServices Is Nothing Then
    22. oService = oServices.Item(cURN)
    23. If Not oService Is Nothing Then
    24. oService.AddCallback(iRet)
    25. oService.InvokeAction(cACTION, vIn, vOut)
    26. System.Threading.Thread.Sleep(3000)
    27. sValue = oService.QueryStateVariable(cVARIABLE)
    28. MsgBox(sValue)
    29. Label1.Text = (sValue)
    30. End If
    32. End If
    33. End If


    In diesem Code wird bis jetzt nur die IP abgefragt. Doch solanger hier nichts passiert brauchich denk ich wohl erstmal nich weitermachen.

    Ich hoffe man kann mir da ein wenig weiterhelfen. Denn ich hab keine Ahnung wo der Fehler liegt.
    UDN und URN sind dev Richtig ACTION und VARIABLE ebenfalls. Soviel ist sicher. Das derzeitige Programm greift auch auf UPNP zu. aber wie gesagt. ich bekomme keine Ausgabe. Weder als MsgBox noch als ausgabe um Label1.

    Für Hilfe wäre ich Dankbar.

    Greetz DeepZone

    Themenauffrischung :-)

    Hi DeepZone,

    das Thema liegt jetzt schon einige Jahre zurück.... aber da ich selber jetzt auch an einem upnp-Problem hänge wollte ich keinen neuen Thread eröffnen weil das eigentlich sehr gut passt. Ich suche nach einer Möglichkeit Informationen aller UPNP-Geräte im Netzwerk abzufragen und anzuzeigen. Ich glaube das ist auch so in etwa was Du gemacht hast?!? Bin jetzt noch relativ neu in VB und Netzwerkprogrammierung...... Könntest Du mir vielleicht Dein Programm als Vorlage/Hilfestellung schicken? Das wäre super!!


    Bin ansonsten natürlich auch jedem für weitere Tipps und Vorschläge sehr dankbar!!!



    Lieben Gruß :)

Facebook
Telefonspende