Visual Basic 2005/Näited/Kasutajanime tagastamine

Allikas: Vikiõpikud
Jump to navigation Jump to search

VB 8:Kasutajanime tagastamine[muuda]

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