各位大虾请教一个有关启用密码登陆的程序

Question

可能是你的函数名称写错了，在Declare 中。

Answer 1

你是把书上的代码全都写进去了吗？看看有没有落掉关于要提前引用什么或声明什么的？？也可能是函数名写错了，但这种可能性很小，多数是因为引用的问题，或许他要引用的DLL你的机器上没有呢（我猜的哦）

Answer 2

Private Declare Function getusername Lib "advapi32.dll" Alias "getusernamea" (byvallpbuffer As String, nsize As Long) As Longbyvallpbuffer 应该为 byval lpbuffer
你的参数少了个空格；应该为：
Private Declare Function getusername Lib "advapi32.dll" Alias "getusernamea" (byval lpbuffer As String, nsize As Long) As Long