| |
VB.NET - FortgeschritteneIP Netzwerksteckdosen von Koukaam Netio ansteuern | | | Autor: Volker Bunge | Datum: 23.02.13 21:41 |
| Hallo Zusammen,
ist es möglich, mit VB-NET IP-Netzwerksteckdosen von Koukaam Netio anzusprechen und zu steuern?
Ich habe zwei o. g. Netzwerksteckdosen, die ich gerne mit einem kleinen Programm ansteuern möchte. Zur Zeit mache ich dies mit dem Browser, leider etwas umständlich und langatmig.
Was das Programm können muß
- Eine Verbindung zu den beiden Steckdosen per IP-Adresse aufbauen
- Die einzelnen Anschlußbezeichnungen und deren An/Aus-Status auslesen
- Den Status ändern und diesen an die Steckdosen zurück senden.
Das Einrichten kann ich ruhig über den Browser erledigen.
Hat von Euch einer eine Idee bzw. ist das überhaupt über VB.NET möglich?
Gruß
Volker
Beitrag wurde zuletzt am 23.02.13 um 21:55:34 editiert. | |
Re: IP Netzwerksteckdosen von Koukaam Netio ansteuern | | | Autor: Volker Bunge | Datum: 14.12.19 13:48 |
| Hallo zusammen,
hole meinen alten Beitrag wieder nach oben.
Grund: Ich besitze immer noch diese Netio Steckdosen und mein Programm, welches zwischen Clients und Server arbeitet, soll nun auch noch das Zuschalten von Steckdosen können.
Was bereits geht ist das ein und ausschalten der Steckdosen.
Public Sub Steckdose_Anschluss_ansteuern(Netio_Steckleiste As Integer, _
Anschluss As Integer, An As Boolean)
Dim AnAus As Integer
Dim TCPBefehl As String
Dim IPAdresse As String
IPAdresse = Netio_IPAdressen(Netio_Steckleiste)
If An = True Then
AnAus = 1
Else
AnAus = 0
End If
' Herkunft:
' https://www.vb-paradise.de/index.php/Thread/26043-Tutorial-Wie-stelle
' -ich-eine-Verbindung-nach-Telnet-her/
Dim tcpClient As New System.Net.Sockets.TcpClient()
tcpClient.Connect(IPAdresse, 1234)
Dim networkStream As NetworkStream = tcpClient.GetStream()
Dim sendBytes As [Byte]()
sendBytes = Encoding.ASCII.GetBytes("login admin admin" & vbCrLf)
networkStream.Write(sendBytes, 0, sendBytes.Length)
TCPBefehl = "port " & Anschluss & " " & AnAus
sendBytes = Encoding.ASCII.GetBytes(TCPBefehl & vbCrLf)
networkStream.Write(sendBytes, 0, sendBytes.Length)
TCPBefehl = "port list"
sendBytes = Encoding.ASCII.GetBytes(TCPBefehl & vbCrLf)
networkStream.Write(sendBytes,0, sendBytes.Length)
'MsgBox(networkStream.Read(sendBytes, 0, sendBytes.Length))
sendBytes = Encoding.ASCII.GetBytes("logout" & vbCrLf)
networkStream.Write(sendBytes, 0, sendBytes.Length)
tcpClient.Close()
End Sub Netio_Steckleiste beinhaltet die ganzen IP Adressen der Steckleisten.
Was ich jetzt gerne abfragen möchte ist, welches Status die einzelne Steckdose (oder auch alle) haben. Also an oder aus. Mit dieser Rückmeldung würde ich dann meine Anzeige entsprechend steuern.
Wäre super, wenn mir hier jemand eine paar Zeilen Code nennen könnte.
Vielen Dank
Volker | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats sevGraph (VB/VBA)
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|