Question

我有一个非常简单的视觉基本winform应用程序，它只是一个计数器。如何在网页中查看此数据？

这是我的代码：

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

我会创建一个网页并使用Excel的HTTP请求发送它

按照此网站上的步骤操作：https://codingislove.com/http-requests-excel-vba/

以下是POST请求发送上述数据的示例（我没有对此进行过测试，但看起来是正确的）：

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

另一个不是现场但仍然相当快的选项是让VBA更新SQL数据库中的条目，然后网页可以读取。如果您希望将应用程序运行时发送到网站，这不是最好的选择，但如果您每分钟更新一次，只是为了知道应用程序仍在从远程位置运行，这可能会有效。

通过互联网实时数据

1 个答案: