отображение всей информации в стандартном окне Windows.
Все поставленные задачи в полной мере решались в среде Visual Basic. Она и была выбрана в качестве средства создания рассматриваемой программы.
3. Описание алгоритма работы программы
3.1. Сбор сведений
.Inf – файлы.
В папке Windows/INF собраны файлы, в которых находится информация об устанавливаемом оборудовании при инсталляции или загрузке операционной системы. И среди прочей служебной информации есть сведения о классе того или иного устройства, описываемого конкретным файлом. Все файлы этой папки мы просматриваем (.inf-файлы, в которых отсутствуют такие сведения нами не рассматриваются, а в программе пропускаются) и создаём список классов всех возможно установленных устройств.
3.2. Сравнение с информацией системного реестра
После того как получен список, каждый найденный класс проверяем на его присутствие в системном реестре и, если он обнаружен, то включаем счётчик возможно установленных устройств данного класса. При каждом пересчёте счётчика делаем обращение к реестру на признак присутствия устройства и, если ответ положительный , сохраняем информацию. Если же устройств данного класса в реестре не обнаружено, то переходим к следующему элементу списка до тех пор, пока не исчерпаем его весь.
После отработки данной части алгоритма имеем распределённый по группам список всех установленных устройств и информацию по каждому из них.
Весь процесс сбора информации сопровождается выводом на экран окна «Сбор сведений» (рис.1), в котором динамически отображаются результаты поиска и идентификации.
3.3. Отображение полученной информации.
Интерфейс пользователя
При разработке интерфейса основное внимание уделялось простоте использования и наглядности. Все возможные типы устройств, устанавливаемые в современных компьютерах, поделились на группы. В результате получилось 6 наименований:
• Процессор;
• Системная плата;
• Память;
• Диски;
• Адаптеры и др.устройства;
• Устройства ввода/вывода.
Далее следовало создание формы в среде Visual Basic, на которой были
размещены 6 кнопок (по одной на каждую из выделенных групп), окно просмотра информации по выбранной группе с линиями прокрутки и линейка быстрой помощи.
Внешний вид формы приведён на рисунке 2.
Отображение информации.
По нажатию одной из кнопок вступает в работу соответствующая процедура обработки, которая производит подготовку и вывод нужной информации. В результате в окне справа появляется информация, касающаяся выбранной группы.
Линейка быстрой помощи
При наведении курсора мыши на каждую из кнопок в линейке быстрой помощи появляется информация её функции .
4. Текст программы
Ниже приводится текст разработанной программы:
Код формы HV1(HV1.frm):
Private Sub Form_Load()
Progress.Show
Call SB_Sveden
Progress.Hide
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Command1_Click()
SubK$ = "HardwareDescriptionSystemCentralProcessor"
On Error GoTo Noread
ProcID$ = HV1.RegCtrl1.RReadValue(HK$, SubK$, "Identifier")
Noread: On Error Resume Next
On Error GoTo Noread1
ProcMMX$ = HV1.RegCtrl1.RReadValue(HK$, SubK$, "MMXIdentifier")
Noread1: On Error Resume Next
On Error GoTo Noread2
VendorID$ = HV1.RegCtrl1.RReadValue(HK$, SubK$, "VendorIdentifier")
Noread2: Err.Clear
CpInst$ = ""
If Coproc Then CpInst$ = "Сопроцессор встроенный"
Box1 = ProcID$ & vbCrLf & ProcMMX$ & vbCrLf & VendorID$ & vbCrLf & " " & vbCrLf & CpInst$
On Error GoTo 0
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "Информация о центральном процессоре."
End Sub
Private Sub Command2_Click()
Call B_Text(2)
End Sub
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "Информация о системной плате."
End Sub
Private Sub Command3_Click()
Dim clsMem As New clsMemorySnapshot
Box1 = "Объём физической памяти : " & Format(clsMem.TotalMemory 1024, "###,###,###,###,##0") & " KB" & vbCrLf & "Свободно : " & Format(clsMem.FreeMemory 1024, "###,###,###,###,##0") & " KB*" & vbCrLf
End Sub
Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "Информация о памяти."
End Sub
Private Sub Command4_Click()
ms = MsgBox("Рекомендуется вставить диски во все дисководы.", vbOKCancel, "ВНИМАНИЕ!")
GetDiskInfo
Box1 = ""
For Ka = 1 To n
tc$ = Str((BytesPerSec(Ka) * SecsPerClus(Ka) * TotalNumOfClus(Ka) / 1000) / 1000)
fc$ = Str((BytesPerSec(Ka) * SecsPerClus(Ka) * NumOfFreeClus(Ka) / 1000) / 1000)
Box1 = Box1 & "Информация о диске: " & Drives(Ka) & vbCrLf & _
"Метка тома: " & VNBuffer(Ka) & vbCrLf & _
"Файловая система: " & vSysBuff(Ka) & vbCrLf & _
"Серийный номер: " & vSerialNum(Ka) & vbCrLf & _
"Тип диска: " & TypeOfDrive(Ka) & vbCrLf & _
"Общее количество кластеров: " & TotalNumOfClus(Ka) & vbCrLf & _
"Количество свободных кластеров: " & NumOfFreeClus(Ka) & vbCrLf & _
"Секторов в кластере: " & SecsPerClus(Ka) & vbCrLf & _
"Байтов в секторе: " & BytesPerSec(Ka) & vbCrLf & _
"Емкость: " & tc$ & "mb" & vbCrLf & _
"Свободно: " & fc$ & "mb" & vbCrLf & " " & vbCrLf
Next
End Sub
Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "Информация о дисках."
End Sub
Private Sub Command5_Click()
Call B_Text(5)
End Sub
Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "Информация о установленных адаптерах (звук, видео, модем и т.д.)."
End Sub
Private Sub Command6_Click()
Call B_Text(6)
End Sub
Private Sub Command6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "Информация о устройствах ввода/вывода (монитор, клавиатура, принтер и т.д.)."
End Sub
Sub B_Text(Comm As Integer)
Select Case Comm
Case 2
l = 0
k = k0
Case 5
l = 2
k = k2
Case 6
l = 1
k = k1
End Select
For i = 1 To k
s$ = s$ + (Sv(l, i) & vbCrLf)
Next i
Box1 = s$
End Sub
Код формы Progress(Pr.frm):
Private Sub Form_Load()
DrawWidth = 3
End Sub
Код модуля Module1(Hwm.bas):
Public Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long
Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Public 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
Public Sv(2, 1000) As String
Public Coproc As Boolean
Public X1, X2, Y1, dX As Integer
Public k0 As Integer
Public k1 As Integer
Public k2 As Integer
Public Const HK$ = "HKEY_LOCAL_MACHINE"
Public cpuspd As Long
Public FF As Boolean
Public Drives(100) As String
Public n
Public Ka
Public vSerialNum(100) As Long
Public vCompLen(100) As Long
Public vFlags(100) As Long
Public vSysBuff(100) As String
Public vSysSize(100) As Long
Public SecsPerClus(100) As Long
Public BytesPerSec(100) As Long
Public NumOfFreeClus(100) As Long
Public TotalNumOfClus(100) As Long