如何自动捕获Saturn South ESBox的JSON数据供VB6程序使用？

核心实现思路 #

利用VB6的Timer控件实现每分钟定时触发，通过MSXML2.XMLHTTP对象发送HTTP GET请求获取设备JSON数据，写入临时文件后调用你已有的解析逻辑，完成后删除临时文件。

步骤与代码示例 #

1. 配置工程引用 #

打开VB6工程，依次添加以下引用：

• Microsoft XML, v6.0（用于HTTP请求）
• Microsoft Scripting Runtime（用于文件操作）

2. 窗体代码实现 #

假设窗体上添加了一个Timer控件（默认名称Timer1），代码如下：

Option Explicit
Private Const TEMP_FILE_PATH As String = "C:\ESBox_Temp.json" ' 自定义临时文件路径，确保有读写权限

Private Sub Form_Load()
    ' 设置Timer每分钟触发一次（60000毫秒）
    Timer1.Interval = 60000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Dim xmlHttp As MSXML2.XMLHTTP60
    Dim jsonResponse As String
    Dim fso As FileSystemObject
    Dim ts As TextStream
    
    ' 初始化HTTP请求对象
    Set xmlHttp = New MSXML2.XMLHTTP60
    On Error GoTo RequestError
    
    ' 发送GET请求获取JSON数据
    xmlHttp.Open "GET", "http://esbox/api/devices", False
    xmlHttp.send
    
    ' 验证请求成功
    If xmlHttp.Status = 200 Then
        jsonResponse = xmlHttp.responseText
        
        ' 将JSON写入临时文件
        Set fso = New FileSystemObject
        Set ts = fso.CreateTextFile(TEMP_FILE_PATH, True)
        ts.Write jsonResponse
        ts.Close
        
        ' 调用你已有的JSON解析函数处理文件
        Call ParseESBoxJSON(TEMP_FILE_PATH) ' 替换为你实际的解析函数
        
        ' 清理临时文件
        If fso.FileExists(TEMP_FILE_PATH) Then
            fso.DeleteFile TEMP_FILE_PATH, True
        End If
    Else
        MsgBox "数据获取失败，HTTP状态码：" & xmlHttp.Status, vbExclamation
    End If

Cleanup:
    ' 释放资源
    Set ts = Nothing
    Set fso = Nothing
    Set xmlHttp = Nothing
    Exit Sub

RequestError:
    MsgBox "请求出错：" & Err.Description, vbCritical
    GoTo Cleanup
End Sub

' 示例解析函数（替换为你已有的实现）
Private Sub ParseESBoxJSON(filePath As String)
    ' 此处写入你的JSON解析逻辑
    ' 例如读取文件内容、解析为业务所需的数据结构
End Sub

关键注意事项 #

• 临时文件路径需确保程序拥有读写权限，可根据实际环境修改
• 如果ESBox设备需要身份认证，需在xmlHttp.Open后添加认证头（如xmlHttp.setRequestHeader "Authorization", "Bearer your_token"）
• 可扩展错误处理逻辑，比如网络超时、文件写入失败等场景
• 设备每6秒更新一次数据，每分钟捕获一次可确保获取最新快照

内容的提问来源于stack exchange，提问作者argusy