COMO: Obter informações de estado do Windows da API do Windows no Excel 2000

No Microsoft Excel pode programaticamente obter informações de estado do sistema e apresentá-lo numa folha de cálculo. Este artigo passo a passo fornece uma exemplo do Microsoft Visual Basic for Applications Sub procedimento que mostra as seguintes informações utilizando funções da API do Windows:

• O número de versão do Windows com a função de API de GetVersionEx.
• O tipo de processador da CPU através da função API GetSystemInfo.
• A quantidade de memória livre com a função de API GlobalMemoryStatus.

Código de exemplo para obter informações de estado do Windows

Microsoft fornece exemplos de programação ilustração só, sem garantia expressa ou implícita, incluindo, sem limitação, garantias implícitas de comercialização e/ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas utilizadas para criar e depurar procedimentos. Profissionais de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas.
Se dispõe de limitada experiência de programação, poderá contactar um Microsoft Certified Partner ou a serviços de aviso. Para obter mais informações, visite estes Web sites da Microsoft:

Microsoft certificado Partner - https://partner.microsoft.com/global/30000104 (https://partner.microsoft.com/global/30000104)

Serviços Microsoft aviso - http://support.microsoft.com/gp/advisoryservice (http://support.microsoft.com/gp/advisoryservice)

Para obter mais informações sobre as opções de suporte estão disponíveis e sobre como contactar a Microsoft, visite o seguinte Web site da Microsoft: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS (http://support.microsoft.com/default.aspx?scid=fh;en-us;cntactms) Para obter informações de estado do Windows utilizando chamadas de API do Windows, siga estes passos:

1. Inicie o Microsoft Excel e, em seguida, crie um novo livro.
2. No menu Ferramentas , aponte para macro e, em seguida, clique em Editor do Visual Basic (ou prima ALT+F11).
3. No menu Inserir , clique em módulo .
4. Na folha de módulo, escreva o seguinte código:

   Option Explicit
   
   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
   
   Type OSVERSIONINFO
       dwOSVersionInfoSize As Long
       dwMajorVersion As Long
       dwMinorVersion As Long
       dwBuildNumber As Long
       dwPlatformId As Long
       szCSDVersion As String * 128
   End Type
   
   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
   
   'The following three Declare lines must be each entered on a single
   'line.
   
   Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
                (LpVersionInformation As OSVERSIONINFO) As Long
   Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As _
               MEMORYSTATUS)
   Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As _
                 SYSTEM_INFO)
   
   Public Const PROCESSOR_INTEL_386 = 386
   Public Const PROCESSOR_INTEL_486 = 486
   Public Const PROCESSOR_INTEL_PENTIUM = 586
   Public Const PROCESSOR_MIPS_R4000 = 4000
   Public Const PROCESSOR_ALPHA_21064 = 21064
   
   Sub SystemInformation()
   Dim msg As String         ' Status information.
   Dim NewLine As String     ' New-line.
   Dim ret As Integer        ' OS Information
   Dim ver_major As Integer  ' OS Version
   Dim ver_minor As Integer  ' Minor Os Version
   Dim Build As Long         ' OS Build
   
         NewLine = Chr(13) + Chr(10)  ' New-line.
         ' Get operating system and version.
         Dim verinfo As OSVERSIONINFO
         verinfo.dwOSVersionInfoSize = Len(verinfo)
         ret = GetVersionEx(verinfo)
         If ret = 0 Then
             MsgBox "Error Getting Version Information"
             End
         End If
   
         Select Case verinfo.dwPlatformId
             Case 0
                 msg = msg + "Windows 32s "
             Case 1
                 msg = msg + "Windows 95/98 "
             Case 2
                 msg = msg + "Windows NT/2000 "
         End Select
   
         ver_major = verinfo.dwMajorVersion
         ver_minor = verinfo.dwMinorVersion
         Build = verinfo.dwBuildNumber
         msg = msg & ver_major & "." & ver_minor
         msg = msg & " (Build " & Build & ")" & NewLine & NewLine
   
         ' Get CPU type and operating mode.
         Dim sysinfo As SYSTEM_INFO
         GetSystemInfo sysinfo
         msg = msg + "CPU: "
         Select Case sysinfo.dwProcessorType
             Case PROCESSOR_INTEL_386
                 msg = msg + "Intel 386" + NewLine
             Case PROCESSOR_INTEL_486
                 msg = msg + "Intel 486" + NewLine
             Case PROCESSOR_INTEL_PENTIUM
                 msg = msg + "Intel Pentium" + NewLine
             Case PROCESSOR_MIPS_R4000
                 msg = msg + "MIPS R4000" + NewLine
             Case PROCESSOR_ALPHA_21064
                 msg = msg + "DEC Alpha 21064" + NewLine
             Case Else
                 msg = msg + "(unknown)" + NewLine
         End Select
   
         msg = msg + NewLine
   
         ' Get free memory.
         Dim memsts As MEMORYSTATUS
         Dim memory As Long
         GlobalMemoryStatus memsts
         memory = memsts.dwTotalPhys
         msg = msg + "Total Physical Memory: "
         msg = msg + Format(memory \ 1024, "###,###,###") + "K" + NewLine
         memory = memsts.dwAvailPhys
         msg = msg + "Available Physical Memory: "
         msg = msg + Format(memory \ 1024, "###,###,###") + "K" + NewLine
         memory = memsts.dwTotalVirtual
         msg = msg + "Total Virtual Memory: "
         msg = msg + Format(memory \ 1024, "###,###,###") + "K" + NewLine
         memory = memsts.dwAvailVirtual
         msg = msg + "Available Virtual Memory: "
         msg = msg + Format(memory \ 1024, "###,###,###") + "K" + NewLine
   
         MsgBox msg, vbOKOnly, "System Info"
   End Sub
   					

5. No menu Ferramentas , aponte para macro e, em seguida, clique em macros .
6. Clique em SystemInformation e, em seguida, clique em Executar .

A macro devolve uma caixa de mensagem que mostra as informações de sistema.

Para mais informações sobre como utilizar o código de exemplo neste artigo, clique no número de artigo existente abaixo para visualizar o artigo na base de dados de conhecimento da Microsoft: Para obter informações adicionais sobre como utilizar a API do Windows no Visual Basic, clique os números de artigo existente abaixo para visualizar os artigos na base de dados de conhecimento da Microsoft: