[es] - Problem - pristup direktorijumu drugog racunara u mrezi

Boško

Član broj: 32679
Poruke: 62
80.93.249.*

Profil

Re: Problem - pristup direktorijumu drugog racunara u mrezi

^{08.08.2007. u 17:09 - pre 216 meseci}

Probaj ovako

Code:

  Private Const NO_ERROR = 0
  Private Const CONNECT_UPDATE_PROFILE = &H1
  ' The following includes all the Private Constants defined for NETRESOURCE,
  ' not just the ones used in this example.
  Private Const RESOURCETYPE_DISK = &H1
  Private Const RESOURCETYPE_PRINT = &H2
  Private Const RESOURCETYPE_ANY = &H0
  Private Const RESOURCE_CONNECTED = &H1
  Private Const RESOURCE_REMEMBERED = &H3
  Private Const RESOURCE_GLOBALNET = &H2
  Private Const RESOURCEDISPLAYTYPE_DOMAIN = &H1
  Private Const RESOURCEDISPLAYTYPE_GENERIC = &H0
  Private Const RESOURCEDISPLAYTYPE_SERVER = &H2
  Private Const RESOURCEDISPLAYTYPE_SHARE = &H3
  Private Const RESOURCEUSAGE_CONNECTABLE = &H1
  Private Const RESOURCEUSAGE_CONTAINER = &H2
  ' Error Private Constants:
  Private Const ERROR_NO_NET_OR_BAD_SERVER As Integer = 53
  Private Const ERROR_BAD_USER_OR_PASSWORD As Integer = 1326
  Private Const ERROR_ACCESS_DENIED As Integer = 5
  Private Const ERROR_ALREADY_ASSIGNED As Integer = 85
  Private Const ERROR_BAD_DEV_TYPE As Integer = 66
  Private Const ERROR_BAD_DEVICE As Integer = 1200
  Private Const ERROR_BAD_NET_NAME As Integer = 67
  Private Const ERROR_BAD_PROFILE As Integer = 1206
  Private Const ERROR_BAD_PROVIDER As Integer = 1204
  Private Const ERROR_BUSY As Integer = 170
  Private Const ERROR_CANCELLED As Integer = 1223
  Private Const ERROR_CANNOT_OPEN_PROFILE As Integer = 1205
  Private Const ERROR_DEVICE_ALREADY_REMEMBERED As Integer = 1202
  Private Const ERROR_EXTENDED_ERROR As Integer = 1208
  Private Const ERROR_INVALID_PASSWORD As Integer = 86
  Private Const ERROR_NO_NET_OR_BAD_PATH As Integer = 1203
  Private Const ERROR_INVALID_ADDRESS As Integer = 487
  Private Const ERROR_NETWORK_BUSY As Integer = 54
  Private Const ERROR_UNEXP_NET_ERR As Integer = 59
  Private Const ERROR_INVALID_PARAMETER As Integer = 87

  <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _
  Public Structure NETRESOURCE
    Public dwScope As Integer
    Public dwType As Integer
    Public dwDisplayType As Integer
    Public dwUsage As Integer
    Public lpLocalName As String
    Public lpRemoteName As String
    Public lpComment As String
    Public lpProvider As String
  End Structure

  Declare Auto Function WNetUseConnection Lib "mpr.dll" _
          (ByVal hwndOwner As Integer, _
           ByRef lpNetResource As NETRESOURCE, _
           ByVal lpPassword As String, _
           ByVal lpUserID As String, _
           ByVal dwFlags As Integer, _
           ByVal lpAccessName As String, _
           ByRef lpBufferSize As Integer, _
           ByRef lpResult As Integer) As Integer

Private Function KonektujSeNaPC(ByVal NazivPC As String, ByVal un As String, ByVal pwd As String) As Boolean
    Dim nRes As NETRESOURCE
    Dim r As Integer
    Dim Result As Integer
    Dim buffer As String
    Dim bufferlen As Integer

    If un = "" Then un = Nothing
    If pwd = "" Then pwd = Nothing

    buffer = Space(64) : bufferlen = Len(buffer)
    With nRes
      .dwType = RESOURCETYPE_DISK
      .lpRemoteName = "\\" & NazivPC
      .lpLocalName = Nothing
      .lpProvider = ""
    End With

    r = WNetUseConnection(0, nRes, pwd, un, 0, buffer, bufferlen, Result)

    Dim ErrTekst As String
    Select Case r
      Case 53, 1203
        ErrTekst = "PC nije uključen ili pogrešan naziv PC-ja!"
      Case 54, 170
        ErrTekst = "Mreža je zauzeta!"
      Case 1326, 86
        ErrTekst = "Pogrešno korisničko ime ili lozinka za pristup PC-ju!"
      Case 5
        ErrTekst = "Pristup PC-ju zabranjen!"
      'Case ...

      Case Else
        ErrTekst = "Nepoznata greška!"
    End Select

    If r <> NO_ERROR Then
      Throw New Exception("GREŠKA " & CStr(r) & "! " & ErrTekst)
      Return False
    End If
    Return True
  End Function

Nadam se da ti neće biti problem prepisati na C#.