Views

Important:

Quaisquer necessidades de soluções e/ou desenvolvimento de aplicações pessoais/profissionais, que não constem neste Blog podem ser tratados como consultoria freelance à parte.

...

28 de janeiro de 2014

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




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

Inline image 1

Nenhum comentário:

Postar um comentário

eBooks VBA na AMAZOM.com.br

Vitrine