Sub Aktor1()
        'Me.Text = My.Settings.Aktor
        'Dim sid As String = GetSessionId("MP", "spenglexentis")
        Dim a As String = "http://" & My.Settings.IP & _
          "/webservices/homeautoswitch.lua?ain=" & Form2.AI1.Text
        Dim b As String = "&switchcmd=getswitchpower"
        Dim c As String = "&sid="
        'Dim d As String = Label1.Text
        Dim ausführen As String
        ausführen = a + b + c + SID.Text
        Dim hReq As HttpWebRequest = DirectCast(HttpWebRequest.Create( _
          ausführen), HttpWebRequest)
        Dim hRes As HttpWebResponse = DirectCast(hReq.GetResponse(), _
        HttpWebResponse)
        Dim s As Stream = hRes.GetResponseStream()
        Dim sR As New StreamReader(s)
        Dim webPage As String = sR.ReadToEnd()
        AK1.Text = Form2.Settings1.Text & "  = "
        Watt1.Text = webPage / 1000 & " Watt"
        Dim myWebRequest As HttpWebRequest = HttpWebRequest.Create(ausführen)
        Dim Response As HttpWebResponse = myWebRequest.GetResponse()
    End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
 
        Label1.Text = Label1.Text - 1
 
        If Label1.Text = "0" Then
            Label1.Text = "15"
 
            Aktor1()
            Aktor2()
            Aktor3()
        End If
 
    End Sub
 
Hat jemand eine Idee ?

Zitat:

Hallo Forum, Hat jemand eine Idee ?

Dim ausführen As String = "...."
Dim webpage As String 'außerhalb des Using-Blocks deklarieren
 
Dim hReq As HttpWebRequest = DirectCast(HttpWebRequest.Create(
          ausführen), HttpWebRequest)
 
Using hRes As HttpWebResponse =
        DirectCast(hReq.GetResponse(), HttpWebResponse),
      s As IO.Stream = hRes.GetResponseStream(),
      SR As New IO.StreamReader(s)
 
      webpage = SR.ReadToEnd()
End Using 'Hier erfolgt die Freigabe der Ressourcen