Fråga : Kartlägga en knyta kontakt kör i VB.NET, eller ta fram skyddad knyta kontakt banan

Pröva förmiddag I att kartlägga ett knyta kontaktdrev, jag kan göra så, om det inte finns någon username, och lösenordet ställer in på arkivet. Men, om det finns en I får fel kodifierar tag 1203 using WNetAddConnection2.
som jag inte kan ändra arkivet för att passa mitt kodifierar, det måste att vara annat långt omkring.
Also som jag undrade, om det finns a långt av att förbinda till en knyta kontaktbana med en username och ett lösenord och att inte oroa om att kartlägga ett drev letter. Någon hjälp, i att lösa skulle detta, är appreciated.
This är väldeliga min kodifierar, så far.
And knyta kontaktbanan är \ för so
\ drev \ mapp \ subFolderen \ > för 
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:
" codeBody " " class= " för Public förklarar fungerar WNetAddConnection2 _ för pseudonym ”WNetAddConnection2A” för Lib ”mpr.dll”, (ByRef lpNetResource som NETRESOURCE, ByVal lpPassword som stränger, ByVal lpUserName som stränger, ByVal dwFlags som heltal) som heltal Allmänhet förklarar fungerar WNetCancelConnection2 _ för pseudonym ”WNetCancelConnection2A” för Lib ”mpr”, (ByVal lpName som stränger, ByVal dwFlags som heltal-, ByVal fForce som heltal) som heltal Allmänhet strukturerar NETRESOURCE Offentlig dwScope som heltal Offentlig dwType som heltal Offentlig dwDisplayType som heltal Offentlig dwUsage som heltal Offentlig lpLocalName som stränger Offentlig lpRemoteName som stränger Offentlig lpComment som stränger Offentlig lpProvider som stränger Avsluta strukturerar Offentliga Const ForceDisconnect som heltal = 1 Offentliga Const RESOURCETYPE_DISK som Long = &H1 Allmänhet fungerar MapDrive (ByVal DriveLetter som stränger, ByVal UNCPath som stränger) som Boolean Dunkel nr som NETRESOURCE Dunkel strUsername som stränger Dunkel strPassword som stränger nr = ny NETRESOURCE nr.lpRemoteName = UNCPath 'nr.lpLocalName = DriveLetter & ”: ”, strUsername = sUserName strPassword = sPassword nr.dwType = RESOURCETYPE_DISK Dunkelt resultat som heltal resultat = WNetAddConnection2 (nr, strPassword, strUsername, 0) Om resultat = 0 därefter Återgångt True Annars Återgångt falskt Avsluta om Avsluta fungerar Allmänhet fungerar UnMapDrive (ByVal DriveLetter som stränger) som Boolean Dunkel rc som heltal rc = WNetCancelConnection2 (DriveLetter & ”: ” 0, ForceDisconnect) Om rc = 0 därefter Återgångt True Annars Återgångt falskt Avsluta om Avsluta fungerar
" klar "

Svar : Kartlägga en knyta kontakt kör i VB.NET, eller ta fram skyddad knyta kontakt banan

Det enda långt jag får detta fel är när jag använder felusernamen eller lösenordet. Detta är hur min exempellooks som förläggas enkelt i en knäppas. ASUS är användarekontot.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Den privata suben Button1_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar Button1.Click
        Dunkel nr som NETRESOURCE = ingenting
        Dunkel strUsername som stränger = String.Empty
        Dunkel strPassword som stränger = String.Empty
        Dunkelt resultat som heltal = 0

        nr.lpRemoteName = ”\ \ 192.168.1.109 \ aktie”,
        nr.lpLocalName = ”R: ”,
        strUsername = ”ASUS”,
        strPassword = ”lösenord”,
        nr.dwType = RESOURCETYPE_DISK

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

    Avsluta suben
Andra lösningar  
 
programming4us programming4us