| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 588 人关注过本帖
标题:[求助]一段登陆代码读不懂
只看楼主 加入收藏
sniperzhao
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2006-3-5
收藏
 问题点数:0 回复次数:5 
[求助]一段登陆代码读不懂

下面是一段登陆时自动加载用户名的代码(我想是这样的):

代码如下: 有些看不懂,请读帖子的人 帮我 “详细”讲解一下,先谢了!

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long


Public OK As Boolean

————————————————————————————————————————————————————
Private Sub Form_Load()
Dim sBuffer As String
Dim lSize As Long


sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
txtUserName.Text = Left$(sBuffer, lSize)
Else
txtUserName.Text = vbNullString
End If
End Sub

搜索更多相关主题的帖子: 代码 Long String 登陆 
2006-03-25 18:15
kisskller
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-3-25
收藏
得分:0 

这不就是段API函数吗?找帮助查下

2006-03-25 18:45
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
收藏
得分:0 
GetUserName 貌似是用来获取 Windows 登录帐户的...不过我没用过
2006-03-25 20:20
sniperzhao
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2006-3-5
收藏
得分:0 

关键是这个API函数怎么查?  查 MSDN吗?

都是英文的,看着有点迷糊!还有别的办法吗?


2006-03-26 19:38
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 

GetUserName

VB声明
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
说明
取得当前用户的名字
返回值
Long,TRUE(非零)表示成功,否则返回零。会设置GetLastError
参数表
参数 类型及说明
lpBuffer String,一个字串缓冲区,预先初始化成由nSize指定的长度。它将用于容纳用户名
nSize Long,初始化成lpBuffer的长度。返回以后,它会包含载入lpBuffer的字符数量
示例
Dim s$, cnt&, dl&
cnt& = 199
s$ = String$(200,0)
dl& = GetUserName(s$, cnt)
Debug.Print Left$(s$, cnt); cnt

网上都有api查询手册的...你可以找一下...我上传不了..900多K.


我的msn: myfend@
2006-03-26 19:57
sniperzhao
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2006-3-5
收藏
得分:0 
恩,找到了,费了好大劲才下到

2006-03-27 14:38
快速回复:[求助]一段登陆代码读不懂
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.036460 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved