class= " lineNumbers " do
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= do
o class= " do id= " codeSnippet697057 do Public " notpretty " declara o _ de “WNetAddConnection2A” do liberal “mpr.dll” da função WNetAddConnection2 aliás
(lpNetResource de ByRef como NETRESOURCE, lpPassword de ByVal como o lpUserName da corda, do ByVal como dwFlags da corda, do ByVal como o inteiro) como o inteiro
O público declara o _ de “WNetCancelConnection2A” do liberal “radar de potência média” da função WNetCancelConnection2 aliás
(lpName de ByVal como dwFlags da corda, do ByVal como o fForce do inteiro, do ByVal como o inteiro) como o inteiro
Estrutura pública NETRESOURCE
dwScope público como o inteiro
dwType público como o inteiro
dwDisplayType público como o inteiro
dwUsage público como o inteiro
lpLocalName público como a corda
lpRemoteName público como a corda
lpComment público como a corda
lpProvider público como a corda
Estrutura da extremidade
Const público ForceDisconnect como o inteiro = 1
Const público RESOURCETYPE_DISK como por muito tempo = &H1
Função pública MapDrive (ByVal DriveLetter como a corda, ByVal UNCPath como a corda) como bôoleano
Nr não ofuscante como NETRESOURCE
strUsername não ofuscante como a corda
strPassword não ofuscante como a corda
nr = NETRESOURCE novo
nr.lpRemoteName = UNCPath
'nr.lpLocalName = DriveLetter & “: ”
strUsername = sUserName
strPassword = sPassword
nr.dwType = RESOURCETYPE_DISK
Resultado não ofuscante como o inteiro
resultado = WNetAddConnection2 (nr, strPassword, strUsername, 0)
Se resultado = 0 então
Do retorno retificar
Mais
Falso do retorno
Terminar se
Terminar a função
Função pública UnMapDrive (ByVal DriveLetter como a corda) como bôoleano
Rc não ofuscante como o inteiro
rc = WNetCancelConnection2 (DriveLetter & “: ”, 0, ForceDisconnect)
Se rc = 0 então
Do retorno retificar
Mais
Falso do retorno
Terminar se
Terminar a função
|