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

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

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

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
sniperzhao
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2006-3-5
收藏
得分:0 

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

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


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

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



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

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