03-05-2014, 11:23 AM
hmm.
SNMP. raczej do odczytu,
czy twoja strona może wysyłac polecenia np (nie dokladnie) : jak klikniesz w ikone zmień stan przekaźnika to jest wykonywany link w postaci : ("Http://admin:admin@" & IpLankontrolera & "/outs.cgi?out=0"
zmieni stan przekaźnika na przeciwny
np procedura zmiany stanu przekaxnika w Visual Basic (2012) :
Private Sub btnOut0_Click(sender As Object, e As EventArgs) Handles btnOut0.Click
Dim request As WebRequest = WebRequest.Create("Http://admin:admin@" & IpLankontrolera & "/outs.cgi?out=0")
request.Method = "POST"
Dim dataStream As Stream = request.GetRequestStream()
dataStream.Close()
Dim response As WebResponse = request.GetResponse()
Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)
dataStream = response.GetResponseStream()
Dim reader As New StreamReader(dataStream)
Dim responseFromServer As String = reader.ReadToEnd()
' Display the content.
Console.WriteLine(responseFromServer)
If responseFromServer = "1" Then
btnOut0.BackColor = Color.Red / btnOut0 - to button/
lblOut0.Text = " Wyłączony" / lbl osnaczam zawsze jako przedrostek do label/
Else
btnOut0.BackColor = Color.Green
lblOut0.Text = " Załączony"
End If
' Clean up the streams.
reader.Close()
dataStream.Close()
response.Close()
End Sub
SNMP. raczej do odczytu,
czy twoja strona może wysyłac polecenia np (nie dokladnie) : jak klikniesz w ikone zmień stan przekaźnika to jest wykonywany link w postaci : ("Http://admin:admin@" & IpLankontrolera & "/outs.cgi?out=0"
zmieni stan przekaźnika na przeciwny
np procedura zmiany stanu przekaxnika w Visual Basic (2012) :
Private Sub btnOut0_Click(sender As Object, e As EventArgs) Handles btnOut0.Click
Dim request As WebRequest = WebRequest.Create("Http://admin:admin@" & IpLankontrolera & "/outs.cgi?out=0")
request.Method = "POST"
Dim dataStream As Stream = request.GetRequestStream()
dataStream.Close()
Dim response As WebResponse = request.GetResponse()
Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)
dataStream = response.GetResponseStream()
Dim reader As New StreamReader(dataStream)
Dim responseFromServer As String = reader.ReadToEnd()
' Display the content.
Console.WriteLine(responseFromServer)
If responseFromServer = "1" Then
btnOut0.BackColor = Color.Red / btnOut0 - to button/
lblOut0.Text = " Wyłączony" / lbl osnaczam zawsze jako przedrostek do label/
Else
btnOut0.BackColor = Color.Green
lblOut0.Text = " Załączony"
End If
' Clean up the streams.
reader.Close()
dataStream.Close()
response.Close()
End Sub