como faço para que os "caption" dos botoes (sim,nao,cancelar,e outros), quero alterar para os nomes que tiver desejo.

como obter os nº de serie de HD,memoria, processador,placa-mae ???

muito obrigado

le, se vc consegui do HD eu quero tb, mande pro meu email por favor.. obrigado

'Saber o Número Serial do HD
'Num módulo:

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

Public Function DriveSerial(ByVal Drive As _
       String) As Long
  'Valor que retornará o serial do HD
  Dim RetVal As Long

  Dim HDNameBuffer As String * 256 'Nome do HD
  Dim FSBuffer As String * 256     'FS do HD
  Dim a As Long                    'auxiliar
  Dim b As Long                    'auxiliar

  Call GetVolumeInformation(Drive, HDNameBuffer, _
       256, RetVal, a, b, FSBuffer, 256)

  DriveSerial = RetVal
End Function

'P/ usar (no evento que você quiser):
Dim lNSerial As Long
lNSerial = DriveSerial("C:")
MsgBox "O número seirial do HD é: " & lNSerial

 

'*******************************************

Os botões do MsgBox mudam de acordo com a versão do Widows (lingua).

Para qualquer outra Modificação vc terá de Criar seu próprio MsgBox.

 

Informações de memoria, processador, placa-mae eu não sei.

O do HD eu utilizo a anos, desdo tempo do DOS.

Mas as vezes o número do HD é um número negativo! que saco!

Se tiver o toque do número da placa mãe...eu estaria interessado.

Coloque este código Call StartSysInfo dentro de um botão que ele mostrará as informações do sistema.

 

Qualquer dúvida post.