Programmeur

Programação orientada a objectos - Introdução

Índice
 Introdução

 System Shell Function
 Nome do computador
 Definir nome do computador
 Nome do utilizador
 Estruturas
 Versão do Windows
 Info do processador

 Info da bateria
 Memória

Introdução
 Este trabalho criado no ambiente Microsoft Visual

Basic 6 tem como objetivo, comunicar com a API do
Sistema Operativo Windows e com o hardware do computador em si.

System Shell Function
 O aplicativo dá-nos a possibilidade de saber o nome

do computador, definir outro nome para o mesmo, saber o nome do utilizador, saber o sistema operativo com que o computador está a trabalhar, obter informações sobre o processador, a bateria e quantidade de memória RAM disponível.

Nome do computador

Nome do Computador
 Para se chegar a esse resultado, tive de carregar um ficheiro

DLL do S.O. (Libraria). Esse procedimento é feito em todos os outros botões, sendo cada um diferente, conforme o seu conteúdo. Sendo depois declarado na Form, como Private
Declare Function.

' Criar a string strString = String(255, Chr$(0))
' Obter o nome do computador
GetComputerName strString, 255
'remover caracteres nulos strString = Left$(strString, InStr(1, strString, Chr$(0)))
MsgBox "O nome do computador é " & strString

Definir novo Nome

Definir novo Nome

Definir novo Nome
Dim sNovoNome As String
' perguntar pelo novo nome sNovoNome = InputBox("Por favor, escreva um novo nome para o computador.")
' definir...
SetComputerName sNovoNome
MsgBox "Nome do computador definido para " & sNovoNome Nome do Utilizador

Nome do Utilizador
Dim strString As String
Dim valor_retorno As Long strString = Space(255) valor_retorno = GetUserName(strString,
Len(strString))
strString = Left$(strString, InStr(1, strString,
Chr$(0)))
MsgBox "O nome do utilizador actual é " & strString

Estruturas
 Tive de criar uma estrutura do tipo de definições de estado deste