Программирование
Веб программирование

Информация о компьютере

 
 

Для некоторых программа нужна информация о компьютере на котором была запущена программа. Все команды будут начинаться с My.Computer.

Рассмотрим эту команду, а точнее её продолжение(буду говорить только о том, что выводит информацию о компьютере):

  • Info.AvailablePhysicalMemory - получает общий объём свободной физической памяти компьютера.
  • Info.AvailableVirtualMemory - получает общий объём свободной виртуальной памяти компьютера.
  • Info.OSFullName - получает полное имя операционной системы компьютера.
  • Info.OSVersionполучает версию операционной системы компьютера. 
  • Info.TotalPhysicalMemory  - получает общий объём физической памяти компьютера. 
  • Info.TotalVirtualMemory  - получает общий объём  виртуальной памяти компьютера.
  • Info.InstalledUICulture - получает текущие языковые и региональные параметры пользовательского интерфейса, установленный с операционной системой.
  • Info.OSPlatform - получает идентификатор платформы для операционной системы компьютера.
  • Name - получает имя компьютера.
  • Network.IsAvailable - определяет, подключен ли компьютер к сети.
  • Ports.SerialPortNames - получает набор имён последовательных портов компьютера.

Для моей программы будут нужны: куча label(хотя можно использовать что-то другое) и button(назовём её Обновить). 

Весь код будет содержать только кнопка button.И так, делаем что-то подобное как на скриншоте. 

 

Специально не стирал содержимое правого столбика чтобы видели, где находятся label в который выводится результат. В код кнопки вставим:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Label3.Text = My.Computer.Info.AvailablePhysicalMemory
 Label5.Text = My.Computer.Info.AvailableVirtualMemory
 Label7.Text = My.Computer.Info.OSFullName
 Label9.Text = My.Computer.Info.OSVersion
 Label11.Text = My.Computer.Info.TotalPhysicalMemory
 Label13.Text = My.Computer.Info.TotalVirtualMemory
 Label15.Text = My.Computer.Name
 End Sub

Вот сообственно и всё.Запускаем программу и жмём кнопку обновить.Можно ещё сделать чтобы вся информация сохранялась в текстовый документ, но это уже совсем другая тема урока.


Есть вопросы? Спроси на нашем форуме!!
Александр [19.05.2012 14:13]

А как получить список пользователей под вин7?

pjp07190 [14.02.2013 15:58]

У меня не работает для Ports.SerialPortNames. Не может преобразовать в строку?



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.