Hallo, was verwendest du als Reverse Proxy?

Sind Port 80 und 443 auf den Reverse Proxy weitergereicht?

Siehst du im Zertifikat ob dieses einfach nur abgelaufen ist vom Datum her oder was der Grund für das Ablehnen ist?

PS: Wäre es nicht einfacher Bitwarden über eine Subdomain aufzurufen? Habe bei mir auch bitwarden.domain.de und leite denn im Reversed Proxy intern auf die Docker-IP:Port weiter, dann kann der Port 5554 auf Routerseitig zu bleiben. Komme auf alle meine Dienste von außen drauf, es ist aber nur 80 und 443 offen für NPM

Das ist schwierig zu beantworten. Kühlschränke werde je nach Einstellung der Temperatur mal länger oder mal kürzer eingeschaltet (getaktet -> eine Art PWM in extrem langsam). Die Maximalleistung des Kühlschrankes bei dir scheint 160W zu sein, also wenn du niedrigste Temperatur einstellst und die Tür auflässt, wird er vermutlich kontinuierlich 160W brauchen. Ansonsten benötigt er 160W bis die Temperatur erreicht ist, dann etwa 0, bis ein Schwellwert unterschritten ist, dann wieder kurz 160W.. usw... Habe eine Grafik angehängt von meinem Kühlschrank, ist allerdings sehr modern, weshalb die Leistungen hier recht klein sind, der Mittelwert ist eher ausschlaggebend, diesen kann man dann aufs Jahr hochrechnen.

Idr geben die Hersteller eine kWh/a- Angabe an, danach kann man grob gehen.

Ansonsten würde ich in deinem Fall mal von 30-40W Mittelwert ausgehen, um grob zu rechnen... 35W/1000*0,3€*24h*365d=91,98€ -> roundabout 100€/Jahr ist realistisch bei mittlerer Temperatureinstellung

Probiers in VB mal mit

Try
   "Code zum auslesen der Schnittstelle"
catch ex as Exception
  MsgBox("Tralala")
end try

Dann sollte sich das Programm zumindest nicht mehr aufhängen

Für das Auslesen kannst du aber auch folgenden Code benutzen

'Globale Variable
 Delegate Sub SetTextCallBack(ByVal [text] As String)

    Private Sub SerialPort1_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        RecievedText(SerialPort1.ReadExisting())
    End Sub

    Private Sub RecievedText(ByVal [text] As String)
        If Me.tb_Empfangen.InvokeRequired Then
            Dim x As New SetTextCallBack(AddressOf RecievedText)
            Me.Invoke(x, New Object() {(text)})
        Else
            Me.tb_Empfangen.Text &= [text]
        End If
    End Sub

Kannst aber auch anstatt in eine TextBox auch eine String-Variable nehmen