本人现欲实现通过在程序中给定用户名和密码,来完全控制某个目录(可读可写可删除),用WNetAddConnection2 API函数进行连接,得到的值不是0而是1326,请问这个1326返回的是什么错误,怎么样才能返回0值?很急!在此先谢过!!
我的程序如下:Function ConnectToServer(ByVal sServer As String, ByVal sUser As String, ByVal sPassword As String) As Boolean
'** 建立与服务器的系统连接
'** 连接成功,返回True
'** 连接失败,返回False
Dim lngResult As Long
Dim nr As NETRESOURCE
nr.dwType = RESOURCETYPE_ANY
nr.lpLocalName = ""
nr.lpRemoteName = sServerNETCONNECT:
lngResult = WNetAddConnection2(nr, sPassword, sUser, CONNECT_UPDATE_PROFILE)
If lngResult = 0 Then
ConnectToServer = True
ElseIf lngResult = 1219 Then
lngResult = WNetCancelConnection2(sServer, CONNECT_UPDATE_PROFILE, True)
If lngResult = 0 Then
GoTo NETCONNECT '重新执行
Else
ConnectToServer = False
End If
Else
ConnectToServer = False
End If
End FunctionSub Connect()
Dim lngResult As Long
Dim isConnect As Boolean isConnect = ConnectToServer(strCadastralTempSerer, "mydata", "mydata")
If isConnect = True Then
……
Else
lngResult = WNetCancelConnection2(strCadastralTempSerer, CONNECT_UPDATE_PROFILE, True)
End If
End Sub
我的程序如下:Function ConnectToServer(ByVal sServer As String, ByVal sUser As String, ByVal sPassword As String) As Boolean
'** 建立与服务器的系统连接
'** 连接成功,返回True
'** 连接失败,返回False
Dim lngResult As Long
Dim nr As NETRESOURCE
nr.dwType = RESOURCETYPE_ANY
nr.lpLocalName = ""
nr.lpRemoteName = sServerNETCONNECT:
lngResult = WNetAddConnection2(nr, sPassword, sUser, CONNECT_UPDATE_PROFILE)
If lngResult = 0 Then
ConnectToServer = True
ElseIf lngResult = 1219 Then
lngResult = WNetCancelConnection2(sServer, CONNECT_UPDATE_PROFILE, True)
If lngResult = 0 Then
GoTo NETCONNECT '重新执行
Else
ConnectToServer = False
End If
Else
ConnectToServer = False
End If
End FunctionSub Connect()
Dim lngResult As Long
Dim isConnect As Boolean isConnect = ConnectToServer(strCadastralTempSerer, "mydata", "mydata")
If isConnect = True Then
……
Else
lngResult = WNetCancelConnection2(strCadastralTempSerer, CONNECT_UPDATE_PROFILE, True)
End If
End Sub
提供的不符合