请教关于API函数WNetAddConnection,WNetAddConnection2的用法

【函数】
WNetAddConnection

【操作系统】
Win9x:Y
WinNT:Y

【声明】
Function ulong WNetAddConnection(ref string lpszNetPath,ref string lpszPassword,ref string lpszLocalName) LIBRARY "mpr.dll" ALIAS FOR "WNetAddConnectionA"

【说明】

创建同一个网络资源的永久性连接

【返回值】

Long，零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息

【其它】

【参数列表】
lpszNetPath ---- String，要连接的网络名

lpszPassword --- String，可选的一个密码。如为vbNullString，表示采用当前用户的默认密码。如为一个空字串，则不用任何密码

lpszLocalName -- String，资源的本地名称。（例如，F: 和 LPT1:）

作者:sbsai 时间:2005-8-12 9:30:00

第 3 楼

【函数】
WNetAddConnection2

【操作系统】
Win9x:Y
WinNT:Y

【声明】
Function ulong WNetAddConnection2(ref NETRESOURCE lpNetResource,ref string lpPassword,ref string lpUserName,ulong dwFlags) LIBRARY "mpr.dll" ALIAS FOR "WNetAddConnection2A"

【说明】

创建同一个网络资源的连接

【返回值】

Long，零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息

【其它】

【参数列表】
lpNetResource -- NETRESOURCE，在这个结构中设置了下述字段，对要连接的网络资源进行了定义：dwType，
lpLocalName （可为 vbNullString）， lpRemoteName， lpProvider （设为 vbNullString
表示用默认提供者）。该结构的其他所有变量都会被忽略

lpPassword ----- String，可选的一个密码。如为vbNullString，表示采用当前用户的默认密码。如为一个空字串，则不用任何密码

lpUserName ----- String，用于连接的用户名。如为vbNullString，表示使用当前用户

dwFlags -------- Long，设为零；或指定常数CONNECT_UPDATE_PROFILE，表示创建永久性连接

作者:gamesay 时间:2005-8-12 10:07:00

第 4 楼

我做了如下声明：

FUNCTION ulong WNetAddConnection2(ref NETRESOURCE lpNetResource,ref string lpPassword,ref string lpUserName,ulong dwFlags) LIBRARY "mpr.dll" ALIAS FOR "WNetAddConnection2A"
声明如下函数调用API

netresource lst_net
lst_net.dwscope = 0
lst_net.dwtype = 0
lst_net.dwdisplaytype = 0
lst_net.dwusage = 0
lst_net.lplocalname = ls_net_disk
lst_net.lpremotename = ls_net_resoure
lst_net.lpcomment = ''
lst_net.lpprovider = ''
long l_dwflag = 0

if WNetAddConnection2(lst_net,ls_net_pass,ls_net_user,l_dwflag) = 0 then
return true
else
return false
end if

在程序中调用函数

if GetEnvironment(env) = 1 then
Choose case env.OSType
Case WindowsNT!
if Wf_addnet1('//'+is_serverip+'/'+is_remotedir,is_suserid,is_spass,'z:') = false then
ls_errmsg = '远程目录映射失败，请检查配置'
goto err
end if
Case Windows!
if wf_addnet('//'+is_serverip+'/'+is_remotedir,is_spass,'Z:') = false then
ls_errmsg = '远程目录映射失败，请检查配置'
goto err
end if
Case else
ls_errmsg = '未知操作系统'
goto err
End choose
end if