Visual Basic Tips

ユーザー名の取得(API)

Win95,98を複数の人でつかっていたり、ネットワークに繋がっている時のユーザー名を取得します。

Private Sub Form_Load()
　　Dim str As String * 256

　　Call GetUserName(str, Len(str))

　　MsgBox str
End Sub

'-------------------------------------------------------
'
'-------------------------------------------------------
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

DownLoad vbtips089.lzh 2KB (VB6.0)