Programación VB para identificar el nombre de la computadora

Para obtener el nombre de la computadora, puede usar GetComputerName en la función API

Función de declaración: privada Declarar función GetComputerName Lib "kernel32" Alias ​​​​"GetComputerNameA" (ByVal lpBuffer As String , nSize As Long) As Long

Luego simplemente llame a la función donde necesita llamarla. Por ejemplo, cuando hace clic en connmand1, solo necesita

Atenuar s$

s$ = Cadena$( MAX_COMPUTERNAME_LENGTH+1,0)

Dim dl&

Dim sz&

sz& = MAX_COMPUTERNAME_LENGTH+1

dl& = GetComputerName(s$, sz)

Ponlo en el evento de clic del comando1

Puedes usarlo para generar el nombre de la computadora

Variable=s$