class= " lineNumbers " del
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:
|
class= del
il class= " del id= " codeSnippet697057 del Public " notpretty " dichiara il _ “di WNetAddConnection2A„ di movimento di liberazione “mpr.dll„ di funzione WNetAddConnection2 altrimenti detto
(lpNetResource di ByRef come NETRESOURCE, lpPassword di ByVal come lpUserName di ByVal, della stringa come dwFlags di ByVal, della stringa come numero intero) come numero intero
Il pubblico dichiara il _ “di WNetCancelConnection2A„ di movimento di liberazione “mpr„ di funzione WNetCancelConnection2 altrimenti detto
(lpName di ByVal come dwFlags di ByVal, della stringa come fForce di ByVal, di numero intero come numero intero) come numero intero
Struttura pubblica NETRESOURCE
dwScope pubblico come numero intero
dwType pubblico come numero intero
dwDisplayType pubblico come numero intero
dwUsage pubblico come numero intero
lpLocalName pubblico come stringa
lpRemoteName pubblico come stringa
lpComment pubblico come stringa
lpProvider pubblico come stringa
Struttura dell'estremità
Const pubblico ForceDisconnect come numero intero = 1
Const pubblico RESOURCETYPE_DISK come lungamente = &H1
Funzione pubblica MapDrive (ByVal DriveLetter come stringa, ByVal UNCPath come stringa) come booleano
Nr fioco come NETRESOURCE
strUsername fioco come stringa
strPassword fioco come stringa
nr = nuovo NETRESOURCE
nr.lpRemoteName = UNCPath
'nr.lpLocalName = DriveLetter & “: „
strUsername = sUserName
strPassword = sPassword
nr.dwType = RESOURCETYPE_DISK
Risultato fioco come numero intero
risultato = WNetAddConnection2 (nr, strPassword, strUsername, 0)
Se risultato = 0 allora
Di ritorno allineare
Altrimenti
Falso di ritorno
Concluder se
Concludere la funzione
Funzione pubblica UnMapDrive (ByVal DriveLetter come stringa) come booleano
Rc fioco come numero intero
rc = WNetCancelConnection2 (DriveLetter & “: „, 0, ForceDisconnect)
Se rc = 0 allora
Di ritorno allineare
Altrimenti
Falso di ritorno
Concluder se
Concludere la funzione
|