Visual Basic 6: Cómo leer un nombre de equipo del Registro

El Basic 6 (VB6) el lenguaje de programación de Microsoft Visual le permite leer un valor de cualquier tecla disponible en el registro de Windows. Utiliza los controles de formulario de Visual Basic 6 y la interfaz de programación de aplicaciones de Windows para recuperar los datos del sistema solicitados, tales como un nombre de equipo. Mediante la lectura de la ruta de la carpeta y el nombre del equipo en el GetValue y los controles ValueName VB6 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 Haga clic en "Inicio" y haga clic en "Microsoft Visual Basic 6."

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

3 Agregue el código siguiente al principio de su programa:

Private Declare Function GetComputerName Lib "kernel32" Alias

"GetComputerNameA" (ByVal como secuencia lpBuffer, nTamaño como de largo) Como

Largo

ComputerName función () As String

Dim como secuencia strComputername

Dim lngSize 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 luego haga clic en "OK" para añadir la función de recuperación de un nombre de equipo para el programa.