Dim rot As Long, hKey As Long, ret As Long
Dim value As Long, lptype As Long, length As Long
RegOpenKey HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", hKeyret = RegQueryValueEx(hKey, "yesnovalue", 0, lptype, 0, length)If ret <> 0 And ret <> 234 Then '不存在则建立
RegCreateKey HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", hKey RegSetValueEx hKey, "yesnovalue", 0, REG_SZ, ByVal "0", 1
End If
Dim value As Long, lptype As Long, length As Long
RegOpenKey HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", hKeyret = RegQueryValueEx(hKey, "yesnovalue", 0, lptype, 0, length)If ret <> 0 And ret <> 234 Then '不存在则建立
RegCreateKey HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", hKey RegSetValueEx hKey, "yesnovalue", 0, REG_SZ, ByVal "0", 1
End If
我下载了几个都不好用
HKEY_PERFORMANCE_DATA = &H80000004
HKEY_DYN_DATA = &H80000006 可是我用了两个都出错!
比如cpu
就是PerfStats\StatData\KERNEL\CPUUsage
发到我得信箱:[email protected]