Pytanie : Kartografować sieć przejażdżka w VB.NET lub ochraniać sieć ścieżka

I próbować sieć przejażdżka, I móc w ten sposób jeżeli tam  być żadny username i hasło ustawianie na the książka telefoniczna. Ale jeżeli tam  być jeden I dostawać Błąd kod 1203 podczas gdy używać WNetAddConnection2.
I móc the książka telefoniczna mój kod, ono musieć the inny sposób wokoło.
Also I zastanawiać się jeżeli tam  być sposób sieć ścieżka z username i hasło i o przejażdżka letter. Jakaś pomoc w być ogromnie appreciated.
This być mój kod więc far.
And the sieć ścieżka być so
\ \ Przejażdżka \ Falcówka \ SubFolder \ 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

Public Oznajmiać Funkcja WNetAddConnection2 Wyzwolenie "mpr.dll" Pseudonim "WNetAddConnection2A" _
    (ByRef lpNetResource Jako NETRESOURCE, ByVal lpPassword Sznurek, ByVal lpUserName Jako Sznurek, ByVal dwFlags Jako Integer) Jako Integer

    Społeczeństwo Oznajmiać Funkcja WNetCancelConnection2 Wyzwolenie "mpr" Pseudonim "WNetCancelConnection2A" _
    (ByVal lpName Sznurek, ByVal dwFlags Jako Integer, ByVal fForce Jako Integer) Jako Integer


    Jawny Struktura NETRESOURCE
        Jawny dwScope Jako Integer
        Jawny dwType Jako Integer
        Jawny dwDisplayType Jako Integer
        Jawny dwUsage Jako Integer
        Jawny lpLocalName Sznurek
        Jawny lpRemoteName Sznurek
        Jawny lpComment Sznurek
        Jawny lpProvider Sznurek
    Końcówka Struktura

    Jawny Const ForceDisconnect Jako Integer = (1)
    Jawny Const RESOURCETYPE_DISK Długo = &H1

    Jawny Funkcja MapDrive (ByVal DriveLetter Jako Sznurek, ByVal UNCPath Sznurek) Boolowski

        Ciemnawy nr Jako NETRESOURCE
        Ciemnawy strUsername Sznurek
        Ciemnawy strPassword Sznurek

        nr = Nowy NETRESOURCE
        nr.lpRemoteName = UNCPath
        'nr.lpLocalName = DriveLetter & ": "
        strUsername = sUserName
        strPassword = sPassword 
        nr.dwType = RESOURCETYPE_DISK

        Ćmić rezultat Jako Integer
        rezultat = WNetAddConnection2 (nr, strPassword, strUsername, (0))

        Jeżeli rezultat = (0) Wtedy
            Powrotny Prawdziwy
        Inny
            Powrotny Fałszywy
        Kończyć Jeżeli
    Kończyć Funkcja

    Jawny Funkcja UnMapDrive (ByVal DriveLetter Sznurek) Boolowski
        Ciemnawy rc Jako Integer
        rc = WNetCancelConnection2 (DriveLetter & ": ", (0), ForceDisconnect)

        Jeżeli rc = (0) Wtedy
            Powrotny Prawdziwy
        Inny
            Powrotny Fałszywy
        Kończyć Jeżeli

    Kończyć Funkcja

Odpowiedź : Kartografować sieć przejażdżka w VB.NET lub ochraniać sieć ścieżka

The jedyny sposób I dostawać ten błąd być kiedy I używać the krzywda username lub hasło. Guzik być jak mój przykład spojrzenie po prostu umieszczać w guzik. ASUS być the użytkownik konto.
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Intymny Okręt podwodny Button1_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się Button1.Click
        Ciemnawy nr Jako NETRESOURCE = Nic
        Ciemnawy strUsername Jako Sznurek = String.Empty
        Ciemnawy strPassword Jako Sznurek = String.Empty
        Ćmić rezultat Jako Integer = (0)

        nr.lpRemoteName = "\ \ 192.168.1.109 \ część"
        nr.lpLocalName = "R: "
        strUsername = "ASUS"
        strPassword = "hasło"
        nr.dwType = RESOURCETYPE_DISK

        rezultat = WNetAddConnection2 (nr, strPassword, strUsername, (0))
        Console.WriteLine (rezultat)

    Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us