VB6.0获取计算机名 用户名最简单的方法

大家在做项目的时候经常会用到这个 像什么学生信息管理系统啦 小弟在此汇总一下 供大家参考

见我的博客
http://blog.csdn.net/liushuijinger/article/details/6679605

不错，顶起来。

获取计算机名称：
VB code

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

【操作系统】
Win9X:Yes
WinNT:Yes
【说明】
  取得这台计算机的名称 
【返回值】
  Long，TRUE（非零）表示成功，否则返回零。会设置GetLastError 
【其它】
  也许你会发现，MAX_COMPUTERNAME_LENGTH常数在vb自带的api文本查看器中找不到。的确，我也没有找到。但我有一个工具：Listapi，这个常数在它那里可以找到
【参数表】
  lpBuffer ------- String，随同计算机名载入的字串缓冲区
  nSize ---------- Long，缓冲区的长度。这个变量随同返回计算机名的实际长度载入

此帖乃广而告之帖,即为广告帖!

BZ在哪里?还不快来删帖!!