Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As LongPrivate Sub Form_Load()
Dim st As String * 100
Dim pln As Long
pln = 99
GetUserName st, pln
MsgBox Left$(st, pln)
End Sub
Dim st As String * 100
Dim pln As Long
pln = 99
GetUserName st, pln
MsgBox Left$(st, pln)
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货