[Q] Thông tin về hệ thống

[QuynhGiao]

Trong VB có cách nào xem được số % sử dụng của chip, số % sử dụng Ram thật không các bạn.

[White_Rose]

RAM


Private Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type

Private Declare Sub GlobalMemoryStatus Lib "kernel32" _
Alias "GlobalMemoryStatus" (lpBuffer As MEMORYSTATUS)

Dim memInfo As MEMORYSTATUS
GlobalMemoryStatus memInfo
MsgBox "Tổng dung lượng RAM (byte): " & memInfo.dwTotalPhys
MsgBox "RAM trống(byte): " & memInfo.dwAvailPhys
MsgBox "Dung lượng bộ nhớ ảo (byte): " & memInfo.dwTotalVirtual

Mấy tham số còn lại nhìn tên chắc cũng đoán được.

CPU
Usage
- Add thêm một class vào, sao đó trỏ đến file attach ở dưới.
- Để lấy CPU's usage status, sử dụng đoạn code sau:


'Khai báo
Dim cpu As CPULoad
Set cpu = New CPULoad

intCPUs = cpu.GetCPUCount() ' số lượng CPU trong máy
'Cập nhập thông tin về status của CPU
cpu.CollectCPUData
For i = 1 to intCPUs
'hiển thị tình trạng sử dụng của CPU thứ i
Msgbox cpu.GetCPUUsage(i)
'Nếu dùng cpu.GetCPUUsage() thì mặc định là CPU thứ 1
Next

'GIải phóng
Set cpu = Nothing


P/S:
- Nhớ đổi tên file thành CPULoad.cls
- Nghỉ hè chưa zậy?:rolleyes: Dạo này tớ bận quá, mà lại sắp thi rồi:rolleyes:

[QuynhGiao]

Cám ơn WR nhé!
Mình thì không có HÈ WR ạ.Chúc WR thi tốt!