Visual Basic 2005/Näited/Kasutajanime tagastamine
(Ümber suunatud leheküljelt VB 8:Kasutajanime tagastamine)
Järgnevalt on näidatud, kuidas saab olemasolevaid andmeid API funktsiooniteekides käija toomas.
Module Module1 Declare Function too_kasutajanimi_ära Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal Kasutajanime_puhvrimuutuja As String, ByRef Väljastatav_pikkus As Integer) As Integer Sub Main() Dim puhver As String = New String(CChar(" "), 25) Dim tagasta_väärtus As Integer = too_kasutajanimi_ära(puhver, 25) Dim kasutajanimi As String = Strings.Left(puhver, InStr(puhver, Chr(0)) – 1) Console.WriteLine("Sa oled hetkel sisse logitud kasutajaga " & kasutajanimi & ".") Console.ReadLine() End Sub End Module