在 VB6 中，你可以使用 WMI（Windows Management Instrumentation）来读取硬盘的工作时间。下面土嘎嘎小编分享一个示例代码，演示如何获取硬盘的工作时间：

〓〓vb代码如下：〓〓

Option Explicit

Private Sub GetDiskWorkTime()

    Dim objWMIService As Object

    Dim colItems As Object

    Dim objItem As Object    

    Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")

    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PerfFormattedData_PerfDisk_PhysicalDisk WHERE Name='_Total'")    

    For Each objItem In colItems

        MsgBox "Disk Work Time: " & objItem.PercentDiskTime

    Next objItem    

    Set objItem = Nothing

    Set colItems = Nothing

    Set objWMIService = Nothing

End Sub

上面给出的代码通过 WMI 查询 Win32_PerfFormattedData_PerfDisk_PhysicalDisk 类的 _Total 实例，然后获取其 PercentDiskTime 属性，该属性表示硬盘的工作时间比例。

注意，你需要将代码中的硬盘名称  _Total  替换为你想要查询的具体硬盘名称，或者如果你想获取所有硬盘的工作时间，可以删除 WHERE 子句。

请确保在运行代码之前已经添加对 "Microsoft WMI Scripting Library" 的引用。可以通过依次转到 "项目" -> "引用"，然后勾选 "Microsoft WMI Scripting Library" 来添加引用。

这只是一个简单的示例，你可以根据自己的需求进一步扩展代码。