|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Redes/Comunicações)
|
|
 |
Título da Dica: Pegando o nome do computador
|
 |
|
|
|
Postada em 6/4/2005 por adaclayton
No módulo coloque:
Private Declare Function GetComputerName Lib "kernel32" & _
Alias "GetComputerNameA" (ByVal sBuffer As String, lSize & _
As Long) As Long
Public Function NameOfPC(MachineName As String) As Long
Dim NameSize As Long
Dim X As Long
MachineName = Space$(16)
NameSize = Len(MachineName)
X = GetComputerName(MachineName, NameSize)
End Function
A função GetComputerName requer dois argumentos. O primeiro argumento, sBuffer, é o buffer que irá armazenar o nome do computador depois que a função é executada. O tamanho do buffer deve ser grande o suficiente para que o nome inteiro caiba nele. O segundo argumento, lSize, deve ser inicializado com o tamanho de sBuffer.
Depois de ter executado a função GetComputerName, a variável lSize conterá o número de caracteres (contador) armazenados na string sBuffer. Este valor de contagem não inclui o caractere terminador NULL.
Para verificar coloque no Form, um componente TextBox e outro CommandButton e o seguinte código:
Private Sub Command1_Click()
Dim PCName As String
Dim P As Long
P = NameOfPC(PCName)
text1.Text = PCName
End Sub
|
|
|
|
|
