'================================================================
'= ユーザー名を取得

'=    (WNetGetUser.bas)
'================================================================
#include "Windows.bi"

' ユーザー名を取得(ネットワーク接続を確立するために使われるユーザー名)
Declare Function Api_WNetGetUser& Lib "Mpr" Alias "WNetGetUserA" (ByVal lpName$, ByVal lpUserName$, lpnLength&)

Var Shared Text1 As Object
Var Shared Button1 As Object

Text1.Attach GetDlgItem("Text1") : Text1.SetFontSize 14
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var buff As String
    Var nSize As Long
    Var nUserName As String
    Var Ret As Long
   
    buff = String$(255, Chr$(0))
    nSize = Len(buff)
   
    Ret = Api_WNetGetUser(ByVal 0, buff, nSize)

    nUserName = Left$(buff, InStr(Buff, Chr$(0)) - 1)
    Text1.SetWindowText nUserName        
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End