Live-Daten über das Internet

Question

Ich habe eine sehr einfache visuelle Winform-Anwendung, die nur ein Zähler ist. Wie kann ich diese Daten live auf einer Webseite sehen?

Hier ist mein Code:

Public Function GetTime(Time as Integer) As String 
    Dim Hrs  As Integer 'number of hours ' 
    Dim Min  As Integer 'number of Minutes ' 
    Dim Sec  As Integer 'number of Sec  ' 

    'Seconds' 
    Sec = Time Mod 60 

    'Minutes' 
    Min = ((Time - Sec)/60) Mod 60 

    'Hours' 
    Hrs = ((Time - (Sec + (Min * 60)))/3600) Mod 60 

    Return Format(Hrs, "00") & ":" & Format(Min, "00") & ":" & Format(Sec, "00") 
End Function 

Answer 1

ich eine Webseite machen würde und es mit einer HTTP-Anforderung von Excel

Folgen Sie den Anweisungen auf dieser Seite senden: https://codingislove.com/http-requests-excel-vba/

Hier ist ein Beispiel wie die POST-Anfrage aussehen könnte, um die Daten, die Sie oben haben, zu senden (ich habe das nicht getestet, aber es sieht richtig aus):

Public Sub sendRunTime(min as Integer, sec as Integer, hrs as Integer) 
    Dim xmlhttp As New MSXML2.XMLHTTP, myurl As String 
    myurl = "http://url/15oxrjh1" 
    xmlhttp.Open "POST", myurl, False 
    xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
    xmlhttp.Send "min="&min&"&sec="&sec&"&hrs="&hrs 
End Sub 

Eine andere Option, die nicht so live ist, aber trotzdem verdammt schnell, wäre, dass VBA einen Eintrag in einer SQL-Datenbank aktualisiert, den die Webseite dann lesen kann. Wenn Sie die Laufzeit der Anwendungen auf die Website senden möchten, ist dies nicht die beste Wahl, aber wenn Sie jede Minute aktualisieren, nur um zu wissen, dass die App immer noch von einem Remote-Standort aus läuft, könnte dies funktionieren.