USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Modulo,como chamar função
bernardolb
não registrado
Postada em 27/05/2005 01:06 hs   
Amigos,queria saber como eu chamo uma API,que está escrita em um modulo,eu queria fazer  com que uma variavel fosse  = ao resultado da funão assim eu ia poder jogar o resultado numa txt,um exeplo da api q qro usar e a SYSTEM_INFO algo parecido,bom fui
     
Sérgio Jr.
SÃO PAULO
SP - BRASIL
Postada em 30/05/2005 20:32 hs            
Boa tarde amigo !!!
Bem vou usar uma API do Windows para capturar o Nome do Computador atual e mostra-lo em uma Caixa de Mensagem ( MsgBox )
 
'
'Primeiro, em um módulo declare a API, tudo em uma mesma linha ou use ( _ & )
'
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 
'
'Agora chame a função em um evento qualquer
'pode ser no LOAD de um form ou no CLICK de um botão
'
'Cria as variáveis que irão armazenar as informações
Dim strNome As String

Dim lretorno as Long

'

   strNome = String(255, Chr$(0))

   '

   'Pega o nome do computador  e armazena na variavel    lretorno

   lretorno= GetComputerName(strNome, 255)

   '

   'Remove todos os valores nulos chr$(0)
   strNome = Left$(strNome, InStr(1, strNome, Chr$(0)) - 1)

   '

   'Mostra o nome do computador em uma MsgBox (Caixa de Mensagem)
   MsgBox strNome
'

'Fim

 

 

Tentei...

 

 
TÓPICO EDITADO
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página