VB6 : Cómo leer un nombre de equipo del Registro

El Microsoft Visual Basic 6 ( VB6 ) lenguaje de programación le permite leer el valor de una tecla disponible en el registro de Windows. Utilice los controles de formulario VB6 y la interfaz de programación de aplicaciones de Windows para recuperar datos de sistemas solicitados, tales como el nombre del equipo . Mediante la lectura de la ruta de la carpeta y el nombre del equipo en el GetValue y los controles de VB6 ValueName en el formulario Web , puede especificar un nombre de equipo desde el registro de Windows para el procesamiento de una aplicación de usuario . Instrucciones
1

clic en "Inicio" y haga clic en " Microsoft Visual Basic 6. "

2 Haga clic en " Archivo", seleccione "Open ", a continuación, haga doble clic en el archivo de Visual Basic en la que desea agregar la función de recuperar el nombre del equipo desde el registro de Windows
3

Añada el siguiente código al principio de su programa: .
< p> Private función declare GetComputerName Lib " kernel32 " Alias ​​

" GetComputerNameA " ( ByVal lpBuffer As String , nSize As Long ) As

largo

Función ComputerName () As String

strComputerName As String Dim

lngSize Dim As Long Dim

lngRetval As Long

strComputerName = espacio ( 255 )

lngSize = 255

lngRetval = GetComputerName ( strComputerName , lngSize )

ComputerName = MID $ ( strComputerName , 1 , lngSize )

End Function
4

Haga clic en " archivo", seleccione " Guardar " y, a continuación, haga clic en " OK" para agregar la función de recuperación de un nombre de equipo para el programa.