VB6: Slik leser du en datamaskinnavn fra registeret

Microsoft Visual Basic 6 (VB6) programmeringsspråket kan du lese en verdi av alle tilgjengelige nøkkelen fra Windows-registret. Du bruker VB6 skjemakontroller og programmeringsgrensesnitt Windows for å hente forespurte systemdata, for eksempel en datamaskin navn. Ved å lese mappebanen og datamaskinnavnet i GetValue og Valuename VB6 kontroller på webskjema, kan du angi et datamaskinnavn fra Windows-registeret for behandling i et brukerprogram.

Bruksanvisning

1 Klikk "Start" og deretter "Microsoft Visual Basic 6."

2 Klikk på "File", velg "Open", og dobbeltklikk deretter Visual Basic-filen som du ønsker å legge funksjonen til å hente navnet på datamaskinen fra Windows-registeret.

3 Legg til følgende kode i begynnelsen av programmet:

Private Declare Function GetComputerName Lib "kernel32" Alias

"GetComputerNameA" (ByVal lpBuffer As String, nStørrelse As Long) As

Lang

Funksjon Computer () As String

Dim strComputername As String

Dim lngSize As Long

Dim lngRetval As Long

strComputername = Space (255)

lngSize = 255

lngRetval = GetComputerName (strComputername, lngSize)

Computer = Mid $ (strComputername, 1, lngSize)

End Function

4 Klikk på "File", velg "Lagre" og klikk "OK" for å legge funksjonen til henting av et datamaskinnavn til programmet.