windows蓝屏代码:取得windows 用户ID方法代码

    在VB编程设计中我们有时候需要取得windows用户ID其实很简单下面给大家放出代码
Private Declare Function GetUserName Lib \"advapi32.dll\" Alias _
        \"GetUserNameA\" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load
Dim aa As Long
Dim len5 As Long
Dim usern As String
len5 = 256
usern = String(255, 0)
aa = GetUserName(usern, len5)
usern = Left(usern, InStr(1, usern, Chr(0)) - 1)
Debug.Pr usern
End Sub

延伸阅读

• 2009-9-12-- windows源代码:windows下强大功能的溢出程序源代码
• 2009-1-16-- windows错误代码:Windows 恶意代码解决办法
• 2009-1-16-- windows蓝屏:Windows XP蓝屏故障的速查攻略
• 2009-1-10-- vista蓝屏代码:Windows Vista蓝屏代码含义和解决方案
• 2009-1-9-- windowsxp蓝屏代码:C#代码关闭Windows XP
• 2009-2-12-- windows蓝屏代码:Windows 蓝屏错误代码介绍说明
• 2008-12-20-- windowsxp蓝屏代码:Windows XP的蓝屏代码含义和解决思路方法