📄 6915.html
字号:
<html>
<head>
<title>用API</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>用API</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:ml.peng@wsmc.com.tw">帅帅阿柳</a> on October 30, 1998 at 16:10:23:<p>
In Reply to: <a href="6749.html">如何得知目前有Login的UserName?</a> posted by Someone on October 26, 1998 at 09:16:17:<p>
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long<p>Function GetUser() As String<p> Dim lpUserID As String<br> Dim nBuffer As Long<br> Dim Ret As Long<br> lpUserID = String(25, 0)<br> nBuffer = 25<br> Ret = GetUserName(lpUserID, nBuffer)<p> If Ret Then<br> GetUser$ = lpUserID$<br> End If<p>End Function<p><br>Function ClipNull(InString As String) As String<p> Dim intpos As Integer<p> If Len(InString) Then<br> intpos = InStr(InString, vbNullChar)<br> If intpos > 0 Then<br> ClipNull = Left(InString, intpos - 1)<br> Else<br> ClipNull = InString<br> End If<br> End If<p>End Function<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 6915-->
<!--top: 6948--><li><a href="6948.html">连上LAN的人</a> <b>Someone</b> <i>15:37:37 10/31/98</i>
(<!--responses: 6948-->0)
<ul><!--insert: 6948-->
</ul><!--end: 6948-->
</ul><!--end: 6915-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -