VBA Tips - 03 das 10 Principais interações com as APIs do Windows - GetComputerName

Consultancy in Excel, Access, VBA, Dashboards, Scorecards & PowerPoint Projects

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

Quando uma solução VBA está aquém de atender as nossas necessidades, certamente existirá uma função API do Windows que fará o trabalho para nós.

Listo a seguir o que acredito ser uma das 10 Principais interações com as APIs do Windows.

Nós, que desenvolvemos com o VBA no Office, sabemos que podemos pegar alguns atalhos para resolver muitas das nossas necessidades diárias. Às vezes, uma solução pode tornar-se complicada ou difícil para implementarmos. Neste momento lançamos mão das APIs - Application Programming Interface. Sim, encontraremos milhares de funções úteis. E é importante saber que podemos usá-las em quaisquer aplicativos baseados no Windows. (As dicas deste post são específicas para o sistema 32 bits).

Estas funções VBA demonstradas neste artigo não tem o objetivo de serem práticas. Antes, são chamadas simples às APIs, para que possamos ver como trabalham em conjunto. Mas certamente, algumas delas poderão facilmente passar para a sua biblioteca pessoal. Depois que souber como os procedimentos VBA chamam as funções API e o que retornam, poderão modificar tais códigos para usá-los em seus próprios projetos.

3: GetComputerName

Esta função, GetComputerName, é semelhante a GetUserName exceto pelo fato de que recupera o nome no sistema. 

  Private Declare Function GetComputerName Lib "kernel32" Alias _

   "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function apicGetComputerName() As String

    'Call to apiGetUserName returns current user.

  Dim lngResponse As Long

  Dim strUserName As String * 32

    lngResponse = GetComputerName(strUserName, 32)

  apicGetComputerName = Left(strUserName, InStr(strUserName, Chr$(0)) - 1)

End Function

Tags: VBA, API, code,10, GetComputerName