Search Tools Links Login

Benchmark (updated!!) & PC Perfonmance Graphics


I have updated last benchmark program of mine. This mine has many features added to it. PC Perfonmance Graphics part can calculate the perfonmance of your PC cpu and harddrive and also graphics card!!! dont forget to vote!!!!!

Original Author: vbnick

Assumptions

everything is explained.

Side Effects

could slow your computer down a bit..

API Declarations

Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As uzunsayi, lpTotalNumberOfBytes As uzunsayi, lpTotalNumberOfFreeBytes As uzunsayi) As Long
'Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As uzun, lpBytesPerSector As uzun, lpNumberOfFreeClusters As uzun, lpTotalNumberOfClusters As Long) As Long
'the vb6 and vb5 api's(^) are different, but vb6 excepts the old one however I included the new one above also
Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal lpRootPathName As String) As Integer
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
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 GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Private Type SYSTEM_INFO
dwOemID As Long
dwPageSize As Long
lpMinimumApplicationAddress As Long
lpMaximumApplicationAddress As Long
dwActiveProcessorMask As Long
dwNumberOrfProcessors As Long
dwProcessorType As Long
dwAllocationGranularity As Long
dwReserved As Long
End Type

Private Declare Function GetVersion Lib "kernel32" () As Long

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 68 times

Categories

Visual Basic 6

Attachments

CODE_UPLOAD94048292000.zip
Posted: 9/3/2020 3:45:00 PM
Size: 169,544 bytes


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.