Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
66
Assunto : Visual Basic
Titulo: Como obter o nome da micro em que o programa está

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon


Para obter o nome do micro precisamos fazer uso de chamadas de API. Vamos utilizar uma função chamada GetComputerName. Veja a declaração :

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal sBuffer As String, lSize As Long) As Long


Tendo declarado a função, basta chama-la a partir de um botão qualquer. Veja um exemplo :

Dim X As Long
MachineName = Space$(16)
X = GetComputerName(MachineName, 16)

Para obter a informação é necessário fornecer uma variável que tenha espaço suficiente para guarda-la. Nomes NetBios possuem um máximo de 16 caracteres, por isso a variável MachineName é preenchida com 16 espaços em branco.

Ao chamar a função GetComputerName transmite-se a variável com os espaços em branco e o número de caracteres que deseja-se buscar. A variável voltará preenchida.

Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 3/20/2006 10:43:00 PM
nome: WENDEL
email: WENDELLL.C@UOL.COM.BR
comentário:
OLA , A MINHA VARIAVEL NAO RETORNOU COM O NOME DO MICRO , RETORNOU COM O VALOR 1

 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br