請問各位大大<br>如何抓到OS Logon 的 ID<br>有什麼方法嗎
Private Declare Function GetUserName Lib _ "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpbuffer As String, nSize As Long) As Long Public Function UserName() As String Dim Cn As String Dim ls As Long Dim res As Long Cn = String(1024, 0) ls = 1024 res = GetUserName(Cn, ls) If res <> 0 Then UserName = Mid(Cn, 1, InStr(Cn, Chr(0)) - 1) Else UserName = "" End If End Function 資料參考來源http://www.vbguide.com.tw/webback2.asp
kftgklfjohj